Discussion :

[BuzzLeclaire]

Bonjour tout le monde

Je sais bien que ce sujet à déjà été discuté mais là je rencontre un problème.

Si j'ai un string qui dépasse 255 caractères la procédure de cryptage me fait n'importe quoi !!!

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
function TForm1.CryptDeCrypt(St:string;Key:integer;Decalage:Byte):string;
var
  i :byte;
  StCrypt:string;
begin
  StCrypt:='';
 
  for i:=1 to Length(St) do 
    StCrypt:= StCrypt + Char(Byte(St[i]) xor Key shr Decalage); le cryptage
 
  result:=StCrypt; 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  str : String;
begin
 Str := 'DPrincipal::FPrincipal;';
 Str := Str + 'DTaches::FTaches;';
 Str := Str + 'DFichiersClients::FFichiersClients;';
 Str := Str + 'DFichiersRessources::FFichiersRessources;';
 Str := Str + 'DFichiersEquipes::FFichiersEquipes;';
 Str := Str + 'DFichiersCategories::FFichiersCategories;';
 Str := Str + 'DFichiersObjets::FFichiersObjets;';
// Str := Str + 'DFichiersCommunes::FFichiersCommunes;';
 
 Memo2.Text := CryptDeCrypt(Str,10500,6);
 Memo3.Text := CryptDeCrypt(Memo2.Text,10500,6);
 
end;

Cela paraît super bête, mais cela ne marche super pas... dés que je dépasse les 255 le result est faux et ne correspond en rien à ce que j'attends.

Où est l'erreur ?

[Andnotor]

Regarde bien la déclaration de "i"

[BuzzLeclaire]

Regarde bien la déclaration de "i"

ça me rend dingue.... j'te jure, même pas fais attention.

Entre temps j'ai trouvé une propal de Paul Thot qui est pas mal non plus

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Crypt(var Data; Size: Integer; Seed: Cardinal);
var
  p : PByte;
  i : Integer;
begin
  RandSeed := Seed; // initialiser le générateur de nombres aléatoires
  p := @Data;
  for i := 0 to Size - 1 do
  begin
    p^ := p^ xor Random(255);
    Inc(p);
  end;
end;

@Merci

[tourlourou]

RandSeed := Seed; // initialiser le générateur de nombres aléatoires

disons plus justement pseudo-aléatoires, puisqu'on se sert précisément du fait que la même graine donne la même série ;-)