Fw: MD5 via RPG?

["Leif Svalgaard" <leif@xxxxxxxx>]

----- Original Message ----- 
From: Leif Svalgaard <leif@leif.org>
To: Goodbar, Loyd (AFS-Water Valley) <LGoodbar@afs.bwauto.com>
Sent: Monday, June 26, 2000 2:18 PM
Subject: Re: MD5 via RPG?


> 
> ----- Original Message ----- 
> From: Goodbar, Loyd (AFS-Water Valley) <LGoodbar@afs.bwauto.com>
> To: <leif@leif.org>
> Sent: Monday, June 26, 2000 12:37 PM
> Subject: RE: MD5 via RPG?
> 
> 
> > I'd like to see this. Thanks!
> 
> Attached is a ZIP file. Unzip it to
> get the MD5.sav save file.
> 
> restore the MD5 savefile.
> 
> to use the MD5 program:
> call md5 parm1 parm2 parm3
> 
> parm1 is receiver character value (at least 16 bytes for MD5)
> parm2 is a control block:
> DCL DD PARM-CTL CHAR(108);                                            
>     DCL DD LENGTH   BIN(4) DEF(PARM-CTL) POS( 1);     
>     DCL DD SEQ     CHAR(8) DEF(PARM-CTL) POS( 5);  
>     DCL DD WORK   CHAR(96) DEF(PARM-CTL) POS(13);                
> parm 3 is source character value
> 
> LENGTH is length of string in source to be hashed
> 
> SEQ is one of *ONLY  (for one-shot hashing)
> *FIRST (for the first call if you want to have the hash extend
> over several calls)
> *MIDDLE (for subsequent calls after *FIRST)
> *FINAL (for the final call in a series).
> 
> WORK should be set to binary zeroes before *ONLY and *FIRST
> and must not be changed by the caller thereafter (until the next
> *ONLY and *FIRST).
>                                                                       
> Leif Svalgaard
> 
>

Savefile.zip