VB中如何对种文字符进行加密呢？

[tiger1978]

各位大虾帮帮小弟阿！

[Dublue]

http://expert.csdn.net/Expert/topic/2281/2281149.xml?temp=.4611627
http://expert.csdn.net/Expert/topic/2223/2223686.xml?temp=.4706385
http://expert.csdn.net/Expert/topic/2211/2211834.xml?temp=7.757205E-02

[tiger1978]

中文字还是搞不定阿？

[LCAAA]

你可以在保存到数据库的时候把文字转换成二进制数
提取的时候再转换回来呀
取的时候
For i = 1 To Len(snp("口令")) \ 3
pwd = pwd & Chr(Mid(snp("口令"), 3 * i - 2, 3))
Next
存的时候
For i = 1 To Len(Trim(Text(2).Text))
s = s & Format(Asc(Mid(Trim(Text(2).Text), i, 1)), "000")
Next

[mmcgzs]

用二进制的方法不错

[tiger1978]

那繁体的转成二进制应该没有关系的吧？

[tiger1978]

snp是什么函数啊？

[tiger1978]

中文字不能通过？

[xzp1030]

应该是个记录集.

[xzp1030]

public function Encrypt(byval vPassW as string) as string
x = 10
for i = 1 to len(vpassw)
tmpvpassw = mid(vpassw,i,1)
ascvpasw = asc(tmpvpassw)
tmpencrypt = ascvpassw xor x
encrypt = encrypt & chr(tmpencrypt)
next
end function