|
| Author |
Message |
KKR_WE_RULE
Special Member
Joined: 05 Apr 2009
Posts: 346
Location: Eden Gardens
|
 |
|
Yeah...thats true..
But u can embarress GOD!!!!!
Thats too much yaar! |
_________________
|
|
 Date Posted:Wed Apr 15, 2009 2:28 amThanks: 208Thanked 108 Times In 58 Posts
|
| Author |
Message |
herr-master
Super Member
.jpg)
Joined: 02 Jul 2007
Posts: 547
|
| |
|
her is are little serial routine its an md5 routine its from grindstones tut.
| Code: |
Function ReverseString(Words : String):String;
var
temp : string;
len,i : integer;
begin
len := Length(Words);
SetLength(temp,len);
for i := 1 to len do
begin
temp[i] := Words[(len - i)+1];
end;
Result := temp;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
hash : TDCP_md5;
Digest : array[0..15] of byte;
xodd,xeven,i,len,x1,x2 : integer;
name,strHash,temp,serial,part1,part2 : String;
begin
name:=edt1.Text;
name:=UpperCase(name);
len:=Length(name);
serial:=edt2.Text;
For i := 0 to 15 do
hash := TDCP_Md5.Create(Self);
hash.Init;
hash.UpdateStr(name);
hash.Final(Digest);
hash.Free;
strHash := '';
xodd := 0;
xeven := 0;
temp := Format('%d',[Digest[i]]);
if Length(temp) = 1 then temp := '0' + temp;
strHash := strHash + temp;
strHash := LowerCase(strHash);
For i := 1 to 32 do
xeven := xeven + Ord(strHash[i]);
x1 := xodd And xeven;
x1 := x1 or $184BD37;
x1 := x1 xor $1AB0F5;
part1 := ReverseString(Format('%x',[x1]));
x2 := StrToInt('$' + ReverseString(part1));
x2 := x2 xor xeven;
part2 := Format('%d',[x2]);
serial := part1 + part2;
if (edt2.text) = serial then
ShowMessage('well done')
else
ShowMessage('No try again');
end; |
If you need help wight this serial routine ask for help.
And sorry for my crap english on the last post i was very late on my country. |
_________________
I will not crack request per pm!
thx @izzad95 for the sig!
 |
|
Date Posted:Wed Apr 15, 2009 9:12 amThanks: 19Thanked 128 Times In 86 Posts
|
| Author |
Message |
Saduff
Special Member
Joined: 08 Dec 2008
Posts: 218
Location: CALL 0040627C
|
| |
|
Sorry, late, but here's my patch. I tried serial phishing it before, but you saw what came out 
Patching this is very simple, just NOP the jump.
| Astatalk download freehost links: |
| Code: |
| http://www.mediafire.com/?xglwzy0gqze |
|
|
_________________
|
|
Date Posted:Wed Apr 15, 2009 1:05 pmThanks: 51Thanked 48 Times In 38 Posts
|
| Author |
Message |
cad-hacker
Newbie
Joined: 18 Feb 2009
Posts: 8
|
| |
|
| Patched is allow for newbie? |
|
|
Date Posted:Sat Apr 25, 2009 1:28 pmThanks: 8Thanked 1 Times In 1 Posts
|
| Author |
Message |
KKR_WE_RULE
Special Member
Joined: 05 Apr 2009
Posts: 346
Location: Eden Gardens
|
| |
|
| cad-hacker wrote: |
| Patched is allow for newbie? |
YES! 
Infact patching is the only option.. |
_________________
|
|
Date Posted:Sat Apr 25, 2009 1:42 pmThanks: 208Thanked 108 Times In 58 Posts
|
| Author |
Message |
cad-hacker
Newbie
Joined: 18 Feb 2009
Posts: 8
|
| |
|
| KKR_WE_RULE wrote: |
| cad-hacker wrote: |
| Patched is allow for newbie? |
YES!
Infact patching is the only option.. |
Ok see it.
| Astatalk download freehost links: |
| Code: |
| http://www.usaupload.net/d/8y248e3gmhe |
|
[Please use the 'Hide' button also
- Krip] |
|
|
Date Posted:Sat Apr 25, 2009 2:42 pmThanks: 8Thanked 1 Times In 1 Posts
|
| Author |
Message |
.:hybrid:.
Asta GFX Team
Joined: 13 Mar 2008
Posts: 3902
Location: ♀
|
| |
|
| KKR what version of delphi did you use? I have v10 but everyone seems to use v7... which are you on? |
_________________
|
|
Date Posted:Sat Apr 25, 2009 7:31 pmThanks: 1376Thanked 2541 Times In 1014 Posts
|
Astalavista Forum Index :: Crack Me's and Challenges :: Keygen ME in DELPHI BY KKR_WE_RULE(ME)
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
|
