RE: [U2] Encrypt issue 8088

2006-08-30 Thread george r smith
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

Re: [U2] Encrypt issue 8088

2006-08-25 Thread Symeon Breen
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

RE: [U2] Encrypt issue 8088

2006-08-25 Thread David A. Green
: 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

Re: [U2] Encrypt issue 8088

2006-08-25 Thread Allen Egerton
David A. Green wrote: Why do programmers use result[LEN(result),1]? Doesn't result[1] do the same thing but easier, quicker, and more readable? snip variable[1] to reference the last byte of variable is a relatively recent addition to Universe. Where relatively refers to the lifeline of the

RE: [U2] Encrypt issue 8088

2006-08-25 Thread Baker Hughes
, August 25, 2006 10:07 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Encrypt issue 8088 Why do programmers use result[LEN(result),1]? Doesn't result[1] do the same thing but easier, quicker, and more readable? Thanks, David A. Green DAG Consulting www.dagconsulting.com -Original Message

RE: [U2] Encrypt issue 8088

2006-08-25 Thread Baker Hughes
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

RE: [U2] Encrypt issue 8088

2006-08-24 Thread george r smith
Baker, I don't know if you are trying to do this via a Unibasic subroutine call or by using EXECUTE. I could not use the Unibasic because the Unidata version was not 7.1 so I used the following. I had a lot of trouble with char(10) also until I found the -a -A flags. This works well on Solaris

RE: [U2] Encrypt issue 8088

2006-08-24 Thread Baker Hughes
:[EMAIL PROTECTED] On Behalf Of george r smith Sent: Thursday, August 24, 2006 11:22 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Encrypt issue 8088 Baker, I don't know if you are trying to do this via a Unibasic subroutine call or by using EXECUTE. I could not use the Unibasic because

RE: [U2] Encrypt issue 8088

2006-08-24 Thread Allen E. Elwood
Wouldn't change be a little easier? RESULT = CHANGE(RESULT,CHAR(10), '') hth, Allen -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Rajesh Menon Sent: Thursday, August 24, 2006 12:22 To: u2-users@listserver.u2ug.org Subject: RE: [U2] Encrypt issue 8088

RE: [U2] Encrypt issue 8088

2006-08-24 Thread Rajesh Menon
This is how I remove the char(10) from the encrypted data: LN = LEN(RESULT) IF RESULT[LN,1] = CHAR(10) THEN RESULT=RESULT[1,LN-1] END To decrypt this data, I add CHAR(10) before passing it to the ENCRYPT function. DATA = DATA:CHAR(10) HTH Rajesh -Original Message- From: [EMAIL