MD5

/// MD5 加密成 32位 字符
/// w ##class(PHA.CACHE.Encryption).MD5T32("123456")
ClassMethod MD5T32(str)
{
    s md5Str = ##class(%SYSTEM.Encryption).MD5Hash(str)
    q ..ByteHex(md5Str)
}
/// 字符转32位
ClassMethod ByteHex(val)
{
    s ret = ""
    for i = 1 : 1 : $l(val){
        s ascii = $a($e(val, i))
        if (ascii < 16){
            s ret = ret _ 0 _ $zh(ascii)        
        }else{
            s ret = ret _ $zh(ascii)
        }
    }
    q ret
}