| View previous topic :: View next topic |
| Author |
Message |
oib111
I post too much
 Reputation: 0
Joined: 02 Apr 2007
Posts: 2947
Location: you wanna know why?
|
 Posted: Fri May 25, 2007 4:21 pm Post subject: How do I make a crackme with delphi? |
 |
|
Ok, well I recently got a Delphi 2007 enterprise trial version and I wanted to make a crack me. But I don't know how to make something that would read from what you type in and then when you click on a button would bring you to either a wrong pop up window or a right pop up window. Can someone help me?
_________________
| 8D wrote: |
cigs dont make people high, which weed does, which causes them to do bad stuff. like killing |
|
|
| Back to top |
|
 |
appalsap
Moderator
 Reputation: 0
Joined: 27 Apr 2006
Posts: 6753
Location: Pakistan
|
| Posted: Fri May 25, 2007 5:09 pm Post subject: |
|
|
1) make edit bar
2) make button
3) on buttonclick:
| Code: |
if editbar.text = 'mysecretpassword' then
ShowMessage('You win!')
else
ShowMessage('Wrong password!');
|
|
|
| Back to top |
|
|
Noz3001
I'm a spammer
 Reputation: 26
Joined: 29 May 2006
Posts: 6220
Location: /dev/null
|
| Posted: Fri May 25, 2007 6:11 pm Post subject: |
|
|
your psudo looks like VB appal 
|
|
| Back to top |
|
|
appalsap
Moderator
Reputation: 0
Joined: 27 Apr 2006
Posts: 6753
Location: Pakistan
|
| Posted: Fri May 25, 2007 7:07 pm Post subject: |
|
|
| noz3001 wrote: | | your psudo looks like VB appal |
It's not pseudo, it's delphi.
|
|
| Back to top |
|
|
oib111
I post too much
Reputation: 0
Joined: 02 Apr 2007
Posts: 2947
Location: you wanna know why?
|
| Posted: Fri May 25, 2007 8:40 pm Post subject: |
|
|
Thx appal, you the best. +Rep
It won't compile, o.O
| Code: |
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm3 = class(TForm)
Image1: TImage;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
if editbar.text = 'mysecretpassword' then
ShowMessage('Congratulations, you cracked me!')
else
ShowMessage('WRONG!!!');
end;
end;
end.
|
That should work right? Btw my password isn't mysecretpassword, I just put that so you wouldn't find out. But that should work right?
_________________
| 8D wrote: |
cigs dont make people high, which weed does, which causes them to do bad stuff. like killing |
|
|
| Back to top |
|
|
DeltaFlyer
Grandmaster Cheater
![]() Reputation: 0
Joined: 22 Jul 2006
Posts: 666
|
| Posted: Fri May 25, 2007 10:26 pm Post subject: |
|
|
Change editbar to Edit1...
_________________
Wow.... still working at 827... what's INCA thinking?
zomg l33t hax at this place (IE only). Over 150 people have used it, what are YOU waiting for? |
|
| Back to top |
|
|
Willy
Master Cheater
 Reputation: 0
Joined: 23 Apr 2007
Posts: 280
Location: Woodlands
|
| Posted: Fri May 25, 2007 11:32 pm Post subject: |
|
|
| If you just compile that, it would be a VERY simple crackme. All you have to do is open it in OllyDebug, scroll down, and they see the password. Add protection or something to it.
|
|
| Back to top |
|
|
compactwater
I post too much
![]() Reputation: 8
Joined: 02 Aug 2006
Posts: 3923
|
| Posted: Sat May 26, 2007 12:14 am Post subject: |
|
|
| Willy wrote: | | If you just compile that, it would be a VERY simple crackme. All you have to do is open it in OllyDebug, scroll down, and they see the password. Add protection or something to it. |
Off-topic: Yay I'm in someone's siggy =D
On-topic:
Change it to:
OR
| Code: | | if editbar.text = 'mysecretpassword' then |
Change it to:
| Code: | | if Edit1.text = 'mysecretpassword' then |
OR
So something else, make a GOOD crackme. Like Yano's un-crackable crackme! 
|
|
| Back to top |
|
|
oib111
I post too much
Reputation: 0
Joined: 02 Apr 2007
Posts: 2947
Location: you wanna know why?
|
| Posted: Sat May 26, 2007 7:56 am Post subject: |
|
|
Ok, well how do I make it harder. I could encrypt it but I'm to lazy to do that, so how would I make it harder? And whenever I try to save them as .exe files I get an error, and dfm and pas files don't do anything, so yea, I need help there too...
_________________
| 8D wrote: |
cigs dont make people high, which weed does, which causes them to do bad stuff. like killing |
|
|
| Back to top |
|
|
appalsap
Moderator
Reputation: 0
Joined: 27 Apr 2006
Posts: 6753
Location: Pakistan
|
| Posted: Sat May 26, 2007 8:31 am Post subject: |
|
|
| when you compile (ctrl + f9) an executable should be generated in the same folder, which you can move. You really have to start out with one of the two, obfuscation (lots of junk code) or encryption (hide the pasword well), preferably the combination of the two.
|
|
| Back to top |
|
|
oib111
I post too much
Reputation: 0
Joined: 02 Apr 2007
Posts: 2947
Location: you wanna know why?
|
| Posted: Sat May 26, 2007 11:25 am Post subject: |
|
|
Thx appal
_________________
| 8D wrote: |
cigs dont make people high, which weed does, which causes them to do bad stuff. like killing |
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
