Re: Md5 Hash

[Raul A Jager W <raul@xxxxxxxxxx>]

I use a pair of routines, here is a copy.  They work great.
_____________________________________________________________________

 // RPG Service Program: MD5R                                         
 // Create an MD5 hash for a given piece of data (aka message or digest
 //                                                                   
 //                                                                   
 // Compile Notes                                                     
 // 1. CRTRPGMOD                                                      
 // 2. CRTSRVPGM SRVPGM(MYLIB/MD5R) EXPORT(*ALL)                      
 //                                                                   
HNOMAIN OPTION(*SRCSTMT:*NODEBUGIO)                                   
DCipher           PR                  EXTPROC('_CIPHER')              
D                                 *   VALUE                           
D                                 *   VALUE                           
D                                 *   VALUE                           
Dcvthc            PR                  EXTPROC('cvthc')                
D                                1                                    
D                                1                                    
D                               10i 0 VALUE                           

DdsControls       DS            96                           
D Function                       5U 0 Inz(5)                 
D HashAlgorithm                  1    Inz(x'01')             
D Sequence                       1    Inz(x'00')             
D DataLength                    10U 0                        
D OutputType                     1    Inz(x'00')             
D Reserved1                      7    Inz(*ALLx'00')         
D ptrHashContext                  *   Inz(%Addr(HashWorkArea))
DHashWorkArea     S             96    Inz(*LOVAL)            
DOutputHex        S             40                           


______________________________________________________________________
 // Return a hash as a 16-byte binary value                          
PMD5Hash_BINARY   B                   Export                         
DMD5Hash_BINARY   PI            16                                   
D parmInput                  32000    Options(*VarSize) Const Varying
                                                                     
 /Free                                                               
     HashAlgorithm = x'00';                                          
     HashWorkArea  = *LOVAL;                                         
     DataLength=%Len(parmInput);                                     
     Input=parmInput;                                                
     Cipher(%Addr(ptrOutput):                                        
            %Addr(dsControls):                                       
            %Addr(ptrInput));                                        
                                                                     
     Return Output;                                                  
 /End-Free                                                           
P                 E                                                  
______________________________________________________________________

 // Return a hash as a 32-byte character value (hex)                
PMD5Hash_HEX      B                   Export                        
DMD5Hash_HEX      PI            32                                  
D parmInput                  32000    Options(*VarSize) Const Varying
                                                                    
                                                                    
 /Free                                                              
     Output=MD5Hash_Binary(parmInput);                              
     // Convert hash string to character                            
     cvthc(OutputHex:                                               
           Output:                                                  
           %Size(OutputHex));                                       
                                                                    
     Return OutputHex;                                              
 /End-Free                                                          
P                 E                                                 
_____________________________________________________________________________________

On 12/29/2015 03:14 PM, Jack Tucky wrote:
> I'm using Qc3CalculateHash to calculate an MD5 Hash.  The sample program
> uses QDCXLATE to translate from EBCDIC to ASCII, then uses CVTHC to convert
> the hash to hex to DSPLY.
>
> The website that I'm talking to gives an example to try and calculate:
>
> The "Salt" value is mJpSl0hTtf71gdV6kAdf
>
> The value to hash is HCO-LAKEW-938^123456^1424480303^12.24^USD
>
> So I try to hash
>  mJpSl0hTtf71gdV6kAdfHCO-LAKEW-938^123456^1424480303^12.24^USD
>
> I get this:
>
> FAC0532F9A64B2C672571473750A4EA1105CD386
>
> The web example gets this:
>
> 3cae2d6436cc7c8fcd43c9e98506056b
>
> Here is their sample code
>
> HMAC-MD5(transaction-key, "x_login^x_fp_sequence^x_fp_
> timestamp^x_amount^x_currency_code")
>
> This website gets a different result!
> http://www.miraclesalad.com/webtools/md5.php
> 297f86eb7a335339ddef7194e70d4f27
>
> I've tried the other hash types for the API, none of them match.
>
> Code used here.....
>
> http://www.mysamplecode.com/2011/05/rpgle-generate-sha-1-hash-use.html
>
> Any ideas what I'm doing wrong?


-- Este e-mail fue enviado desde el Mail Server del diario ABC Color -- 
            -- Verificado por Anti-Virus Corporativo Symantec --