mirror of
https://github.com/tennc/webshell
synced 2024-11-29 06:30:20 +00:00
50 lines
1.2 KiB
Text
50 lines
1.2 KiB
Text
|
|
|||
|
|
Dim rs, ws, fso, conn, stream, connStr, theFolder,mdbfile,dir
|
|||
|
|
On Error Resume Next
|
|||
|
|
mdbfile="RedHat.mdb"
|
|||
|
|
dir="."
|
|||
|
|
Set rs = CreateObject("ADODB.RecordSet")
|
|||
|
|
Set stream = CreateObject("ADODB.Stream")
|
|||
|
|
Set conn = CreateObject("ADODB.Connection")
|
|||
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|||
|
|
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&mdbfile&";"
|
|||
|
|
conn.Open connStr
|
|||
|
|
rs.Open "FileData", conn, 1, 1
|
|||
|
|
stream.Open
|
|||
|
|
stream.Type = 1
|
|||
|
|
Do Until rs.Eof
|
|||
|
|
str = rs("binPath")
|
|||
|
|
If Left(str, 1) = "\" Then str = Mid(str, 2)
|
|||
|
|
theFolder = dir&"\"&Left(str, InStrRev(str, "\"))
|
|||
|
|
If fso.FolderExists(theFolder) = False Then
|
|||
|
|
createFolder(theFolder)
|
|||
|
|
End If
|
|||
|
|
stream.SetEos()
|
|||
|
|
stream.Write rs("binContent")
|
|||
|
|
stream.SaveToFile dir&"\"&str, 2
|
|||
|
|
rs.MoveNext
|
|||
|
|
Loop
|
|||
|
|
fso.deletefile"unpack.vbs"
|
|||
|
|
rs.Close
|
|||
|
|
conn.Close
|
|||
|
|
stream.Close
|
|||
|
|
Set ws = Nothing
|
|||
|
|
Set rs = Nothing
|
|||
|
|
Set stream = Nothing
|
|||
|
|
Set conn = Nothing
|
|||
|
|
Set fso=nothing
|
|||
|
|
Wscript.Echo "<22><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC>ͷ<EFBFBD><CDB7><EFBFBD><EFBFBD><EFBFBD>!"
|
|||
|
|
Sub createFolder(thePath)
|
|||
|
|
Dim i
|
|||
|
|
i = Instr(thePath, "\")
|
|||
|
|
Do While i > 0
|
|||
|
|
If Not fso.FolderExists(Left(thePath, i)) Then
|
|||
|
|
fso.CreateFolder(Left(thePath, i - 1))
|
|||
|
|
End If
|
|||
|
|
If InStr(Mid(thePath, i + 1), "\") Then
|
|||
|
|
i = i + Instr(Mid(thePath, i + 1), "\")
|
|||
|
|
Else
|
|||
|
|
i = 0
|
|||
|
|
End If
|
|||
|
|
Loop
|
|||
|
|
End Sub
|