MDB format Web site files how to extract

Source: Internet
Author: User

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

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.