vbs加密算法问题

将asc转换为十六进制即可，位数统一，还可以忽略负号。 Function GenerateCode(strText) '输入字符串(strText)，返回十六进制ANSI编码 Dim i For i=1 to Len(strText) GenerateCode = GenerateCode & Hex(Asc(Mid(strText,i,1))) NextEnd FunctionFunction GetText(strCode) '输入十六进制A