Discussion :

[SergioMaster]

Bonjour,

je viens de voir que l'unité system.IOUTils permettait (sous windows) de chiffrer(Encrypt)/déchiffrer(Decrypt) des fichiers mais je n'arrive pas à en comprendre le fonctionnement.
J'ai certainement fait une bêtise lors de mon premier test

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm6.BtnSaveClick(Sender: TObject);
begin
if OpenTextFileDialog1.execute then
  begin
    Memo1.Lines.SaveToFile(OpenTextFiledialog1.FileName);
    TFile.Encrypt(OpenTextFileDialog1.FileName);
  end;
end;

qui m'a bien ouvert un dialogue "une sorte de certificat" mais depuis je n'ai plus ce dernier et je pense n'avoir pas bien rempli ce dernier

[ShaiLeTroll]

SetUserFileEncryptionKey et QueryUsersOnEncryptedFile à voir si c'est encapsulé dans le TFile

[Paul TOTH]

TFile.Encrypt appelle la fonction de Windows...ni plus ni moins d'après ce que je vois

[SergioMaster]

Oui, c'est ce que j'ai vu, ce qui rend le jus de boudin encore moins clair ! (moi, tout ce qui est MS, j'y vais sur la pointe des pieds)

Du coup, je me suis amusé avec TMS Cryptography Pack (version de démo) pour faire un truc plus "portable"

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
uses   CryptBase, MiscObj, AESObj;
 
procedure TForm6.btnLoadClick(Sender: TObject);
var aStream : TmemoryStream;
    FStream : TFileStream;
    aEs : TAESEncryption;
begin
if OpenTextFileDialog1.execute then
  begin
    FStream:=TFileStream.Create(OpenTextFileDialog1.FileName,fmOpenRead);
    try
       FStream.Position:=0;
       aStream:=TmemoryStream.Create;
       try
         aes:= TAESEncryption.Create;
         try
           aes.AType:= atCBC;
           aes.KeyLength:= kl256;
           aes.Key:= '12345678901234567890123456789012';
           aes.OutputFormat:= hexa;
           aes.PaddingMode:= TpaddingMode.PKCS7;
           aes.IVMode:= TIVMode.rand;
           if aes.DecryptStream(FStream,aStream)=0 then
               begin
                aStream.Position:=0;
                Memo1.Lines.LoadFromStream(aStream);
               end
               else memo1.Lines.Add('Raté');
         finally
           aes.Free;
         end;
       finally
         aStream.Free;
       end;
    finally
      FStream.Free;
    end;
  end;
end;
 
procedure TForm6.BtnSaveClick(Sender: TObject);
var aEs : TAESEncryption;
    aStream : TMemoryStream;
    oStream : TFileStream;
begin
if OpenTextFileDialog1.execute then
  begin
   aStream:=TmemoryStream.Create;
   try
   Memo1.Lines.SaveToStream(aStream);
   aes:= TAESEncryption.Create;
   try
   aes.AType:= atCBC;
   aes.KeyLength:= kl256;
   aes.Key:= '12345678901234567890123456789012';
   aes.OutputFormat:=hexa;
   aes.Unicode:=yesUni;
   aes.PaddingMode:= TpaddingMode.PKCS7;
   aes.IVMode:= TIVMode.rand;
   oStream:=TFileStream.Create(OpentextFiledialog1.FileName,fmOpenwrite);
   try
    Aes.EncryptStream(aStream,oStream);
   finally
    oStream.Free;
   end;
   finally
     aes.Free;
   end;
   finally
    aStream.Free;
   end;
  end;
end;

Cela écrit, il doit y avoir d'autres packs.
Par exemple : DEC que je vais essayer de ce pas

[SergioMaster]

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
uses
 
     DECCiphers, DECCipherBase;    // DEC
 
procedure TForm6.btnLoadDecClick(Sender: TObject);
var aStream : TmemoryStream;
    FStream : TFileStream;
    Cipher  : TCipher_AES;
begin
if OpenTextFileDialog1.execute then
  begin
    FStream:=TFileStream.Create(OpenTextFileDialog1.FileName,fmOpenRead);
    try
       FStream.Position:=0;
       aStream:=TmemoryStream.Create;
       try
         Cipher:= TCipher_AES.Create;
         try
          Cipher.Init(RawByteString('1234567890abcdef'));
          Cipher.Mode := cmCBCx;
          Cipher.DecodeStream(FStream,aStream,FStream.Size-2); // les char fin de fichier !? 
          aStream.Position:=0;
          Memo1.Lines.LoadFromStream(aStream);
         finally
           cipher.Free;
         end;
       finally
         aStream.Free;
       end;
    finally
      FStream.Free;
    end;
  end;
end;
 
 
procedure TForm6.btnSaveDECClick(Sender: TObject);
var
    Cipher     : TCipher_AES;
    aStream, cStream  : TMemoryStream;
    Fstream : TFileStream;
    SL : TStringList;
begin
if OpenTextFileDialog1.execute then
  begin
   aStream:=TmemoryStream.Create;
   try
    Memo1.Lines.SaveToStream(aStream);
    aStream.Position:=0;
    cStream:=TmemoryStream.Create;
    try
       Cipher := TCipher_AES128.Create;
       try
         Cipher.Init(RawByteString('1234567890abcdef'));
         Cipher.Mode := cmCBCx;
         FStream:=TFileStream.Create(OpenTextFileDialog1.FileName,fmOpenReadWrite);
         try
          cipher.EncodeStream(aStream,FStream,astream.Size);
        finally
          Fstream.Free;
         end;
       finally
         Cipher.Free;
       end;
    finally
      cStream.Free;
    end;
   finally
     aStream.Free;
   end;
  end;
end;

Il y a juste cette histoire de fin de fichier qui me turlupine, à faire à la lecture comme dans mon code où dans la sauvegarde ?
En tout cas pas mal ce DEC

[ShaiLeTroll]

Un padding multiple de 16o ?
Donc tu auras autre chose avec un autre fichier si ça vient de ça