[简单教程]解包器的分析与制作动画教程 动画A+B部分

firendless

分析教程内有QQ邮件    已经过期
等FTP好了我再上传

: K- v* F( _  E# Q' ^
3 X6 x; N. {1 O4 l, R- h2 ^上传完毕
4 E3 t1 S! x% }) oftp好像上传了看不到下载目录..或许我的账号有误吧

" q' X7 i. R3 \' I# }& B6 k, q$ k" \写了那么久，值得鼓励一下吧~回帖吧~

* J! \$ r0 Z7 x刚刚发完就给下载了...不回帖支持~不厚道么~内附解包代码
  v7 D% w& y1 [

游客，如果您要查看本帖隐藏内容请回复

& y+ R  X7 r( D9 i) Q1 D

( V" N( Y' Q) y0 `& i* ]' X
[strike]QQmail上传ing...[/strike]
( @* O! b3 T% M- o1 t2 N* u5 `
! X4 y( g3 H1 E) K7 {教程分上下，A是准备工作和废话
, |* ^$ J8 O- N7 v            B是废话+操作

4 E3 Q; N2 T( }6 e. g5 @9 c8 G3 D水品有限...所以东西自然也有限，高手自觉略过吧.....
5 M9 m9 M. k9 o3 q; t  t5 A3 y. X
主要代码拷贝到这里了，那个俺学习的时候，给我踩踩blog...
# ]- F  ^0 f4 ]; a% B( L
& B! l1 a, ?  J  s教程补充：   
这个只是一个demo而已..还有太多地方该去改进，这个活交给聪明的你了。   
+ T* h% f* [: }本来还有一个小工具的，可是呢，受限于信用问题，已经投稿便不能发了。。。
5 E( L5 N& S  _$ u4 w操作文件C是王道，但是使用其他工具也没有问题的，甚至是轻量脚本php
如果你也用VB6或者VBNET可以考虑FSO,[其实和GET PUT一样的]
例子中没有告诉大家要注意资源的使用，比如初始化[虽然我有做]和
注销使用了的变量,我放到程序结束的时候了。
, v6 H& L1 K1 M  q) T' ^5 t程序中没有检验传入数据，请注意，那个提取我检验过了，所以就删除掉了，
8 S% Q; d( ]% S/ d 那个indexB，的范围改成图片的数量就可以了，估计是手误吧...
! a+ S  T- q1 E0 J 前面几个字符的处理其实也简单，不停的更换前面的那个头部结构声明，然后读取
4 I& L6 ?. u4 u. d6 |  |看看能和什么匹配就好，或者你就跟踪程序操作文件吧，在读取文件的API处下断
# k/ v2 Q  u, H" t; q( |5 H3 m我去学习了，所以去踩博客吧~呵呵~

1. Private Sub FirUnPack2()
3.     Dim strPathLen    As Integer
5.     Dim strPathChar() As String * 1
7.     Dim strResPath    As String
9.     Dim intSize       As Integer
11.     Dim bData()       As Byte
13.     Dim lngSize       As Long
15.     Dim strFilePath   As String
17.     Dim tmpStep       As Single, lngIndex As Long, lngFileNumA As Long, lngFileNumB As Long
19.     strFilePath = App.Path & "\test.adv"
20.     lngFileNumA = FreeFile
21.     tmpStep = &HC + 1
23.     Dim lngIndexB As Long
25.     Open strFilePath For Binary As #lngFileNumA
26.    
27.     For lngIndexB = 0 To 1064
29.         Get #lngFileNumA, tmpStep, strPathLen
31.         ReDim strPathChar(1 To strPathLen)
32.         tmpStep = tmpStep + 4
33.         Get #lngFileNumA, tmpStep, strPathChar()
34.         strResPath = ""
36.         For lngIndex = 1 To strPathLen
37.             strResPath = strResPath & strPathChar(lngIndex)
38.         Next
39.    
40.         tmpStep = tmpStep + Len(strResPath) + 2
41.         Get #lngFileNumA, tmpStep, intSize
42.        
43.         If intSize = 0 Then
44.             tmpStep = tmpStep - 2
45.             Get #lngFileNumA, tmpStep, intSize
46.    
47.             If intSize < 0 Then
48.                 lngSize = 65536 + intSize
49.                 ReDim bData(1 To lngSize)
50.                 tmpStep = tmpStep + 4
51.                 Get #lngFileNumA, tmpStep, bData()
52.    
53.                 tmpStep = tmpStep + lngSize
54.    
55.             Else
56.    
57.                 ReDim bData(1 To intSize)
58.                 tmpStep = tmpStep + 4
59.                 Get #lngFileNumA, tmpStep, bData()
60.    
61.                 tmpStep = tmpStep + intSize
62.    
63.             End If
65.         Else
66.             tmpStep = tmpStep - 2
67.             Get #lngFileNumA, tmpStep, lngSize
68.             ReDim bData(1 To lngSize)
69.             tmpStep = tmpStep + 4
70.             Get #lngFileNumA, tmpStep, bData()
72.             tmpStep = tmpStep + lngSize
74.         End If
75.    
76.         lngFileNumB = FreeFile
77.         CreateNewDirectory (Mid$(strResPath, 1, InStrRev(strResPath, "\")))
78.         strFilePath = strResPath
79.         Open strFilePath For Binary As #lngFileNumB
80.         Put #lngFileNumB, 1, bData()
81.         Close #lngFileNumB
83.     Next lngIndexB
85.     Close #lngFileNumA
87. End Sub

复制代码

[/hide]

firendless

自己的沙发自己占~

shane007

强烈支持

灰色小狼

支持了 [s:2]

byp100

支持一下，下来学习看看，谢谢

jimi

这个是什么东西啊？

xia120

强烈支持楼主

xia120

楼主更新下下载地址吧

jobwkg

有點興趣...下看看

888888

十分感谢！