公交车上荫蒂添的好舒服的电影-公用玩物(np双xing总受)-公用小荡货芊芊-公与妇仑乱hd-攻把受做哭边走边肉楼梯play-古装一级淫片a免费播放口

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