-
-
[原创]热血江湖V40004版喊话CALL(Delphi2010源码)
-
2010-2-2 23:28
4129
-
[原创]热血江湖V40004版喊话CALL(Delphi2010源码)
热血江湖最新V40004版的喊话CALL,找了好长时间也无法找到,只找到了逐字符发送的CALL,由于我是在DELPHI2010版下写的代码,所以字符串做了些转换,2010版以下就不用转换直接用了.有时间我会慢慢找其他CALL,有兴趣请到www.tansoo.cn查看
procedure TfrmMain.Button1Click(Sender: TObject);
var
neirong: PAnsiChar;
I: Integer;
// 发送字符的CALL
procedure SendByte(b:Byte);
var
Address: Pointer;
begin
Address := Pointer($0043C380);
asm
pushad
xor eax, eax
mov al,
mov edi, $00020001
mov esi, dword ptr [$1700910]
mov ecx, esi
push edi
push eax
call Address
popad
end;
end;
begin
// 将Unicode字符串转换成PAnsiChar型,并在最后加个回车符
neirong := PAnsiChar(AnsiString(Edit3.Text)+#$0D);
// 逐一发送字符
for I := 0 to Length(neirong)-1 do
SendByte(Byte(neirong[i]));
end;
[培训]《安卓高级研修班(网课)》月薪三万计划，掌握调试、分析还原ollvm、vmp的方法，定制art虚拟机自动化脱壳的方法
