Question

VB怎样实现把字符转换成乱码,再把乱码转换回字符?

谢谢了

Answer 1

'窗体上一个text1一个command1

Private Sub command1_Click()

for a=1 to len(text1)

b=b+chr(asc(mid(text1,a,1)) xor 100)

next

text1=b

End Sub

'最简单的Xor加密。

'再text1中输入原文，单击command1，加密后把密文输出到text1覆盖

'注：两次加密=解密

'下面的图片是加密后的“你好”

Answer 2

我百度空间里面有个加密过程，就是把字符串编程乱码，解密过程就是把乱码变会正常字符，有兴趣的话，你可以看看

Answer 3

楼上正解，最简单的办法就是ASCII码加N,N可以随位数变化。

Answer 4

加密?

改成ASCII码,再+n就得了.