Intermediary transaction http://www.aliyun.com/zixun/aggregation/6858.html ">seo diagnose Taobao guest cloud host technology Hall
Yesterday pack downloaded a server whole station, get this *.mdb file, but do not know how to use, Baidu a bit, just know is a kind of Trojan package form file, cannot use WinRAR to decompress, can use ocean packaging tools for decompression, but this tool is difficult to find. Later on the internet to find a more simple way to share with you.
Will *. The MDB file is placed in a local folder, the following code into Notepad, save as Unpack.vbs file, to extract the file renamed to Hytop.mdb after decompression. VB script files and MDB files in a directory, the implementation of VB script on the line (double-click this script). Wait a few minutes and you'll be prompted when you're done. (not complete forced exit solution is incomplete package)
Unpack.vbs
Dim RS, WS, FSO, Conn, stream, ConnStr, Thefolder
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=hytop.mdb;"
Conn. Open ConnStr
Rs. Open "Filedata", Conn, 1, 1
Stream. Open
Stream. Type = 1
On Error Resume Next
Do Loop Rs. Eof
Thefolder = Left (rs ("Thepath"), InStrRev (RS ("Thepath"), "\")
If FSO. FolderExists (Thefolder) = False Then
CreateFolder (Thefolder)
End If
Stream. SetEOS ()
Stream. Write rs ("Filecontent")
Stream. SaveToFile Str & RS ("Thepath"), 2
Rs. MoveNext
Loop
Rs. Close
Conn. Close
Stream. Close
Set ws = Nothing
Set rs = Nothing
Set stream = Nothing
Set conn = Nothing
WScript.Echo "All Files released!"
Sub CreateFolder (Thepath)
Dim I
i = Instr (Thepath, "\")
Do While I > 0
If FSO. FolderExists (Left (thepath, i)) = False 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