Passwort abfrage hilfe erwünscht!

[Superfly]

Zitat von malo:

Noch besser als die Delphi-Source Tutorials sind die Grundlagen

Du solltest dir aber auf jeden Fall beides zur Gemüte ziehen

Hi danke aber im moned finde ich genug infos und material im forum ,hatte schnell daß richtige gefunden und funzd
Habe nach nur 5 harten stunden mein erstes Kleines crackme fertig
Viel lesen hilft echt schnell
Aber mein dank gilt dem´forum zu Windows Api referecen
Selbst daß mit der url aufrufen habe ich hinbekommen!
Das ist mein erstes Programm is Delphi7,war ein hartes stück Arbeit
Danke für eure hilfe
Die seite ist war sehr net ,nice tuts zum umgang mit Delphi7
http://www.delphi-source.de/

Delphi-Quellcode:

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, XPMan,ShellApi;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Button5: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if edit1.text='XXXXXXXX' then begin
    showmessage('SuperFly Say Das Kennwort ist RICHTIG freu dich,hast was neues erlernt:-)!');
    ShellExecute(0,Nil,PChar('http://www.cracken.6x.to/'),Pchar(''),Pchar(''),SW_NORMAL);
    close;
  end else begin
    showmessage('SuperFly Say Das Kennwort ist FALSCH!');
    edit1.SelectAll;
    edit1.SetFocus;
  end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then begin
    bitbtn1click(sender);
    key:=#0;
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
If Pos('Clone',Caption) = 1 Then
    Close
  Else
    Application.Terminate;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Application.MessageBox ('Coded on Delphi7 By SuperFly Team GRN 26.03.2005 You like it then Mail to [email][e-mail][/email]!','Greetz  Thx All Members from The GERMAN GRN TEAM Say SuperFly!!!',0+16);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ShellExecute(0,Nil,PChar('http://www.cracken.6x.to/'),Pchar(''),Pchar(''),SW_NORMAL);
end;

end.