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