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]Afrikahacking@freenet.de[/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.