Symeon, others, I tested every 128+ bit cipher available with Encrypt and here are the results: All the ciphers work with encoding but require the workaround (remove extra LF). None work without encoding - the decrypt side either adds a random character, or craters altogether, and Decrypted string never matches raw string.
If anyone wants a copy of my test program 'ENCRYPT.THIS' write me off-line. I also have spreadsheet of the testing results, comparing the accuracy/functionality of the ciphers. ------------------------------------------------------------------------ -------- Encryption Testing program :ENCRYPT.THIS Choose from one of the available Ciphers 1) rc4 2) des-ede3-cbc 3) des-ede3-cfb 4) des-ede3-ofb 5) rc2-cbc 6) rc2-ecb 7) rc2-cfb 8) rc2-ofb 9) rc5-cbc 10) rc5-cfb 11) rc5-ecb 12) rc5-ofb Enter Cipher choice <1 - 12> :1 Enter Action - 1=Encrypt only, 2=Encrypt & Decode :2 Data String :4055011111111111 ___________________________________Encrypting___________________________ _______ There was an extra line feed, now removed from result. Encrypted Successfully ! The Encrypt result is fdYWmfhZkszPfLGo+XsPQA== ___________________________________Decrypting___________________________ _______ Decrypted Successfully ! Decrypted result is 4055011111111111 Original data and decrypted data match, hooray! -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Symeon Breen Sent: Friday, August 25, 2006 1:06 AM To: [email protected] Subject: Re: [U2] Encrypt issue 8088 Here is my standard crypt sub FUNCTION AD.CRYPT(Word,key,iv) * Function to crypt something i.e. a password * a2c limited, Oct2005 Crypt=Word Err='';result='';resLoc=1;salt='' algorithm="rc2-cbc" Err=ENCRYPT(algorithm,2,Word,1,key,1,1,salt,iv,result,resLoc) IF NOT(Err) THEN IF result[LEN(result),1]=CHAR(10) THEN result=result[1,LEN(result)-1] ;* IBM ISSUE 8088 Crypt=result END RETURN Crypt ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
