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
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
: 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
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
, 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
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
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
:[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
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
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
10 matches
Mail list logo