Baker, I'm the guy who had to implement because of unidata version on the command line, so if you would send me a copy of your program I will keep it for the future.
thanks george > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:owner-u2- > [EMAIL PROTECTED] On Behalf Of Baker Hughes > Sent: Friday, August 25, 2006 3:12 PM > To: u2-users@listserver.u2ug.org > Subject: RE: [U2] Encrypt issue 8088 > > 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: u2-users@listserver.u2ug.org > 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 > u2-users@listserver.u2ug.org > To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/