World: r4wp

The final paragraph of the section titled the algorithm in the wikipedia 
enttyr for Blowfish explains that it is possible to implekment the 
algorithm with keys of up to 576 bits long but not advised by the 
author of the algorithm. Though when I was using REBOL for some testing, 
I set the strength to 448. 


I would have thought that AES 256 would suffice for for most purposes 
needing symmetrical encryption

AES 256 is more than sufficient for most purposes. I am researching 
what Rebol can do so I am aware of the parameters I am working within. 
I am writing code that will be used to encrypt communication between 
clients who want a secure communication facility.


I am looking at the Rebol RSA algorithms now. Thanks for your input.

have an issue:
>> fact1: 'a/a
>> num1: 99.0
>> blk: [greater? to-decimal obj/:fact1 num1]
>> objs: []
>> o: make object! [a: make object! [a: "100.0"]
>> append objs o
>> o: make object! [a: make object! [a: "99.0"]
>> append objs o

>> foreach obj objs [if equal?  do bind blk 'obj true [print obj/a]]
**Invalid path value: a/a

well... let see...

>> blk: [greater? to-decimal do bind reduce [fact1] obj num1]

you"re doing tortuous things

looks like it :(

So, Did you check my correction ?

not working for me

>> foreach obj objs [print do blk]
** Script Error: Invalid path value: a
** Near: a/a

sorry!

>> foreach obj objs [print do bind blk 'obj]
** Script Error: Invalid path value: a
** Near: a/a

I repeat, did you take that correction ?
>> blk: [greater? to-decimal do bind reduce [fact1] obj num1]

yes

It works fine with your data

copy that, it must work:

fact1: 'a/a
num1: 99.0
blk: [greater? to-decimal do bind reduce [fact1] obj num1]
objs: []
o: make object! [a: make object! [a: "100.0"]]
append objs o
o: make object! [a: make object! [a: "99.0"]]
append objs o
foreach obj objs [if equal?  do bind blk 'obj true [print obj/a]]

bloody typo again. sorry steve. yes it does work. its 430am here...

Okay

Where are you from ?

india

How have you discovered  Rebol, If I may ask ?

online! was looking for something light and fast (in dev terms)

rebol is ideal

if i do:

fact1: 'a
o: make object [a: "100.9"]
append objs o
foreach obj objs [if equal?  do bind blk 'obj true [print obj/a]]
** Script Error: Invalid argument: a: "100.0"

wtf!

typo again
>> o: make object! [a: "100.9"]
you need sleeping time

nope. i corrected that and still the same error.


i have data stored in json. i use json.r to convert to rebol objects. 
i want to create a query layer on top of this - which is why the 
expression builder...
the fact1 is an attr of the data object. these can be nested.
how best can i build the expression to retrieve the value i want?

There's no better response than: it can be done.
You just have to correct the bugs as they come.

:)

is the complete error that one ?

** Script Error: Invalid argument: a: "100.0"

** Where: to-decimal
** Near: to decimal! :value

yes

so you are trying to convert to a decimal something not convertible

add a probe, just after to-decimal

hmmm...not that i know of...just using the test data i put in here:

>> probe objs
[make object! [
        a: make object! [
            a: "100.0"
        ]
    ] make object! [
        a: make object! [
            a: "99.0"
        ]
    ] make object! [
        a: "199.0"
    ]]

you are trying to convert an object to a decimal

as long as fact1: 'a/a it works fine.
if fact1: 'a - boom!

because your objects have structures which are not always the same

how do i tackle this?

what is the name of the decimal attribute ?

a


blk: any [greater? to-decimal probe do bind reduce [fact1] obj num1 
| greater? to-decimal do bind obj/:fact1 obj num1]??

Currenlty 'a stands for either an object or a string, you can't be 
that vague.
You must choose a clear name  to identify the decimal attribute

rats!

or you must check in your code when 'a is an object!

and fact1 must be initialized accodingly.
Either with 'a either with 'a/a

question:
an object 'a always has only one property called 'a ?

yes

ok it's simpler then, let me try...

fact1: 'a
get-prop: func [o][either object? o [first next second o][o]]

blk: [greater? to-decimal get-prop do bind reduce [fact1] obj num1]objs: 
[]

another question. 

Why are you using the blk variable instead of coding directly in 
the foreach loop ?
The code would be simpler.

meaning?