狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

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