Silkroad Online Forum

Quellcode

program codeknackOr;
uses crt, dos;
var code,codeknack:string;
 Stunde, Minute, Sekunde, Hundertstel, Stunde1, Minute1, Sekunde1, Hundertstel1:WORD;

procedure eingabe;
 var zaehler:integer; buchstabe:char;
begin
code:='';
clrscr;
zaehler:=0;
gotoXY(3,5);
 writeln('Geben Sie Ihr Code-Wort ein - nur Groábuchstaben!');
 repeat
 gotoXY(12,13);
 write('******');
 gotoXY(12+zaehler,13);
 buchstabe:=readkey;
 if (buchstabe>='A') and (Buchstabe<='Z') then
 begin
 code:=code+buchstabe;
 zaehler:=zaehler+1;
 end;
 until zaehler=6;
end;

procedure codeknacken;
var i,j,k,l,m,n:integer;
 erg1, erg2, erg3, erg4:INTEGER;
 r,x,Zahl,zaehler:LONGINT;
 y:BOOLEAN;

begin
GETTIME (Stunde, Minute, Sekunde, Hundertstel);
for i:=65 to 90 do begin
 codeknack:=chr(i);
 gotoxy(4,18);
 writeln('Ich arbeite...');
 for j:=65 to 90 do begin
 for k:=65 to 90 do begin
 for l:=65 to 90 do begin
 for m:=65 to 90 do begin
 for n:=65 to 90 do begin
 codeknack:=chr(i) +chr(j) +chr(k) +chr(l) +chr(m);
 if codeknack=code then begin
 GETTIME (Stunde1, Minute1, Sekunde1, Hundertstel1);
 writeln('Erfolg, der Code lautet: ',codeknack);
 erg1:=(Stunde1-Stunde) *60+minute1-minute;
 erg2:=erg1*60+(sekunde1-sekunde);
 erg3:=erg2*100+hundertstel1-hundertstel;
 writeln('');
 WRITELN ('Zeit ben”tigt: ',erg3);
 sound(300);delay(2000);nosound;
 READLN;
 EXIT;
 end;
 end;
 end;
 end;
 end;
 end;
end;
end;

procedure menu;
var x,fehler:integer;
 menuzahl:string;

begin
REPEAT
REPEAT
CLRSCR;
writeln('Welcome ý \\bruteforcer v2// ...');
writeln('');
writeln('Menu');
writeln('[1] Password vergeben');
writeln('[2] Password Knacken');
writeln('[3] EXIT');
readln(menuzahl);
VAL(menuzahl,x,fehler);
UNTIL (FEHLER=0) AND (x>=1) AND (x<=3);
clrscr;

case x of
1:Begin
 eingabe;
end;
2:Begin
 codeknacken;
end;

end;
until x=3;
end;

begin
 clrscr;
 menu;
end.