我想把中文字符加密，不知怎样加密！那位人兄可以帮组我吗？

[HEIGEMENG]

我想把中文字符加密，不知怎样加密！那位人兄有代码，不知能不能帮助一下我。
email:[e-mail]
谢谢！

[脆皮大雪糕]

一般的加密算法都是将数据以byte数组的形式输入并且输出，只要用strconv函数将包含有汉字的字符串先转换为byte数组然后进行加密，解密以后也同样的把byte数组还原出来就可以了

Dim a() As Byte
a = StrConv("测试一下", vbFromUnicode)
'这时候的a()就可以作为加密算法的输入数据了
Dim b As String
'这里把a()当作解密后输出的字节数组，将其还原到字符串变量B中
b = StrConv(a, vbUnicode)
Debug.Print b

一些常见加密算法的VB实现已经mail给你了，请查收