T100——哈希加密

IMPORT security

PUBLIC FUNCTION ccl_hash(p_digest,p_algo)
DEFINE p_digest   STRING            #要加密的字串
DEFINE p_algo     STRING            #hashcode: SHA1, SHA512, SHA384, SHA256, SHA224, MD5
DEFINE l_result   STRING            #加密後的字串
DEFINE l_dgst     security.Digest
DEFINE l_chk      BOOLEAN           #是否成功
    #
    LET l_chk = TRUE
    TRY
        LET l_dgst = security.Digest.CreateDigest(p_algo)
        CALL l_dgst.AddStringData(p_digest)
        LET l_result = l_dgst.DoHexBinaryDigest()
    CATCH
        LET l_chk = FALSE
    END TRY
    
    RETURN l_chk,l_result

END FUNCTION

转载请注明：赫非域 » T100——哈希加密