T100——哈希加密

IMPORT security
 1 PUBLIC FUNCTION ccl_hash(p_digest,p_algo)
 2 DEFINE p_digest   STRING            #要加密的字串
 3 DEFINE p_algo     STRING            #hashcode: SHA1, SHA512, SHA384, SHA256, SHA224, MD5
 4 DEFINE l_result   STRING            #加密後的字串
 5 DEFINE l_dgst     security.Digest
 6 DEFINE l_chk      BOOLEAN           #是否成功
 7     #
 8     LET l_chk = TRUE
 9     TRY
10         LET l_dgst = security.Digest.CreateDigest(p_algo)
11         CALL l_dgst.AddStringData(p_digest)
12         LET l_result = l_dgst.DoHexBinaryDigest()
13     CATCH
14         LET l_chk = FALSE
15     END TRY
16     
17     RETURN l_chk,l_result
18 
19 END FUNCTION
T100——哈希加密

推荐阅读
