-
-
(邀请码已发)[原创]CrackME算法追踪，适合新手.(申请邀请码)
-
发表于:
2010-7-5 14:54
5920
-
(邀请码已发)[原创]CrackME算法追踪，适合新手.(申请邀请码)
本人苦于没有邀请码，注册了很久未能转正，原来可以发文申请，早知道我就不用等到这个时候了。
本人自学Delphi，写了一个CM
源程序在此：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Label4: TLabel;
Label5: TLabel;
Panel1: TPanel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
name,pwd:string;
s2:longword;
i:integer;
begin
name:=Edit1.Text;
s2:=1;
for i:=1 to length(name) do
s2:=ord(name[i])*i+s2;
s2:=S2*65535;
pwd:=inttostr(s2);
if CompareStr(pwd,Edit2.Text)=0 then
Label3.Caption:='Wellcome!!'
else
Label3.Caption:='Error,Please trying again!!';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
00451848 > $ 55 push ebp //载入之后停在此处
00451849 . 8BEC mov ebp,esp
0045184B . 83C4 F0 add esp,-10
0045184E . B8 68164500 mov eax,crackme.00451668
00451853 . E8 7043FBFF call crackme.00405BC8
00451858 . A1 18304500 mov eax,dword ptr ds:[453018]
0045185D . 8B00 mov eax,dword ptr ds:[eax]
0045185F . E8 B8E4FFFF call crackme.0044FD1C
00451864 . 8B0D F4304500 mov ecx,dword ptr ds:[4530F4] ; crackme.00454BD0
0045186A . A1 18304500 mov eax,dword ptr ds:[453018]
0045186F . 8B00 mov eax,dword ptr ds:[eax]
00451871 . 8B15 BC124500 mov edx,dword ptr ds:[4512BC] ; crackme.00451308
00451877 . E8 B8E4FFFF call crackme.0044FD34
0045187C . A1 18304500 mov eax,dword ptr ds:[453018]
00451881 . 8B00 mov eax,dword ptr ds:[eax]
00451883 . E8 2CE5FFFF call crackme.0044FDB4 //算法Call
00451888 . E8 9324FBFF call crackme.00403D20
[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课
