delphi写的这段代码主要是一个给对应的号写入代码的！帮忙分析一下在哪里改跳转才能让它不限制号可以写入！小弟刚研究破解！望各位帮一把！引小弟早进步！！！谢谢！！！！！！！！！！！！
代码如下 dede反编 procedure TForm1.ButtonWriteClick(Sender : TObject);
begin
(*
00450290 55 push ebp
00450291 8BEC mov ebp, esp
00450293 81C434FFFFFF add esp, $FFFFFF34
00450299 53 push ebx
0045029A 56 push esi
0045029B 57 push edi
0045029C 33C9 xor ecx, ecx
0045029E 894DFC mov [ebp-$04], ecx
004502A1 8BD8 mov ebx, eax
004502A3 33C0 xor eax, eax
004502A5 55 push ebp
* Possible String Reference to: '辁3?腽_^[?]?
|
004502A6 6815044500 push $00450415
***** TRY
|
004502AB 64FF30 push dword ptr fs:[eax]
004502AE 648920 mov fs:[eax], esp
004502B1 33C0 xor eax, eax
* Reference to GlobalVar_00460BD0
|
004502B3 A3D00B4600 mov dword ptr [$00460BD0], eax
004502B8 33C0 xor eax, eax
* Reference to GlobalVar_00460BDC
|
004502BA A3DC0B4600 mov dword ptr [$00460BDC], eax
004502BF BE24044500 mov esi, $00450424
004502C4 8DBD34FFFFFF lea edi, [ebp+$FFFFFF34]
004502CA B90C000000 mov ecx, $0000000C
004502CF F3 rep
004502D0 A5 movsd
004502D1 A4 movsb
004502D2 8D8535FFFFFF lea eax, [ebp+$FFFFFF35]
* Reference to GlobalVar_00460BE4
|
004502D8 A3E40B4600 mov dword ptr [$00460BE4], eax
004502DD C705D80B460030000000 mov dword ptr [$00460BD8], $00000030
004502E7 33C0 xor eax, eax
* Reference to GlobalVar_00460BD4
|
004502E9 A3D40B4600 mov dword ptr [$00460BD4], eax
|
004502EE E877A00000 call 0045A36A
004502F3 BE58044500 mov esi, $00450458
004502F8 8DBD34FFFFFF lea edi, [ebp+$FFFFFF34]
004502FE B90C000000 mov ecx, $0000000C
00450303 F3 rep
00450304 A5 movsd
00450305 A4 movsb
00450306 8D8535FFFFFF lea eax, [ebp+$FFFFFF35]
* Reference to GlobalVar_00460BE4
|
0045030C A3E40B4600 mov dword ptr [$00460BE4], eax
00450311 C705D80B460030000000 mov dword ptr [$00460BD8], $00000030
0045031B C705D40B460030000000 mov dword ptr [$00460BD4], $00000030
|
00450325 E840A00000 call 0045A36A
0045032A BE8C044500 mov esi, $0045048C
0045032F 8DBD34FFFFFF lea edi, [ebp+$FFFFFF34]
00450335 B90C000000 mov ecx, $0000000C
0045033A F3 rep
0045033B A5 movsd
0045033C A4 movsb
0045033D 8D8535FFFFFF lea eax, [ebp+$FFFFFF35]
* Reference to GlobalVar_00460BE4
|
00450343 A3E40B4600 mov dword ptr [$00460BE4], eax
00450348 C705D80B460030000000 mov dword ptr [$00460BD8], $00000030
00450352 C705D40B460060000000 mov dword ptr [$00460BD4], $00000060
|
0045035C E809A00000 call 0045A36A
00450361 BEC0044500 mov esi, $004504C0
00450366 8DBD34FFFFFF lea edi, [ebp+$FFFFFF34]
0045036C B90E000000 mov ecx, $0000000E
00450371 F3 rep
00450372 A5 movsd
00450373 A4 movsb
00450374 8D8535FFFFFF lea eax, [ebp+$FFFFFF35]
* Reference to GlobalVar_00460BE4
|
0045037A A3E40B4600 mov dword ptr [$00460BE4], eax
0045037F C705D80B460038000000 mov dword ptr [$00460BD8], $00000038
00450389 C705D40B460090000000 mov dword ptr [$00460BD4], $00000090
|
00450393 E8D29F0000 call 0045A36A
00450398 85C0 test eax, eax
0045039A 740F jz 004503AB
0045039C 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '失败，没空狗.'
|
0045039F BA04054500 mov edx, $00450504
* Reference to: System.@LStrLAsg(void;void;void;void);
|
004503A4 E8FF3AFBFF call 00403EA8
004503A9 EB3F jmp 004503EA
004503AB 33C0 xor eax, eax
* Reference to GlobalVar_00460BD0
|
004503AD A3D00B4600 mov dword ptr [$00460BD0], eax
004503B2 33C0 xor eax, eax
* Reference to GlobalVar_00460BDC
|
004503B4 A3DC0B4600 mov dword ptr [$00460BDC], eax
004503B9 C705E80B4600AA070000 mov dword ptr [$00460BE8], $000007AA
|
004503C3 E81E9C0000 call 00459FE6
004503C8 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '写成功.'
|
004503CB BA2C054500 mov edx, $0045052C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
004503D0 E8D33AFBFF call 00403EA8
004503D5 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrToPChar(String):PAnsiChar;
|
004503D8 E8F33EFBFF call 004042D0
004503DD 8BD0 mov edx, eax
* Reference to control TForm1.LabelResult : TLabel
|
004503DF 8B830C030000 mov eax, [ebx+$030C]
* Reference to: Controls.TControl.SetTextBuf(TControl;PChar);
|
004503E5 E8F2F0FDFF call 0042F4DC
004503EA 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrToPChar(String):PAnsiChar;
|
004503ED E8DE3EFBFF call 004042D0
004503F2 8BD0 mov edx, eax
* Reference to control TForm1.LabelResult : TLabel
|
004503F4 8B830C030000 mov eax, [ebx+$030C]
* Reference to: Controls.TControl.SetTextBuf(TControl;PChar);
|
004503FA E8DDF0FDFF call 0042F4DC
004503FF 33C0 xor eax, eax
00450401 5A pop edx
00450402 59 pop ecx
00450403 59 pop ecx
00450404 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[?]?
|
00450407 681C044500 push $0045041C
0045040C 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
0045040F E8FC39FBFF call 00403E10
00450414 C3 ret
* Reference to: System.@HandleFinally;
|
00450415 E9FA33FBFF jmp 00403814
0045041A EBF0 jmp 0045040C
****** END
|
0045041C 5F pop edi
0045041D 5E pop esi
0045041E 5B pop ebx
0045041F 8BE5 mov esp, ebp
00450421 5D pop ebp
00450422 C3 ret
*)
end;
procedure TForm1.GroupBox1Click(Sender: TObject);
begin
end;
end.
各位前辈，如何修改达到不识别号自动写入的目的？哪里跳？
[招生]科锐逆向工程师培训(2024年11月15日实地，远程教学同时开班, 第51期)
别打我
