? CalcHash('#5e261f52-887d-4972-bb3d-d3ea966e8a3c')
RETURN

PROCEDURE CalcHash
PARAMETERS m.StrInput
 #DEFINE PROV_GOST_2001_DH         75  
 #DEFINE CALG_GR3411_2012_256     32801 
 #DEFINE dnHP_HASHVAL           2
  DECLARE INTEGER CryptAcquireContext IN win32api ;  
    INTEGER @, STRING, STRING, INTEGER, INTEGER  
  DECLARE INTEGER CryptCreateHash IN win32api ;  
    INTEGER, INTEGER, INTEGER, INTEGER, INTEGER @  
  DECLARE INTEGER CryptHashData IN win32api ;  
    INTEGER, STRING, INTEGER, INTEGER  
  DECLARE INTEGER CryptGetHashParam IN win32api ;  
    INTEGER, INTEGER, STRING @, INTEGER @, INTEGER  
  DECLARE INTEGER CryptDestroyHash IN win32api ;  
    INTEGER  
  DECLARE INTEGER CryptReleaseContext IN win32api ;  
    INTEGER, INTEGER  
  m.ProviderHandle = 0  
  m.HashHandle = 0  
  m.StrHash = SPACE(32)  
  m.StrHashLen = 32
  =CryptAcquireContext(@m.ProviderHandle, "", "", PROV_GOST_2001_DH, 0xF0000000)
  =CryptCreateHash(m.ProviderHandle, CALG_GR3411_2012_256, 0, 0, @m.HashHandle)
  =CryptHashData(m.HashHandle, m.StrInput, LEN(m.StrInput), 0)
  =CryptGetHashParam(m.HashHandle, dnHP_HASHVAL, @m.StrHash, @m.StrHashLen,0) 
  =CryptDestroyHash(m.HashHandle)  
  =CryptReleaseContext(m.ProviderHandle, 0) 
RETURN STRCONV(m.StrHash,13)