Have fun.

CrackMe7.rar

Edited July 21, 200916 yr by MIB

First, learn to check what you yourself wrote

00454EC4  |.  8D55 D8       LEA EDX,[LOCAL.10]
00454EC7  |.  8B45 FC       MOV EAX,[LOCAL.1]
00454ECA >|.  8B80 10030000 MOV EAX,DWORD PTR DS:[EAX+310]           ;  *TForm1.Label3:TLabel
00454ED0 >|.  E8 47EEFDFF   CALL <@Controls@TControl@GetText$qqrv>   ;  ->Controls.TControl.GetText(TControl):TCaption;
00454ED5  |.  8B45 D8       MOV EAX,[LOCAL.10]
00454ED8 >|.  E8 2FF2FAFF   CALL <00:?>                              ;  ->System.@LStrLen(String):Integer;
00454EDD  |.  8BD8          MOV EBX,EAX
00454EDF  |.  8D55 D4       LEA EDX,[LOCAL.11]
00454EE2  |.  8B45 FC       MOV EAX,[LOCAL.1]
00454EE5 >|.  8B80 10030000 MOV EAX,DWORD PTR DS:[EAX+310]           ;  *TForm1.Label3:TLabel
00454EEB >|.  E8 2CEEFDFF   CALL <@Controls@TControl@GetText$qqrv>   ;  ->Controls.TControl.GetText(TControl):TCaption;
00454EF0  |.  8B45 D4       MOV EAX,[LOCAL.11]
00454EF3  |.  8A5C18 FE     MOV BL,BYTE PTR DS:[EAX+EBX-2]      <-- Error!!

you try to take the byte at [value from Label3.Text + Lenght(Label3.Text) - 2], and you Label3.Text := '', then value from Label3.Text = 0, and Lenght(Label3.Text) = 0, then you take byte from [0 + 0 - 2] ????????????

Edited July 21, 200916 yr by BoRoV

Sorry,my mistake.Uploaded the new archive now,you can give it a new try.

Username: MiB

Password: edleteit

Congratulations,correct.