This is the subroutine to encrypt and it works like a dream:
*---------------------------------------------------------------------*
* encrypt string using DES
*---------------------------------------------------------------------*
encrypt csect , start the csect
encrypt amode 31 31 bit address mode
encrypt rmode any any residence mode
save (14,12) save caller's registers
balr r12,0 establish code
using *,r12 base register
lm r2,r4,0(r1) r2: encrypt target field
* r3: encryption key
* r4: clear text
la r0,1 function code KM-DEA encrypt
lr r1,r3 key
la r5,8 length
km r2,r4 encrypt
return (14,12),rc=0 return to caller with zero rc
Thanks everyone.
Regards,
John.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
