1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.Button2Click(Sender: TObject);
begin
if maskedit1.Text=pw then begin
showmessage(brute);
form1.close;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,lang,hilfe,hilfe2:integer; text,htext:string;
begin
lang:=0;
text:='';
  for i:=1 to 255 do begin
    brute:=chr(i);
      maskedit1.Text:=brute;
    button2.Click; // bis hierhin werden 1 stellige keys probiert
end;
brute:='';
hilfe:=1;
i:=1;
while hilfe<> 255 do begin
    brute:=chr(hilfe) + chr(i);
      maskedit1.Text:=brute;
    button2.click;
i:=i+1;
if i= 255 then begin
i:=1;
hilfe:=hilfe+1; // hier werden 2 stellige probiert
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
var
    I: Integer; //Ein paar Zählvariablen; kommt immer gut, da paar zu haben
    PW_Check: String; //Das "verschlüsselte", zu suchende Passwort
    PW: String; //Unser aktuell geprüftes Passwort
begin
    PW_Check := Edit1.Text; //Verschlüsseltes Passwort lesen
    PW := ''; //Mit leerem Passwort initialisieren

    //Bruteforcing ;-)
    While PW_Check <> EncryptPW(PW) Do
        GetNextPW;

    ShowMessage('Huhu, gefunden! PW ist: ' + PW);
end;

1:
2:
3:
4:

procedure EncryptPW(PW: String): String;
begin
    Result := PW; //Vorerst keine Verschlüsslung
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

Procedure GetNextPW;
begin
    //Erstes Zeichen ergänzen
    If PW = '' Then
    Begin
        PW := #1;
        exit;
    end;

    //Schauen, ob's einen Übertrag gibt
    I := 1;
    While (I <= Length(PW)) and (PW[I] = #255) do
    Begin
        //Rücksprung auf erstes Zeichen ausführen
        PW[I] := #1;
        //Nächstes Zeichen anvisieren
        Inc(I);
    end;

    //Gültiges Zeichen innerhalb des Passwortes?
    if I <= Length(PW) Then
    Begin
        //Zeichen erhöhen
        Inc(PW[I]);
    end
    else
    begin
        //Neues Zeichen am Ende des Passwortes anhängen.
        PW := PW + #1;
    end;
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

procedure TForm1.FormCreate(Sender: TObject);
var ran,i:integer;
begin
  brute:='';
  randomize;
  pw:='';
    ran:=random(81)+48;
    i:=random(3)+1;
    while i<>0 do begin
    i:=i-1;
    pw:=pw+chr(ran);
    ran:=random(81)+48;
end;
maskedit1.Text:='';
showmessage(pw);
end;

procedure TForm1.Button2Click(Sender: TObject);  //kontrolle des generierten
begin
if maskedit1.Text=pw then begin
showmessage(brute);
form1.close;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k,lang,hilfe,hilfe2:integer;
begin
    for i:=47 to 130 do begin  // kleinbuchstaben und zahlen im ASCII code
      brute:=chr(i);
      maskedit1.Text:=brute;
      button2.Click;
end;    // Ende des durchlaufs für 1 stellige keys
        // key wird bei FormCreate zufällig mit 1/2/3 stellen erzeugt.
brute:='';
    for i:=48 to 129 do begin
      for j:=48 to 129 do begin
      brute:=chr(i)+chr(j);
      maskedit1.Text:=brute;
      button2.Click;
    end;   // ende des durchlaufs für 2 stellige keys
end;
brute:='';
for i:= 47 to 130 do begin
  for j:= 47 to 130 do begin
    for k:= 47 to 130 do begin
    brute:=chr(i)+chr(j)+chr(k);
    maskedit1.Text:=brute;
    button2.Click;
  end; // ende des durchlaufs für 3 stellige keys
end;