完美国际发包call优化版(delphi)
来源:互联网 发布:知乎 提拉紧致精华 编辑:程序博客网 时间:2024/05/17 07:27
http://www.ghoffice.com/bbs/simple/t60471.html
uses
StrUtils;
//=========================反写函数=========================
function Anti_writeFun(aa:Integer;len:Integer): string;
var
bb:string;
i:Integer;
begin
bb:=RightStr('0000000'+ string(IntToHex(aa,len)),len);
for i:= 1 to Len div 2 do
begin
result := result + MidStr(bb,len + 1 - 2 * i,2);
end;
end;
type //==========定义参数指针================
PackStructure = packed record //封包结构
Len:dword;//包长
buf:array[0..63]of byte;
end;
//=========================发包Call=========================
procedure callsendPack(packContents:string);stdcall;
var
address:Pointer;
bb:PackStructure;
len,tt:dword;
i,j:integer;
begin
bb.len:=round(length(packContents)/2);
for i:= 1 to bb.len do
begin
j:= i * 2 - 1;
bb.buf[i - 1]:=strtoint('$' + packContents[j] + packContents[j + 1]);
end;
address:=Pointer($0059F330);
len:=pdword(@bb)^;
tt:=dword(@bb)+ 4;
asm
pushad
mov eax,dword ptr DS:[$94C754]
mov ecx,dword ptr DS:[eax+$20]
push len //封包长度
push tt //发包内容地址
call address
popad
end
end;
调用例子:
procedure TForm1.btn13Click(Sender: TObject);
begin
//28 00 00 01 15 00 C7 21 00 00 (28 00 00 01 Pos Id)//发包吃药
callsendPack('28000001'+ Anti_writeFun(1,4) + Anti_writeFun(8617,8));
end;
- 完美国际发包call优化版(delphi)
- delphi 完美发言Call
- [delphi]发段完美国际注入跑路call 全部原代码1
- 发段完美国际注入跑路call 全部原代码
- X游戏发包CALL
- 【小松教你手游开发】【unity实用技能】unity发包优化(android一键发包)
- 外挂学习之路(10)--- 穿透发包线程寻找call的通杀方法
- 阿里旺旺聊天发包CALL发送消息
- 完美国际1
- 完美国际生产任务
- linux网络发包性能优化
- 完美世界 邮件发包结构分析
- ASP完美优化(不断更新)
- OCTEON PKO多队列优化发包效率
- 尾调用优化(Tail Call Optimization)
- Delphi 代码优化(转)
- 完美国际武侠加点 技能 练级
- 紫光大词库完美优化第四版
- 是的,我23岁
- C# 3.0 特性预览(2006-5-20 23:57:00)
- wubi 安装Ubuntu
- tomcat 6.0配置
- 黑客书架上出现频率最高的9部半书籍
- 完美国际发包call优化版(delphi)
- Grideview的高级使用
- 加载loading
- VS2008调试问题,附加到进程----与VS2003的区别
- linux 查看文件内容的命令
- 初学者:介绍NSLog的使用
- 举例说明性能测试中的几个概念
- Char Device Driver Example for Kernel 2.6
- 串口调试软件要读取PLC的DM0000通道数据,命令格式是怎样的?