易语言教程_易语言源码_易语言写挂_易语言论坛_看流星社区

 找回密码
 注册
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
赞助广告位 请点击这里联系站长 QQ20209081
赞助广告位 请点击这里联系站长 QQ20209081
赞助广告位 请点击这里联系站长 QQ20209081
楼主: 悠然天下

OllyDBG入门电子书 下载

  [复制链接]
发表于 2012-12-7 03:25:49 | 显示全部楼层
发表于 2012-12-12 22:34:24 | 显示全部楼层
看看!!!!!!!看看!!!!!!!
发表于 2012-12-15 02:22:43 | 显示全部楼层
很好很好,下来看看
发表于 2013-2-1 18:03:43 | 显示全部楼层
正要找这方面的东西
发表于 2013-2-4 15:06:29 | 显示全部楼层
来看下,怎么样
发表于 2013-2-4 19:23:52 | 显示全部楼层
感谢楼主分享
发表于 2013-2-7 16:14:02 | 显示全部楼层
高效率的VB特征码搜索

本人的全部测试代码

本帖隐藏的内容需要回复才可以浏览

Option Explicit
Private Declare Function GetTickCount Lib kernel32  () As Long
Dim 缓冲区() As Byte, 字节数 As Long
Dim Hex字符串 As String

Private Sub 测试1_Click()
Dim 测试字符串 As String
测试字符串 = 我爱狼狼
缓冲区 = StrConv(测试字符串, vbFromUnicode)
Debug.Print StrConv(BinToHex(缓冲区), vbUpperCase)
End Sub

Public Function BinToHex(iArray() As Byte) As String
Dim iXml As New MSXML2.DOMDocument30
With iXml.createElement(Encoder)
.dataType = bin.hex
.nodeTypedValue = iArray()
BinToHex = .Text
End With
'Set iXml = Nothing
End Function

Private Sub 测试2_Click()
Dim Temp As Long
Temp = GetTickCount
Call 打开文件(E游戏类网络游戏《完美世界》国际版elementclient.exe)
Text2.Text = 特征码查找(Hex字符串, Text3.Text)
'Text2.Text = 特征码查找(Hex字符串, 6489250000000083EC18535556575068, YYYYYYYYYYYYYY)
MsgBox 字节数: & 字节数 & 字节 & vbCrLf & 耗时: & Trim(GetTickCount - Temp)  1000 & 秒, , 我爱狼狼

End Sub

Function 打开文件(ByVal 文件名 As String) As Byte()
On Error Resume Next
Dim 序号 As Integer
序号 = FreeFile '自动生成序号

Open 文件名 For Binary As #序号
    字节数 = LOF(序号)
    ReDim 缓冲区(1 To 字节数) As Byte
    Get #序号, , 缓冲区
Close #序号
Me.Caption = BinToHex测试 By 克隆狼 -  & 文件名
Hex字符串 = BinToHex(缓冲区)
'Text1.Text = Hex字符串
'Debug.Print UCase(Hex字符串)
End Function

Function 特征码查找(ByVal Hex格式字符串 As String, ByVal 特征码 As String, Optional ByVal 替换成的字符 As String = Y) As String
Dim 需要替换长度 As Long, 替换字符 As String
Dim 找到的位置 As Long
特征码 = LCase(Replace(Trim(特征码),  , ))
需要替换长度 = (Len(特征码)  2)  2
替换字符 = Trim(String(需要替换长度, LCase(Mid(替换成的字符, 1, 1))))

Hex格式字符串 = LCase(Replace(Trim(Hex格式字符串), 特征码, 替换字符))
找到的位置 = InStr(Hex格式字符串, 替换字符)  2
特征码查找 = Hex(找到的位置)
'Debug.Print UCase(Hex格式字符串)
'Debug.Print UCase(特征码)
'Debug.Print UCase(替换字符)
End Function
复制代码
发表于 2013-2-7 22:34:28 | 显示全部楼层
uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuukkkkkkkkkkkkkkkkkkkkkkkkkk
发表于 2013-2-8 19:44:44 | 显示全部楼层
额,让我等小白前来研究研究,各路大神不要喷......
发表于 2013-2-18 02:39:12 | 显示全部楼层
回复一下啊
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|看流星社区  |网站地图

GMT+8, 2018-10-18 01:17 易语言论坛 易语言导航

Powered by 看流星社区 X3.2

©2011-2016 最好的辅助编程技术论坛

快速回复 返回顶部 返回列表