国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

'/////////加密/解密字符
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 編輯過