Well, I found the exactly same version of Rebol/Pro, tried it and here is
the result:
REBOL/Pro 2.5.6.3.1
Copyright 1997-2003 REBOL Technologies
REBOL is a Trademark of REBOL Technologies
All rights reserved.
Component: "Windows Registry Access" 1.1.2.4 (11-Dec-2002/0:36:56)
Component: "Dynamic Library Access" 1.4.2.1 (24-Mar-2002/20:13:53)
Component: "Command Shell Access" 1.5.2.5 (11-Dec-2002/0:37:05)
Component: "Encryption" 1.3.2.2 (24-Mar-2002/20:13:52)
Component: "Big Numbers" 1.2.2.2 (24-Mar-2002/20:13:52)
Component: "DH/DSA Encryption" 1.2.2.2 (24-Mar-2002/20:13:52)
Component: "RSA Encryption" 1.3.2.2 (24-Mar-2002/20:13:58)
Component: "FastCGI" 1.2.2.3 (24-Nov-2002/17:05:54)
Component: "System Port" 1.1.2.5 (30-Nov-2002/17:24:03)
Component: "Licensing" 1.8.2.6 (30-May-2003/7:32:41)
>> to-blowfishj-padding: func [
[ str [string!]
[ /local ls
[ ][
[ ls: length? str
[ if (ls and 7) = 0 [
[ return str
[ ]
[ return head insert/dup tail copy str " " ls and (complement 7) + 8 -
ls
[ ]
>>
>> my-port: make port! [
[ scheme: 'crypt
[ direction: 'encrypt
[ key: to-binary
[ "qachafU&[EMAIL PROTECTED]"
[ init-vector: to-binary "11111111"
[ padding: false
[ ]
>> open my-port
>> insert my-port to-blowfishj-padding "test test test"
>> update my-port
>> value: copy my-port
== #{5B57A12B58F75F6BAAD115497AC6A028}
>>
So you can see it works for me without problems under this version.
One thing came to my mind, try this:
>> crypt-strength?
== full
Maybe it is possible you have restricted the encryption strength in your
license?
regards,
Cyphre
----- Original Message -----
From: "robert w dumond" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, September 09, 2005 5:19 PM
Subject: [REBOL] Re: Blowfish
>
> Okee dokes. I ran this piece of code, and I am still getting the
> same result from Rebol. What versions of Rebol and the Encryption
> package are you using and for what platforms? I am just grasping at
> straws, but this whole thing is kinda weird to me.
> I am running on Windows 2000 SP4. Here is the console header stuff
> from Rebol:
>
> REBOL/Pro 2.5.6.3.1
> Copyright 1997-2003 REBOL Technologies
> REBOL is a Trademark of REBOL Technologies
> All rights reserved.
>
> Component: "Windows Registry Access" 1.1.2.4 (11-Dec-2002/0:36:56)
> Component: "Dynamic Library Access" 1.4.2.1 (24-Mar-2002/20:13:53)
> Component: "Command Shell Access" 1.5.2.5 (11-Dec-2002/0:37:05)
> Component: "Encryption" 1.3.2.2 (24-Mar-2002/20:13:52)
> Component: "Big Numbers" 1.2.2.2 (24-Mar-2002/20:13:52)
> Component: "DH/DSA Encryption" 1.2.2.2 (24-Mar-2002/20:13:52)
> Component: "RSA Encryption" 1.3.2.2 (24-Mar-2002/20:13:58)
> Component: "FastCGI" 1.2.2.3 (24-Nov-2002/17:05:54)
> Component: "System Port" 1.1.2.5 (30-Nov-2002/17:24:03)
> Component: "Licensing" 1.8.2.6 (30-May-2003/7:32:41)
>
> Thank you very much for your help,
> robert w. dumond
>
> Cyphre wrote:
>
> >Robert,
> >
> >Actually I don't have the exact your version of Rebol but this works in
all
> >versions I have on my harddisk ;)
> >
> ><WATCH FOR LINE BREAKS>
> >
> >to-blowfishj-padding: func [
> > str [string!]
> > /local ls
> >][
> > ls: length? str
> > if (ls and 7) = 0 [
> > return str
> > ]
> > return head insert/dup tail copy str " " ls and (complement 7) + 8 - ls
> >]
> >
> >my-port: make port! [
> > scheme: 'crypt
> > direction: 'encrypt
> > key: to-binary
> >"qachafU&[EMAIL PROTECTED]"
> > init-vector: to-binary "11111111"
> > padding: false
> >]
> >open my-port
> >insert my-port to-blowfishj-padding "test test test"
> >update my-port
> >value: copy my-port
> >
> >== #{5B57A12B58F75F6BAAD115497AC6A028}
> >
> >regards,
> >
> >Cyphre
> >
> >
> >----- Original Message -----
> >From: "robert w dumond" <[EMAIL PROTECTED]>
> >To: <[EMAIL PROTECTED]>
> >Sent: Thursday, September 08, 2005 10:20 PM
> >Subject: [REBOL] Re: Blowfish
> >
> >
> >
> >
> >>Cyphre -
> >> First, I would like to say thank you for your help. I tried your
> >>suggestion below, but I am getting nearly the same response from Rebol
> >>with:
> >> == #{7B36C60D60C146E9BE8953C0FE4AD91E}
> >>
> >> And in reply to my previous email, if I just close and reopen the
> >>port, then the response is the same each time, so that is no biggy.
> >>
> >>
> >*shrug*
> >
> >
> >>Merci Beaucoup,
> >>robert w. dumond
> >>
> >>Cyphre wrote:
> >>
> >>
> >>
> >>>Robert,
> >>>
> >>>I analyzed your Java code and it does a little bit different thing like
> >>>
> >>>
> >you
> >
> >
> >>>are doing in Rebol. Here is the equivalent:
> >>>
> >>>my-port: make port! [
> >>> scheme: 'crypt
> >>> direction: 'encrypt
> >>> key: to-binary
> >>>"qachafU&[EMAIL PROTECTED]"
> >>> init-vector: to-binary "11111111"
> >>> padding: false
> >>>]
> >>>open my-port
> >>>insert my-port join to-binary "test test test" #{2020}
> >>>update my-port
> >>>value: copy my-port
> >>>
> >>>Which is yielding the same result as Java.
> >>>You are using some padding algorithm in the case of Java code.
> >>>
> >>>Cyphre
> >>>
> >>>
> >>>
> >>>
> >>--
> >>To unsubscribe from the list, just send an email to
> >>lists at rebol.com with unsubscribe as the subject.
> >>
> >>
> >>
> >
> >
> >
> --
> To unsubscribe from the list, just send an email to
> lists at rebol.com with unsubscribe as the subject.
>
--
To unsubscribe from the list, just send an email to
lists at rebol.com with unsubscribe as the subject.
