|
|
<br /><div class="t_msgfont">有很多网友,入侵别人的网站,然后将别人的站点打包成mdb的文件格式!别人的整站会形成一个**.MDB的文件格式,这样子就可以将整个网站下载下来!<br />也有很多朋友拿到这个**.mdb的文件后,不知道怎么用,这不是一种数据文件,也不能用WINrar来解压缩,因为他是一种木马打包的形式!<br />解压这种压缩包,你可以在网上找海洋打包工具进行解压缩!但我这里向大家介绍的方法更简单!<br /><br />将**.MDB的文件放在本地的某个文件夹,把下面代码写进记事本,保存为.vbs文件,把待解压文件改名为Packet.mdb后执行解压<br />为什么要改成packet.mdb请大家注意红色部分!<br /><br />Dim rs, ws, fso, conn, stream, connStr, theFolder<br />Set rs = CreateObject("ADODB.RecordSet")<br />Set stream = CreateObject("ADODB.Stream")<br />Set conn = CreateObject("ADODB.Connection")<br />Set fso = CreateObject("Scripting.FileSystemObject")<br />connStr = " rovider=Microsoft.Jet.OLEDB.4.0;Data Source=packet.mdb;"<br /><br />conn.Open connStr<br />rs.Open "FileData", conn, 1, 1<br />stream.Open<br />stream.Type = 1<br /><br />On Error Resume Next<br /><br />Do Until rs.Eof<br />theFolder = Left(rs("thePath"), InStrRev(rs("thePath"), "\"))<br />If fso.FolderExists(theFolder) = False Then<br />createFolder(theFolder)<br />End If<br />stream.SetEos()<br />stream.Write rs("fileContent")<br />stream.SaveToFile str & rs("thePath"), 2<br />rs.MoveNext<br />Loop<br /><br />rs.Close<br />conn.Close<br />stream.Close<br />Set ws = Nothing<br />Set rs = Nothing<br />Set stream = Nothing<br />Set conn = Nothing<br /><br />Wscript.Echo "所有文件释放完毕!"<br /><br />Sub createFolder(thePath)<br />Dim i<br />i = Instr(thePath, "\")<br />Do While i > 0<br />If fso.FolderExists(Left(thePath, i)) = False Then<br />fso.CreateFolder(Left(thePath, i - 1))<br />End If<br />If InStr(Mid(thePath, i + 1), "\") Then<br />i = i + Instr(Mid(thePath, i + 1), "\")<br />Else<br />i = 0<br />End If<br />Loop<br />End Sub</div><div class="t_msgfont"></div><div class="t_msgfont"><br />使用这段代码的兄弟,记得开上杀毒软件哦,因为这类型是用木马进行压缩的!所以注意自己清理一下存在的木马!<br /><br /><br />注:打包基地老兵专用解压工具下载地址:<br /><a href="http://www.ee44.net/read-htm-tid-22541.html">http://www.ee44. ... -22541.html</a><a href="http://bbs.zz16.cn/viewthread.php?tid=196" target="_blank"><font color="#0000ff"></font></a></div> |
|