ALGORITHME BRUTEFORCE: ÉNUMÈRE TOUTE LES POSSIBILITÉS D'UN ENSEMBLE PAR RÉCURSIVITÉ

procedure tform1.allkey(chaine: String; maxlen: Integer);
var i:integer;
begin
if stop then begin
    timer1.Enabled:= false;
    exit;
end;
If (Length(chaine) < maxlen) Then //pour ne pas dépasser la longeur
    For i := 1 To Length(dico) do
        allkey(chaine + Midstr(dico, i, 1), maxlen )

Else
If (Length(chaine) = maxlen) Then //si longueur, on traite le résultat grace a pOut
pOut (chaine) 


end;

//GO TO ZIP!!