HMACSHA1 function using the ABL SHA1-DIGEST

s pareek

New Member
Would there be something for progress ver 9.1e users for hash SHA1 algorithm ?
 

TomBascom

Curmudgeon
Roll your own...

Or upgrade to a modern release of Progress.

Version 9 is ancient, obsolete and unsupported. It was designed and first released in the 90s. "Y2K" was the big worry. "The Internet" was brand new. The Spice Girls were hot. Security was an after-thought.
 

Cecil

19+ years progress programming and still learning.
If you are using OpenEdge 11.7.4 you can now do this:

Code:
DEFINE VARIABLE chJSONData AS CHARACTER   NO-UNDO.
DEFINE VARIABLE chKey AS CHARACTER   NO-UNDO.
DEFINE VARIABLE lcLong AS LONGCHAR   NO-UNDO.

chJSONData = '{data:"somedatahere"}'.
chKey      = "ApplicationKey"  .

lcLong = HEX-ENCODE(MESSAGE-DIGEST("HMAC-SHA-256" , chJSONData, chKey)).

MESSAGE STRING(chLong).
 
Top