'/////////加密/解密字符
Function Encrypt(strSource)
  Dim Key1
  Dim Key2
  Dim bLowData
  Dim bHigData
  Dim i
  Dim strEncrypt
  Dim strChar
  Key1 = 65
  Key2 = 135
  For i = 1 To Len(strSource)
    strChar = Mid(strSource, i, 1)
    bLowData = AscB(MidB(strChar, 1, 1)) Xor Key1
    bHigData = AscB(MidB(strChar, 2, 1)) Xor Key2
    strEncrypt = strEncrypt & ChrB(bLowData) & ChrB(bHigData)
  Next
  Encrypt = strEncrypt
End Function

该文章在 2011/5/2 16:56:51 编辑过