Décrypter un fichier avec l'unité Blowfish

Version imprimable

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:

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:

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

28/02/2017, 20h50
FChrisF
Votre fichier est incorrectement encrypté.

Utilisez par exemple plutôt:
Code:

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).

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:

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).

02/03/2017, 06h21
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.