[PASCAL]: Algoritmo per la ricerca password

[akus]

Salve a tutti...non so se sto postando nella sezione giusta
allora mi servirebbe sapere se esiste qualche documentazione(prima di postare ho fatto una ricerca su google) o se qualcuno del forum magari ha implementato qualcosa del genere:

ho un insieme di caratteri tipo F= {1,2,3,4,5,6,7,8,9} e so che la password è composta da quattro caratteri contenuti in F come faccio ad automatizzare tutte le possibili combinazioni dei caratteri contenuti in F ??

Attendo qualche risposta

[king64]

La tecnica per cercare una password noto solo l'insieme dei caratteri , alfabeto , formanti la stessa , è detta "brute force" . Consiste sostanzialmente nel far generare al computer tutte le possibili combinazioni di caratteri . L'algoritmo , nel tuo caso , è formato da una serie di loop innestati ed ha la seguente forma :

program BruteForce;

var
 i,j,k,l,m,n,p:integer;     {variabili del loop; P=password}
begin

for i:=1 to 9 do
begin
 for j:=1 to 9 do
 begin
  for k:=1 to 9 do
  begin
   for l:=1 to 9 do
   begin
    p:=l+k*10+j*100+i*1000;  {generazione della password}
    writeln (p); 
   end;
  end;
 end;
end;

writeln('Premi [RETURN] per terminare');
readln;
end.

Il codice è stato compilato e testato in FreePascal sotto Lazarus .
Saluti .

[akus]

Grazie era proprio quello che mi serviva!!!