Re: 128 bit blowfish algorithm (General questions)

by sovan, Wednesday, August 02, 2006, 10:11 (6688 days ago) @ wodDamir

now, we have matched result of two component
on setting key bytes and clear bytes = FFFFFFFFFFFFFFFF
WodCrypt= 51866FD5B85ECB8A
chilkat= 51866FD5B85ECB8A

now i just change the coding follows:
Dim c As New wodCryptCom

Dim intest As New MemBlob
intest.FromBase64( FFFFFFFFFFFFFFFF )

Dim inkey As New MemBlob
inkey.FromBase64( FFFFFFFFFFFFFFFF )
c.SecretKey = inkey
c.Type = CryptoTypes.Blowfish
c.Optimized = False

Dim outtest As New MemBlob
c.Encrypt(intest, outtest)
Response.Write(outtest.ToBase64)

i just replace Hex by Base64 in both cases
i have got result

WoCrypt: Mw0+fA/9NDiGj9YcrWmFEw==
chilkat: p+TUcch4d0Q=

so the algorithm is correct. but why this changes occurs in Base64 for two different component?
the interesting thing is that no one matches with TurboPower component. it gives result : o9C9KMdGbBmj0L0ox0ZsGeic+26BACpd
i have just puzzeled which is perfect product for our web based application?

sovan

Hi sovan,

You can easily parse that value if you enter code similiar to this:

---------------------------------------
Debug.Print UCase(outtest.ToHex)
---------------------------------------

That way you'll get the result in UpperCase.

Hope i helped.

Regards,
Damba