Discussion :

[Rycku]

Bonjour,

Pour encrypter et décrypter un fichier, j'ai décidé d'utiliser la méthode BlowFish.

Pour l'encryptage, j'ai utilisé la méthode suivante sans aucun 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
 
procedure TForm1.ButtonEncClick(Sender: TObject);
var VInput, VOutput: TMemoryStream;
  VCypher: TBlowfishEncryptStream;
 
begin
   VOutput := TMemoryStream.create;
   VCypher := TBlowfishEncryptStream.create('MotDePasse', VOutput);
   try
      VInput := TMemoryStream.create;
      VInput.LoadFromFile('FichierDepart.txt');
      VCypher.writebuffer(VInput.memory, VInput.size);
      VOutput.SaveToFile('FichierEncrypter.enc');
   finally
       VCypher.free;
       VInput.free;
       VOutput.free;
   end;
end;

Par contre pour le décryptage, je n'arrive pas à trouver la solution. Ci-dessous un des bouts de code que j'ai testés.

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
 
procedure TForm1.ButtonDecClick(Sender: TObject);
var VInput, VOutput: TMemoryStream;
  VCypher: TBlowFishDecryptStream;
 
begin
   VInput := TMemoryStream.create;
   VInput.LoadFromFile('FichierEncrypter.enc');
   VOutput := TMemoryStream.create;
   VCypher := TBlowFishDecryptStream.create('MotDePasse', VInput);
   VCypher.Position:=0;
   Voutput.copyfrom( VCypher, VInput.Size);
   VOutput.SaveToFile('FichierDecrypter.dec');   
 
   VCypher.free;
   VInput.free;
   VOutput.free;
end;

Si quelqu'un a une idée de solution

Merci

[FChrisF]

Votre fichier est incorrectement encrypté.

Utilisez par exemple plutôt:

Code :

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

1
2
//     VCypher.writebuffer(VInput.memory, VInput.size);      // incorrect
     VCypher.CopyFrom(vInput, VInput.size);

De toute façon, il y aussi un problème de padding (8 octets pour le Blowfish).

[FChrisF]

Concernant votre problème de padding, libérez votre stream Blowfish avant l'écriture (ou la lecture) finale des données. Cela provoquera un flush des éventuelles données restantes, en attente.

Exemple dans votre procédure TForm1.Button2Click:

Code :

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

1
2
3
4
5
6
7
8
9
10
...
     VCypher.CopyFrom(vInput, VInput.size);
     VCypher.free;        // ajouter ici
     VOutput.SaveToFile('FichierEncrypter.enc');
  finally
//      VCypher.free;    // supprimer ici, mais problème de non libération éventuelle de la ressource en cas de déclenchement d'une exception (à revoir)
      VInput.free;
      VOutput.free;
  end;
end;

Cela ne règle pas le problème de la détermination de la taille réelle du fichier après le décryptage, mais au moins vous aurez toutes vos données (un peu plus que vos données, en fait).

[Rycku]

Merci FChrisF pour tes réponses.

Au vu des réponses, j'ai mis de côté Blowfish, pour résoudre mon problème j'ai décidé d'utiliser un système de modulo avec l'opérateur XOR.