ycyc123
2012-2-13 07:13 PM
Dim result As String = ""
password = TextBox1.Text
For i = 1 To Len(Password)
result = result & Chr(Asc(Mid(password, i, 1)) + 128)
Next
Label1.Text = result
我encryption密码了...
怎样decryption回？？？
result = result & Chr(Asc(Mid(password, i, 1)) - 128)
有error = =
password = TextBox1.Text
For i = 1 To Len(Password)
result = result & Chr(Asc(Mid(password, i, 1)) + 128)
Next
Label1.Text = result
我encryption密码了...
怎样decryption回？？？
result = result & Chr(Asc(Mid(password, i, 1)) - 128)
有error = =
