动画教程,[教程]简单解包的分析和工具的制作
问题和改进在此更新。
补充模块。
教程下载：
CHINAAVG FTP资源内…
水品有限…所以东西自然也有限，高手自觉略过吧…..
教程补充：
这个只是一个demo而已..还有太多地方该去改进，这个活交给聪明的你了。
本来还有一个小工具的，可是呢，受限于信用问题，已经投稿便不能发了。。。
操作文件C是王道，但是使用其他工具也没有问题的，甚至是轻量脚本php
如果你也用VB6或者VBNET可以考虑FSO,[其实和GET PUT一样的]
例子中没有告诉大家要注意资源的使用，比如初始化[虽然我有做]和
注销使用了的变量,我放到程序结束的时候了。
程序中没有检验传入数据，请注意，那个提取我检验过了，所以就删除掉了，
那个indexB，的范围改成图片的数量就可以了，估计是手误吧…
前面几个字符的处理其实也简单，不停的更换前面的那个头部结构声明，然后读取
看看能和什么匹配就好，或者你就跟踪程序操作文件吧，在读取文件的API处下断
我去学习了，所以去踩博客吧~呵呵~
Option Explicit Private Declare Function OpenFile _ Lib "kernel32" (ByVal lpFileName As String, _ lpReOpenBuff As OFSTRUCT, _ ByVal wStyle As Long) As Long Private Type OFSTRUCT cBytes As Byte fFixedDisk As Byte nErrCode As Integer Reserved1 As Integer Reserved2 As Integer szPathName(128) As Byte End Type Public Function FileExist(strFilePath As String) As Boolean Dim lngResult As Long Dim strucFname As OFSTRUCT lngResult = OpenFile(strFilePath, strucFname, &H4000) If lngResult = -1 Then FileExist = False Else FileExist = True End If End Function |
Option Explicit Private Declare Function CreateDirectory _ Lib "kernel32" _ Alias "CreateDirectoryA" (ByVal lpPathName As String, _ lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type Public Sub CreateNewDirectory(NewDirectory As String) Dim sDirTest As String Dim SecAttrib As SECURITY_ATTRIBUTES Dim bSuccess As Boolean Dim sPath As String Dim iCounter As Integer Dim sTempDir As String Dim iFlag As Integer iFlag = 0 sPath = NewDirectory If Right(sPath, Len(sPath)) <> "" Then sPath = sPath & "" End If iCounter = 1 Do Until InStr(iCounter, sPath, "") = 0 iCounter = InStr(iCounter, sPath, "") sTempDir = Left(sPath, iCounter) sDirTest = Dir(sTempDir) iCounter = iCounter + 1 SecAttrib.lpSecurityDescriptor = &O0 SecAttrib.bInheritHandle = False SecAttrib.nLength = Len(SecAttrib) bSuccess = CreateDirectory(sTempDir, SecAttrib) Loop End Sub |
