论坛风格切换切换到宽版
  • 7942阅读
  • 5回复

常见的JPG.GIF.MDB打包文件解包办法。 [复制链接]

上一主题 下一主题
离线admin
 

发帖
17024
金钱
88496309
威望
88
贡献值
20069
只看楼主 倒序阅读 使用道具 0 发表于: 2008-02-25
— 本帖被 admin 执行置顶操作(2010-04-18) —
常见的JPG.GIF.MDB打包文件解包办法。于很多源码以打包的形式提供给大家的,所以有必要把解包的方法给大家说明一下。
目前网络上流行的打包工具就2种(也有用其它的,不过比例不大),一个是海洋打包,一个是老兵打包.
通常打包的文件是*.mdb,*.tdb,*.jpg,*.gif等等。<下载完后,把*.jpg,*.gif改名为*.mdb>
可下载附件直接使用。 路径在代码里可以改!
附件: 通用解包工具.rar (1 K) 下载次数:399
附件: 老兵解包工具.rar (1 K) 下载次数:308
附件: 海洋解包工具.rar (1 K) 下载次数:303
附件: 解包工具1 .rar (4 K) 下载次数:203
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
感觉帖子好请点击下论坛的广告。这就是论坛动力,这就是资源更新的源泉。谢谢大家的支持!
教育应该是免费的,但需要你无私的奉献.发点侵权的资源作者应该不会介意吧!就当为你做宣传了,真心的感谢你的支持!!!
离线weegee

发帖
430
金钱
4962
威望
0
贡献值
0
只看该作者 1 发表于: 2008-05-06
大家对如何解包和用什么工具解包不是很了解,现在把铺子里所有常用的解包工具集合下载及简单使用方法介绍如下:
压缩包内包含以下四个常用解包工具:
1、Tomdb.mdb是老兵的常用文件名称,用“打包基地老兵专用解压工具.vbs”解包;
2、HYTOP.mdb和aspadmin和packet.mdb是海洋打包的常用名称,用“海洋解压缩工具unpack.vbs”解包;
3、mc.mdb是天使之翼团队常用的,用“mc.vbs”解包;
4、“unpack.vbs”被称为是万能解包代码
使用方法:将压缩包内相对应的.vbs文件和下载下来的包.mdb文件放同一目录直接运行双击运行解包的.vbs文件即可。





如果包里不是以上常用文件名称,你可以用记事本 打开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 Until 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 "所有文件释放完毕!"
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


以上红色的文件名字就是解包需要的名称。即把JPG.GIF.MDB打包文件,修改成我们找到的名称,运行解包工具,就可以在当前目录生成解出来的 文件【网站代码】
离线keryd
发帖
17
金钱
22260
威望
0
贡献值
0
只看该作者 2 发表于: 2008-07-16
解包以后,释放出来的文件在哪找呀?
离线wdrai
发帖
32
金钱
16570
威望
0
贡献值
0
只看该作者 3 发表于: 2008-10-21
找不到释放后的文件啊
离线admin

发帖
17024
金钱
88496309
威望
88
贡献值
20069
只看该作者 4 发表于: 2009-05-20
解出来的 代码就会在当前目录里产生, 如果没有解出来.就换另一个工具解,[不同的解包工具,需要修改包的名称,必须是匹配的]
感觉帖子好请点击下论坛的广告。这就是论坛动力,这就是资源更新的源泉。谢谢大家的支持!
教育应该是免费的,但需要你无私的奉献.发点侵权的资源作者应该不会介意吧!就当为你做宣传了,真心的感谢你的支持!!!
离线gdowei

发帖
41
金钱
410
威望
0
贡献值
0
只看该作者 5 发表于: 2017-03-13
找不到释放后的文件啊
快速回复
限100 字节
 
上一个 下一个