冒险解谜游戏中文网 ChinaAVG

标题: [简单教程]解包器的分析与制作动画教程动画A+B部分 [打印本页]

作者: firendless 时间: 2009-4-21 04:58
标题: [简单教程]解包器的分析与制作动画教程动画A+B部分
分析教程内有QQ邮件已经过期
等FTP好了我再上传

上传完毕
ftp好像上传了看不到下载目录..或许我的账号有误吧

写了那么久，值得鼓励一下吧~回帖吧~

刚刚发完就给下载了...不回帖支持~不厚道么~内附解包代码

[strike]QQmail上传ing...[/strike]

教程分上下，A是准备工作和废话
B是废话+操作

水品有限...所以东西自然也有限，高手自觉略过吧.....

主要代码拷贝到这里了，那个俺学习的时候，给我踩踩blog...

教程补充：
这个只是一个demo而已..还有太多地方该去改进，这个活交给聪明的你了。
本来还有一个小工具的，可是呢，受限于信用问题，已经投稿便不能发了。。。
操作文件C是王道，但是使用其他工具也没有问题的，甚至是轻量脚本php
如果你也用VB6或者VBNET可以考虑FSO,[其实和GET PUT一样的]
例子中没有告诉大家要注意资源的使用，比如初始化[虽然我有做]和
注销使用了的变量,我放到程序结束的时候了。
程序中没有检验传入数据，请注意，那个提取我检验过了，所以就删除掉了，
那个indexB，的范围改成图片的数量就可以了，估计是手误吧...
前面几个字符的处理其实也简单，不停的更换前面的那个头部结构声明，然后读取
看看能和什么匹配就好，或者你就跟踪程序操作文件吧，在读取文件的API处下断
我去学习了，所以去踩博客吧~呵呵~

