能力值:
( LV9,RANK:420 )
2 楼
对楼主过敏中
能力值:
( LV9,RANK:290 )
3 楼
爆破了!嘿嘿!~~```
能力值:
( LV6,RANK:90 )
4 楼
Name:请哥慢捂
Code:#$15#$50#$06#$12#$12#$2C#$0E#$52
if (Edit1.Text<>'') and (Edit2.Text<>'')
then
begin
//if Edit2.text=test(Edit1.text) then
if StringDecrypt(DisplayToString(Edit2.Text), cKey)=Edit1.text then
begin
ShowMessage('ok');
end
else
begin
ShowMessage('no');
end;
end;
cKey = '一觉醒来,满眼惨绿'
注册几个函数地址
ShowMessage 调用MessageDlg函数
DisplayToString 输入串转换成字符串
StringDecrypt code的字符串和key的字符串逐位xor
004B6ECB |. 6A 00 PUSH 0 ; /Arg2 = 00000000 004B6ECD |. 6A 00 PUSH 0 ; |Arg1 = 00000000 004B6ECF |. B9 C4274300 MOV ECX, 004327C4 ; |Entry address 004B6ED4 |. BA 60744B00 MOV EDX, 004B7460 ; |ASCII "procedure ShowMessage(const Msg: string);" 004B6ED9 |. A1 70674B00 MOV EAX, DWORD PTR [4B6770] ; | 004B6EDE |. E8 CD20FFFF CALL 004A8FB0 ; \CrackMe0.004A8FB0 004B6EE3 |. 6A 00 PUSH 0 ; /Arg2 = 00000000 004B6EE5 |. 6A 00 PUSH 0 ; |Arg1 = 00000000 004B6EE7 |. B9 B8694B00 MOV ECX, 004B69B8 ; |Entry address 004B6EEC |. BA 94744B00 MOV EDX, 004B7494 ; |ASCII "function DisplayToString(mDisplay: string): string;" 004B6EF1 |. A1 70674B00 MOV EAX, DWORD PTR [4B6770] ; | 004B6EF6 |. E8 B520FFFF CALL 004A8FB0 ; \CrackMe0.004A8FB0 004B6EFB |. 6A 00 PUSH 0 ; /Arg2 = 00000000 004B6EFD |. 6A 00 PUSH 0 ; |Arg1 = 00000000 004B6EFF |. B9 C86B4B00 MOV ECX, 004B6BC8 ; |Entry address 004B6F04 |. BA D0744B00 MOV EDX, 004B74D0 ; |ASCII "function StringDecrypt(mStr: string; mKey: string): string;" 004B6F09 |. A1 70674B00 MOV EAX, DWORD PTR [4B6770] ; | 004B6F0E |. E8 9D20FFFF CALL 004A8FB0 ; \CrackMe0.004A8FB0
能力值:
( LV9,RANK:290 )
5 楼
楼上的太强了!~~```
能力值:
( LV12,RANK:410 )
6 楼
请哥慢捂
太牛X~~
能力值:
(RANK:1130 )
7 楼
支持delphi的异常嘛?
能力值:
( LV2,RANK:10 )
8 楼
下载了,研究中……
能力值:
( LV3,RANK:30 )
9 楼
太懂算法回来了
能力值:
( LV6,RANK:80 )
10 楼
下来研究下,今天又失眠了,希望能破着破着有点睡意,好睡觉
能力值:
( LV8,RANK:130 )
11 楼
图标我一看就恐怖, 老以为是木马,病毒
能力值:
( LV2,RANK:10 )
12 楼
是不是机器码注册机?我不会用啊。