Calling some vendor "C" code from RPGIV

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
I've received some C code to perform sha encryption from a vendor.  I've
gotten it compiled into a CLE module and then created into a SRVPGM, and the
400's happy so far.  Now I need to call a function in there.

The exports on the SRVPGM read:


                               Procedure Exports:



 Procedure Name
ARGOPT
 sha_final                                                               *NO

 sha_init                                                                *NO

 sha_update                                                              *NO

 sha1                                                                    *NO




The procedure vendor says to call reads:

void sha1( void *buf, unsigned long len, unsigned long *iv, unsigned long
digest[5] )
{

 SHA_INFO sha_info;

 sha_init(&sha_info, iv);

 sha_update(&sha_info, buf, len);

 sha_final(&sha_info);

 memcpy(digest, sha_info.digest, sizeof( sha_info.digest ) );

 memset(&sha_info, 0, sizeof( sha_info));

}


and I'm trying to figure out the prototype.

Is it:

D Sha1            PR
D  Buffer                    32767a   Const Options(*Varsize)
D  BfrLength                    10i 0 Const
D  IV                           10i 0 Const
D  Digest                       10i 0 Dim(5)

What this thing does is encrypt a 4 digit PIN# in some *nix like fashion
where the pin starts out as 1234 and ends up as 28AAF4DD B1B62407 E90CFDD5
4B1E31F8 236E59F3.

So I guess I do something RPGIV like:

Sha1( PIN# : %len(PIN#) : ???? : Digest );

where Digest is an RPGIV array of 8a dim(5)?

I have no idea what the *buf and *iv things mean.

TIA for any help you can offer!

Tom Westdorp
Station Casinos