JBTALKS.CC

标题: VB encryption and Decryption 问题 [打印本页]

作者: ycyc123 时间: 2012-2-13 07:13 PM
标题: VB encryption and Decryption 问题
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  = =

欢迎光临 JBTALKS.CC (https://jbtalks.my/)