www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > admin/admin_encrypt.asp
<!--#include file="admin_rc4.inc" --> <% Function URLDecode(sConvert) Dim aSplit Dim sOutput Dim I If IsNull(sConvert) Then URLDecode = "" Exit Function End If ' convert all pluses to spaces sOutput = REPLACE(sConvert, "+", " ") ' next convert %hexdigits to the character aSplit = Split(sOutput, "%") If IsArray(aSplit) Then sOutput = aSplit(0) For I = 0 to UBound(aSplit) - 1 sOutput = sOutput & _ Chr("&H" & Left(aSplit(i + 1), 2)) &_ Right(aSplit(i + 1), Len(aSplit(i + 1)) - 2) Next End If URLDecode = sOutput End Function %> <% ' *** Validate request to log in to this site. dim MM_LoginAction,MM_valUsername,MM_valPassword if (Request.Form("username")<>"") then MM_valUsername=Request.Form("username") MM_valPassword=Request.Form("password") 'Encrypt login details dim MM_valUsername2, MM_valUsername3, MM_valPassword2, MM_valPassword3 MM_valUsername2 = EnDeCrypt(MM_valUsername, MM_valPassword) MM_valUsername3 = server.urlencode(MM_valUsername2) 'MM_valPassword2 = EnDeCrypt(MM_valPassword, MM_valPassword) 'MM_valPassword3 = URLEncode(MM_valPassword2) end if %>