[求助]求教DELPHI如何反破解？-编程技术-看雪-安全社区|安全招聘|kanxue.com

最新回复 (2)
xiaojiam 雪币： 261 活跃值： (10) 能力值： ( LV6，RANK：90 ) 在线值：发帖 41 回帖 325 粉丝 0 关注私信	xiaojiam 2 2 楼各位高人就开开金口吧！小弟急啊！ 2008-7-15 21:08 0
wr960204 雪币： 126 活跃值： (179) 能力值： ( LV3，RANK：20 ) 在线值：发帖 3 回帖 76 粉丝 0 关注私信	wr960204 3 楼给你个例子.你在Button1Click里面的Test()这行下断点. 按F8跟踪会显示完对话框就会退出.其他情况显示完对话框后正常执行. procedure KillMe(); begin Application.Terminate(); end; procedure Test(); var Msg : String; begin msg := '你好啊'; ShowMessage(Msg); asm mov eax, [ebp + 4] mov ebx, [eax] and ebx, $FF sub ebx, $CC jne @def add eax,5 mov [ebp + 4], eax @def: end; end; procedure TForm1.Button1Click(Sender: TObject); begin Test(); asm jmp @def nop nop nop nop call KillMe @def: end; end; 2008-7-16 17:48 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

最新回复 (2)
xiaojiam 雪币： 261 活跃值： (10) 能力值： ( LV6，RANK：90 ) 在线值：发帖 41 回帖 325 粉丝 0 关注私信	xiaojiam 2 2 楼各位高人就开开金口吧！小弟急啊！ 2008-7-15 21:08 0
wr960204 雪币： 126 活跃值： (179) 能力值： ( LV3，RANK：20 ) 在线值：发帖 3 回帖 76 粉丝 0 关注私信	wr960204 3 楼给你个例子.你在Button1Click里面的Test()这行下断点. 按F8跟踪会显示完对话框就会退出.其他情况显示完对话框后正常执行. procedure KillMe(); begin Application.Terminate(); end; procedure Test(); var Msg : String; begin msg := '你好啊'; ShowMessage(Msg); asm mov eax, [ebp + 4] mov ebx, [eax] and ebx, $FF sub ebx, $CC jne @def add eax,5 mov [ebp + 4], eax @def: end; end; procedure TForm1.Button1Click(Sender: TObject); begin Test(); asm jmp @def nop nop nop nop call KillMe @def: end; end; 2008-7-16 17:48 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复