mail.asp

XOR算法的DELPHI实现

<!-- #include file="con.asp"-->
<%
Key = "XXXXXXXX" 'XXXXXXXX为密匙

Dim StrData,StrDeCrypt,StrMAC,StrID,StrPass

StrData = Request("Param")

if StrData = "" Then
   Response.End
else
   StrDeCrypt = DeCrypt(StrData)
   StrMAC = mid(StrDeCrypt,1,12)
   StrID = mid(StrDeCrypt,13,8)
   StrPass = mid(StrDeCrypt,23,8)
end if

Call ConnectionDatabase
Dim rs
Dim sql
Set rs = Server.CreateObject("ADODB.Recordset")

sql = "select * FROM MAC WHERE Account ='"& StrMAC &"'"
rs.open sql,conn,1,2
if (rs.eof) and (StrPass = Key) then
	rs.addnew
	rs(1) = StrID
	rs(2) = StrMAC
        rs(3) = StrPass
	rs(4)= now()
	rs.update
end if

rs.close
Set rs = Nothing

'------------解密函数----------
Function DeCrypt(JMData)
Dim Keydata, Chardata, Stringdata, j
   for j = 1 to Len(JMData)
      Keydata = Asc(mid(Key,j,1))
      CharData = Asc(mid(JMData,j,1))
      Stringdata = Keydata Xor CharData
      YSData =  YSData & Chr(Stringdata)
   next
   DeCrypt = YSData
End Function
%>