| View previous topic :: View next topic |
| Author |
Message |
LolSalad
Grandmaster Cheater
![]() Reputation: 1
Joined: 26 Aug 2007
Posts: 988
Location: Australia
|
 Posted: Thu Nov 01, 2007 4:32 am Post subject: First attempt at a CrackMe (Delphi) |
 |
|
It probably sucks, really bad, but I tried.
Put it together in a rush, but I might make more that I put real effort into in the future if this one is a challenge in any way.
_________________
|
|
| Back to top |
|
 |
demonsking
I'm a spammer
 Reputation: 0
Joined: 02 Aug 2007
Posts: 5786
|
| Posted: Thu Nov 01, 2007 7:50 am Post subject: |
|
|
i dont want to try it but good job on this lolsalad
_________________
|
|
| Back to top |
|
|
Reak
I post too much
 Reputation: 0
Joined: 15 May 2007
Posts: 3496
|
| Posted: Thu Nov 01, 2007 9:04 am Post subject: |
|
|
I didn't find the password, but I cracked it anyway:
(F5 if you don't see attachment)
edit: demonsking: In your sig, the last pic where you have 2222 posts, your rang should be "I post too much". Busted your edit 
edit2: I see you put a Timer on the from...*wonders why* 
|
|
| Back to top |
|
|
haha01haha01
Grandmaster Cheater Supreme
 Reputation: 0
Joined: 15 Jun 2007
Posts: 1233
Location: http://www.SaviourFagFails.com/
|
| Posted: Thu Nov 01, 2007 10:06 am Post subject: |
|
|
| rEakW0n wrote: | I didn't find the password, but I cracked it anyway:
(F5 if you don't see attachment)
edit: demonsking: In your sig, the last pic where you have 2222 posts, your rang should be "I post too much". Busted your edit
edit2: I see you put a Timer on the from...*wonders why* |
cracking is for beginners.
anyways that doesnt matter cause ill prolly get da pass in 2 sec.
wait... it doesnt look like this crackme got a password....
|
|
| Back to top |
|
|
Reak
I post too much
Reputation: 0
Joined: 15 May 2007
Posts: 3496
|
| Posted: Thu Nov 01, 2007 10:44 am Post subject: |
|
|
| haha01haha01 wrote: | | rEakW0n wrote: | I didn't find the password, but I cracked it anyway:
(F5 if you don't see attachment)
edit: demonsking: In your sig, the last pic where you have 2222 posts, your rang should be "I post too much". Busted your edit
edit2: I see you put a Timer on the from...*wonders why* |
cracking is for beginners.
anyways that doesnt matter cause ill prolly get da pass in 2 sec.
wait... it doesnt look like this crackme got a password.... |
that's what I thought too..but I waited for another person
|
|
| Back to top |
|
|
haha01haha01
Grandmaster Cheater Supreme
Reputation: 0
Joined: 15 Jun 2007
Posts: 1233
Location: http://www.SaviourFagFails.com/
|
| Posted: Thu Nov 01, 2007 10:49 am Post subject: |
|
|
Lulz i think i dont have a valid password.
a.the routine always add an zero in the tart of ur password so it will never be correct.
b.even i binary paste the valid pass into my pawword buffer, edx-1 is 0 jumping all the compares leaving the zero flag on 0.
|
|
| Back to top |
|
|
killersamurai
Expert Cheater
![]() Reputation: 0
Joined: 10 Sep 2007
Posts: 197
Location: Colorado
|
| Posted: Thu Nov 01, 2007 11:51 am Post subject: |
|
|
Password: 0\g¨àô½+°÷r¦ÏóÌÃêx
The call to the calculation is at 453aa3. The call under that one, compares with what the user entered with the password.
|
|
| Back to top |
|
|
haha01haha01
Grandmaster Cheater Supreme
Reputation: 0
Joined: 15 Jun 2007
Posts: 1233
Location: http://www.SaviourFagFails.com/
|
| Posted: Thu Nov 01, 2007 12:10 pm Post subject: |
|
|
...
Last edited by haha01haha01 on Sun Nov 04, 2007 7:35 am; edited 1 time in total |
|
| Back to top |
|
|
killersamurai
Expert Cheater
![]() Reputation: 0
Joined: 10 Sep 2007
Posts: 197
Location: Colorado
|
| Posted: Thu Nov 01, 2007 12:40 pm Post subject: |
|
|
| Before you start calling people noobs or an idiot, you better make sure you entered it correctly and/or actually looking into his calculation to see why it didn't work. You are just making yourself look like what you call people.
|
|
| Back to top |
|
|
Reak
I post too much
Reputation: 0
Joined: 15 May 2007
Posts: 3496
|
| Posted: Thu Nov 01, 2007 12:49 pm Post subject: |
|
|
| The password actually works.
|
|
| Back to top |
|
|
LolSalad
Grandmaster Cheater
![]() Reputation: 1
Joined: 26 Aug 2007
Posts: 988
Location: Australia
|
| Posted: Thu Nov 01, 2007 2:28 pm Post subject: |
|
|
Yes, it does work, and that is the intentional password (well, kind of ).
It was really an experiment, I tried several different things to hide the pass. The final code was this:
| Code: | unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;
type
TForm1 = class(TForm)
PassField: TEdit;
okaybtn: TButton;
procedure okaybtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function Encrypt (const s: string; Key: Word) : string;
const
c1 = 52845;
c2 = 22719;
var
i : byte;
begin
Result := s;
for i := 1 to length (s) do
begin
Result[i] := Char (byte (s[i]) xor (Key shr 8));
Key := (byte (Result[i]) + Key) * c1 + c2
end
end;
function Decrypt (const s: string; Key: Word) : string;
const
c1 = 52845;
c2 = 22719;
var
i : byte;
begin
Result := s;
for i := 1 to length (s) do
begin
Result[i] := Char (byte (s[i]) xor (Key shr 8));
Key := (byte (s[i]) + Key) * c1 + c2
end
end;
function RightStr
(Const Str: String; Size: Word): String;
begin
if Size > Length(Str) then Size := Length(Str) ;
RightStr := Copy(Str, Length(Str)-Size+1, Size)
end;
function MidStr
(Const Str: String; From, Size: Word): String;
begin
MidStr := Copy(Str, From, Size)
end;
function LeftStr
(Const Str: String; Size: Word): String;
begin
LeftStr := Copy(Str, 1, Size)
end;
function String_Reverse(S : String): String;
var
i : Integer;
begin
Result := '';
for i := Length(S) downto 1 Do
begin
Result := Result + Copy(S,i,1) ;
end;
end;
procedure TForm1.okaybtnClick(Sender: TObject);
var
j : Integer;
p : String;
begin
for j := 12823 to 47262 do
p := Decrypt('Ô³œZÛºŸ óÿ†Z¬ÃéÛ$öö', j);
if PassField.Text = Encrypt(String_Reverse(LeftStr(p, 2) + MidStr(p, 9, 2) + RightStr(p, 3) + MidStr(p, 3, 2) + MidStr(p, 5, 5) + MidStr(p, 13, 8)), 17221) then
begin
ShowMessage('Congratulations! The entered password was correct.');
end
else
begin
ShowMessage('I apologise, but the entered password was a failure.');
end;
end;
end. |
No, there was no TTimer rEak. 
_________________
|
|
| Back to top |
|
|
Flyte
Peanuts!!!!
 Reputation: 6
Joined: 19 Apr 2006
Posts: 1887
Location: Canada
|
| Posted: Thu Nov 01, 2007 5:32 pm Post subject: |
|
|
| Code: | | ShowMessage('I apologise, but the entered password was a failure.'); |
Don't apologise for their failure! Mock them.
|
|
| Back to top |
|
|
LolSalad
Grandmaster Cheater
![]() Reputation: 1
Joined: 26 Aug 2007
Posts: 988
Location: Australia
|
| Posted: Thu Nov 01, 2007 9:37 pm Post subject: |
|
|
| Flyte wrote: | | Code: | | ShowMessage('I apologise, but the entered password was a failure.'); |
Don't apologise for their failure! Mock them. |
Next crackme:
ShowMessage('Unfortunately, you are a failure, because the entered password was a failure. Just like you. Failure.');
(then brings up a form with a you fail picture)
And the winning message:
('Unfortunately, you are a failure, because the entered password was correct. And on a side note, you are a failure.');
_________________
|
|
| Back to top |
|
|
Flyte
Peanuts!!!!
Reputation: 6
Joined: 19 Apr 2006
Posts: 1887
Location: Canada
|
| Posted: Thu Nov 01, 2007 9:43 pm Post subject: |
|
|
| LolSalad wrote: | ShowMessage('Unfortunately, you are a failure, because the entered password was a failure. Just like you. Failure.');
(then brings up a form with a you fail picture)
And the winning message:
('Unfortunately, you are a failure, because the entered password was correct. And on a side note, you are a failure.'); |
Don't mock them in the winning message, they beat you. 
|
|
| Back to top |
|
|
haha01haha01
Grandmaster Cheater Supreme
Reputation: 0
Joined: 15 Jun 2007
Posts: 1233
Location: http://www.SaviourFagFails.com/
|
| Posted: Fri Nov 02, 2007 12:47 am Post subject: |
|
|
| well. not for me, i even tried pasting it into the password buffer, it still dont work.
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
