crypt.asp

来自「仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户」· ASP 代码 · 共 26 行

<% 
  Dim g_Key
  g_Key="923(462(934Q73298479283dddQ@qa0Z0x678x8)6" '建议改变这段字符的内容,不改变字符串长度

  Function EnCrypt(strCryptThis)
    Dim strChar, iKeyChar, iStringChar, I
    for I = 1 to Len(strCryptThis)
      iKeyChar = Asc(mid(g_Key,I,1))
      iStringChar = Asc(mid(strCryptThis,I,1))
      iCryptChar = iKeyChar Xor iStringChar
      strEncrypted = strEncrypted & Chr(iCryptChar)
    next
    EnCrypt = strEncrypted
  End Function

  Function DeCrypt(strEncrypted)
    Dim strChar, iKeyChar, iStringChar, I
    for I = 1 to Len(strEncrypted)
      iKeyChar = (Asc(mid(g_Key,I,1)))
      iStringChar = Asc(mid(strEncrypted,I,1))
      iDeCryptChar = iKeyChar Xor iStringChar
      strDecrypted = strDecrypted & Chr(iDeCryptChar)
    next
    DeCrypt = strDecrypted
  End Function
%>