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/