Private Sub FirUnPack2()
Dim strPathLen As Integer
Dim strPathChar() As String * 1
Dim strResPath As String
Dim intSize As Integer
Dim bData() As Byte
Dim lngSize As Long
Dim strFilePath As String
Dim tmpStep As Single, lngIndex As Long, lngFileNumA As Long, lngFileNumB As Long
strFilePath = App.Path & "\test.adv"
lngFileNumA = FreeFile
tmpStep = &HC + 1
Dim lngIndexB As Long
Open strFilePath For Binary As #lngFileNumA
For lngIndexB = 0 To 1064
Get #lngFileNumA, tmpStep, strPathLen
ReDim strPathChar(1 To strPathLen)
tmpStep = tmpStep + 4
Get #lngFileNumA, tmpStep, strPathChar()
strResPath = ""
For lngIndex = 1 To strPathLen
strResPath = strResPath & strPathChar(lngIndex)
Next
tmpStep = tmpStep + Len(strResPath) + 2
Get #lngFileNumA, tmpStep, intSize
If intSize = 0 Then
tmpStep = tmpStep - 2
Get #lngFileNumA, tmpStep, intSize
If intSize < 0 Then
lngSize = 65536 + intSize
ReDim bData(1 To lngSize)
tmpStep = tmpStep + 4
Get #lngFileNumA, tmpStep, bData()
tmpStep = tmpStep + lngSize
Else
ReDim bData(1 To intSize)
tmpStep = tmpStep + 4
Get #lngFileNumA, tmpStep, bData()
tmpStep = tmpStep + intSize
End If
Else
tmpStep = tmpStep - 2
Get #lngFileNumA, tmpStep, lngSize
ReDim bData(1 To lngSize)
tmpStep = tmpStep + 4
Get #lngFileNumA, tmpStep, bData()
tmpStep = tmpStep + lngSize
End If
lngFileNumB = FreeFile
CreateNewDirectory (Mid$(strResPath, 1, InStrRev(strResPath, "\")))
strFilePath = strResPath
Open strFilePath For Binary As #lngFileNumB
Put #lngFileNumB, 1, bData()
Close #lngFileNumB
Next lngIndexB
Close #lngFileNumA
End Sub

复制代码

[/hide]

作者: firendless 时间: 2009-4-21 04:59
自己的沙发自己占~

作者: shane007 时间: 2009-4-21 06:09
强烈支持

作者: 灰色小狼 时间: 2009-5-3 13:03
支持了 [s:2]

作者: byp100 时间: 2009-5-5 20:23
支持一下，下来学习看看，谢谢

作者: jimi 时间: 2009-5-6 13:32
这个是什么东西啊？

作者: xia120 时间: 2009-5-6 20:32
强烈支持楼主

作者: xia120 时间: 2009-5-6 20:37
楼主更新下下载地址吧

作者: jobwkg 时间: 2009-5-26 00:11
有點興趣...下看看

作者: 888888 时间: 2009-5-26 10:44
十分感谢！

作者: dreamburn 时间: 2009-5-27 13:04
恩，看看能不能看懂。。

作者: monkey3515 时间: 2009-8-26 21:30
嗯，是应该回帖表示感谢

作者: bioleo 时间: 2009-8-26 21:48
有兴趣，要看看

作者: behindc2d 时间: 2009-8-27 08:25
进来学习一番

作者: 颂妖精 时间: 2009-8-29 09:28
究竟是啥玩意儿？

作者: clark 时间: 2009-8-29 10:46
支持！学习一下。

作者: laobubu 时间: 2009-8-29 17:28
还要回复？嗯，就回复吧

作者: lydlcy22 时间: 2009-9-1 22:41
看看,学习一下

作者: bosses 时间: 2009-9-2 16:10
强烈支持楼主

作者: imarius 时间: 2009-9-13 11:39
还能下吗？

作者: xiaotong7891 时间: 2009-9-14 12:04
谢谢楼主发布

作者: wujia 时间: 2009-9-17 12:14
学习下看看怎么做的

作者: tydzjing 时间: 2009-9-19 14:30
很迫切的想要学习这方面的东西谢谢

作者: jinsha 时间: 2009-9-19 19:44
。。

怎么不多说明下，什么解包器的说明？分析的什么包。。。

作者: 火虹涩 时间: 2009-9-24 17:35
学习一下技术咯~算不算挖坟？不过……回复可见，我也没有办法啊……

刚刚试了一下，发现已经不能下载了？

作者: 皮子陈 时间: 2009-10-8 00:20
呵呵。一定要好好地看看。

作者: 慕容枫叶 时间: 2009-10-8 08:02
等FTP开放后我再上传

作者: 皮子陈 时间: 2009-10-8 11:29
什么时候可以开放，我现在很需要这样的视频呢

作者: foxmasan 时间: 2009-10-22 11:39
偶也来参与一下，看看效果

作者: baharing 时间: 2009-10-22 13:34
学习学习

作者: freeskyboy 时间: 2009-10-27 01:20
学习帖子不可放过，多谢指导！

作者: snowind 时间: 2009-10-29 19:51
进来学习下。

作者: taipoapo 时间: 2009-10-29 20:05
正需要这东西

作者: fenqingfj 时间: 2009-11-29 06:15
感谢分享

作者: youku5 时间: 2009-12-14 19:58
下来看看 [s:19] [s:19]

作者: lijingxing 时间: 2009-12-18 18:47
支持楼主，这是个学习的好机会啊~！

作者: z070204z 时间: 2009-12-18 18:51
顶。。。。

作者: yianti 时间: 2009-12-21 17:07
学习学习

作者: windmill99 时间: 2009-12-24 19:50
能否了解到一点基础

作者: 小茶碗 时间: 2009-12-30 15:00
我是本着学习的态度过来的

作者: ryanluo 时间: 2009-12-31 12:25
感謝分享

作者: 飘云 时间: 2010-1-2 18:04
强烈支持，正想学习这类东西

作者: welkindemon 时间: 2010-1-3 12:44
解包器……学习学习……

作者: paulhou 时间: 2010-1-4 08:53
支持下。

作者: beegame 时间: 2010-1-6 17:05
学习，谢谢分享

作者: caity 时间: 2010-2-18 12:49
辛苦LZ了~十分感谢 [s:45]

作者: jwills 时间: 2010-2-18 17:43
欣赏欣赏楼主的杰作

作者: hrceo 时间: 2010-2-19 20:30
下了看看！

作者: huhe3000 时间: 2010-2-24 23:21
太好了，收下。

作者: zozi11 时间: 2010-2-25 18:26
看看 =。=

作者: 竹のかぐや姫 时间: 2010-2-28 16:47
来围观的某只...

作者: kaninchen 时间: 2010-3-9 19:18
喵...围观

作者: 月夜玫瑰 时间: 2010-3-9 23:52
学习一下来。

作者: 野次马 时间: 2010-3-11 18:53
支持了！

作者: canmover 时间: 2010-3-11 18:57
目前还没制作解包器的基础，先浏览下。

作者: archertech 时间: 2010-3-13 07:56
看一看,学习学习

作者: cmou 时间: 2010-3-17 21:25
有FTP?

作者: 修普诺斯 时间: 2010-3-17 21:50
再看下吧

作者: shane007 时间: 2010-3-17 22:30

引用第57楼cmou于2010-03-17 21:25发表的 :1 @& O+ c8 c7 N" W1 |
有FTP?

恩，是的。

作者: sync 时间: 2010-3-18 21:21
看看先

作者: jiafei2427 时间: 2010-3-18 21:52
学习啊学习 [s:44]

作者: systemcheste 时间: 2010-4-1 20:48
学习，一定要学习
我会解包我自豪

作者: scgame 时间: 2010-4-2 08:52
哇塞,很有用的东西啊

作者: jinxin8866 时间: 2010-4-2 10:50
谢谢分享

作者: boldness 时间: 2010-4-6 21:36
不强烈而是淡淡的支持LZ

作者: shh0613 时间: 2010-4-8 15:07
学习下，谢谢分享！

作者: shh0613 时间: 2010-4-8 15:11
下不了！汗！

作者: rendu2mai 时间: 2010-4-15 09:19
我来顶楼主

作者: leikaiwei 时间: 2010-4-15 22:28
[s:64] 学习...

作者: bandaot 时间: 2010-4-19 19:20
kankana

作者: penguinl 时间: 2010-4-23 05:52
视频教程可是好东西啊，楼主辛苦了！

作者: kusomadao 时间: 2010-4-28 12:01
感谢楼主！

作者: ahatty 时间: 2010-4-30 03:43
看看。~

作者: sims 时间: 2010-4-30 17:28
强烈支持

作者: qq1122ww 时间: 2010-4-30 23:10
来学习的

作者: chinaavgwolf 时间: 2010-5-2 10:29
我顶！

作者: rensha1987 时间: 2010-5-16 01:21
来看看

作者: xiaosd 时间: 2010-5-16 14:57
学习一下~~谢谢分享~

作者: shenjunfeng 时间: 2010-5-25 00:38
强烈支持

作者: gvg110119 时间: 2010-5-26 10:14
十分感谢！

作者: zpf0916 时间: 2010-5-30 23:20
支持，看看了~

作者: swlong 时间: 2010-6-2 10:38
什么样的解包器?
先谢谢哈

作者: ooo200010 时间: 2010-6-3 20:11
hao

作者: ooo200010 时间: 2010-6-3 20:15
不能用了

作者: fishround 时间: 2010-6-14 23:24
学习～

作者: feelspace 时间: 2010-6-15 21:18
这个要看看~~~谢谢

作者: xuemoyuan 时间: 2010-6-16 13:09
....看看[s:66]

作者: evarainy 时间: 2010-6-17 16:38
........以前怎么没看见这个帖子

作者: 小小阶梯 时间: 2010-6-19 14:24
学习学习！

作者: tango 时间: 2010-6-26 17:34
看看学习[s:77]

作者: tangelridiia 时间: 2010-7-13 09:07
解包是个强大的工作

作者: mckay 时间: 2010-7-14 16:51
学习学习资源还有效么...

作者: haozi 时间: 2010-7-19 00:42
太感谢

作者: conax 时间: 2010-7-20 22:39
这个是什么东西啊？

作者: xjt06411 时间: 2011-5-16 20:42
对解包器有点兴趣，谢谢分享

作者: swko123456 时间: 2011-5-17 00:42
LOOK一LOOK!

欢迎光临冒险解谜游戏中文网 ChinaAVG (https://chinaavg.com/)

Powered by Discuz! X3.2