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

tiger1978 2003-10-21 10:15:54

各位大虾帮帮小弟阿！

...全文

81 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

xzp1030 2003-10-21

打赏
举报

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

xzp1030 2003-10-21

打赏
举报

应该是个记录集.

tiger1978 2003-10-21

打赏
举报

中文字不能通过？

tiger1978 2003-10-21

打赏
举报

snp是什么函数啊？

tiger1978 2003-10-21

打赏
举报

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

mmcgzs 2003-10-21

打赏
举报

用二进制的方法不错

LCAAA 2003-10-21

打赏
举报

你可以在保存到数据库的时候把文字转换成二进制数
提取的时候再转换回来呀
取的时候
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

tiger1978 2003-10-21

打赏
举报

中文字还是搞不定阿？

Dublue 2003-10-21

打赏
举报

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