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

%>