Brute force, problème de boucle for

**EpiTouille** · 14/03/2011, 19h27

Voilà j'ai réalisé un brute force, qui trouve la chaine 'pass' de mon programme avec les caratère minuscule.

Le problème c'est que pour j, k, l, m commence à b. Normal me direz vous car les boucles for sont incrémentée. Sauf que quand je met 96 au lieux de 97, sa marche la 1ere fois (pour la même raison) mais pas la seconde car on affiche le caractère avant le 'a' c'est $06 je croit.

Je pense pas avoir été très claire, je vous laisse le code, qui se compile sous
tp7, free pascal, lazarus... Il suffit de le lancer pour comprendre le problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
52
53
54
55
56
57
58
 
program BF;
 
uses crt;
 
var
  i    : integer;
  j    : integer;
  mot  : string;
  nb   : integer;
  k    : integer;
  l    : integer;
  m    : integer;
  pass : string;
 
 
 
 
 
 
procedure verif(s : string)   ;
begin
  if s = pass then begin
     clrscr;
     writeln('Le mot de passe est ' + mot);
     readkey;
     halt(0);
  end;
end;
 
 
begin
  pass := 'abcd';
  nb := 1; (* on part avec un nombre de char de 1 *)
  for m := 97 to 122 do begin
    for l := 97 to 122 do begin
      for k := 97 to 122 do begin
        for j := 97 to 122 do begin
          for i := 97 to 122 do begin
            case (nb) of
              1 : mot := chr(i);
              2 : mot := chr(j) + chr(i);
              3 : mot := chr(k) + chr(j) + chr(i);
              4 : mot := chr(l) + chr(k) + chr(j) + chr(i);
              5 : mot := chr(m) + chr(l) + chr(k) + chr(j) + chr(i);
            end;
            verif(mot);
            writeln(mot);
          end;
          if nb = 1 then nb := 2;
        end;
        if nb = 2 then nb := 3;
      end;
      if nb = 3 then nb := 4;
    end;
    if nb = 4 then nb := 5;
  end;
end.

Merci de vos réponses.

Titeeee

**DOLPat®** · 14/03/2011, 21h36

Bonsoir,

Je trouve plutôt compliqué, toutes ces boucles... Sous Delphi, j'aurai procédé ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
52
 
Const
  PasseAtrouver = 'pass';
var
  CaracteresDuMot: array[0..3] of byte;
 
procedure CaractereSuivant(Rang: Integer);
begin
  Inc(CaracteresDuMot[Rang]);
  if (CaracteresDuMot[Rang] = 27) then
    begin
      CaracteresDuMot[Rang] := 1;
      CaractereSuivant(Rang-1);
    end;
end;
 
procedure TForm1.verif(s: string);
begin
  if s = PasseAtrouver then
   begin
     ShowMessage('Le mot de passe est ' + s);
     Application.Terminate;
(*     clrscr;
     writeln('Le mot de passe est ' + mot);
     readkey;
     halt(0); *)
  end;
end;
 
procedure TForm1.RechercheMotDePasse;
var
  Termine:    Boolean;
  MotDePasse: string;
  i:          Integer;
begin
  FillChar(CaracteresDuMot, 3, 0); // Raz Tableau
  Termine := False;
  repeat
    CaractereSuivant(3);
    MotDePasse := '';
    for i := 0 to 3 do
      if CaracteresDuMot[i]>0 then
        MotDePasse:=MotDePasse+Chr(CaracteresDuMot[i]+96);
    verif(MotDePasse);
  until MotDePasse = 'zzzz';
  ShowMessage('Le mot de passe n''a pas été trouvé...');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  RechercheMotDePasse;
end;

En espérant que cela t'aidera.
Pat.

**Paul TOTH** · 15/03/2011, 20h39

j'aurais utilisé une autre approche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure test(s:string);
var
  c: char;
begin
  if pass=s then ...
  if length(pass) = 4 then exit;
  for c := 'a' to 'z' do
   test(s + c);
end;
 
var
  c: char;
begin
  for c := 'a' to 'z' do
   test(c);
end;