TFile.Encrypt comment ça fonctionne

**SergioMaster** · 21/02/2023, 11h50

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** · 21/02/2023, 14h17

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

**Paul TOTH** · 21/02/2023, 14h57

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

**SergioMaster** · 21/02/2023, 16h05

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** · 21/02/2023, 18h34

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** · 22/02/2023, 08h54

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

**SergioMaster** · 22/02/2023, 11h03

Oui, ce n'est pas bon comme code, sans parler du fait que si je change de taille de clé je me retrouve avec une erreur

Keymaterial is too large for use (Security Issue)

Il y a des choses que je ne maitrise pas avec DEC et la doc est pauvre

**ShaiLeTroll** · 22/02/2023, 11h37

AES128 c'est pas justement une clé de 128bits soit 16o qui est utilisé pour chaque bloc de 16o

Avec le CBC, il prend le bloc précédent pour chiffrer le bloc suivant en plus de la clé
Un peu plus secure que le ECB, le seul que j'ai codé https://www.developpez.net/forums/d1...e/#post7762967

**ouiouioui** · 24/02/2023, 09h54

Et DCPcrypt ce n'est plus maintenu mais sa fonctionne bien je trouve
Moi je l'utilise avec Rio

**ShaiLeTroll** · 24/02/2023, 10h19

DCPcrypt Idem, avec les sources

**patrice@** · 13/03/2023, 13h58

Bonjour à tous,
Perso, je suis tombé sur ce fil de discussion https://www.developpez.net/forums/d1...-epilogue-2-a/
J'utilise ce code sous forme d'unité depuis quelques mois : extrêmement rapide et bon courage pour décrypter. La même fonction crypte et décrypte en fonction de l'état du fichier : il est crypté, ça décrypte et inversement.
Quand à la clé c'est une String. Chez moi elle fait 1024 caractères.

**Paul TOTH** · 13/03/2023, 14h59

si j'en crois les commentaires c'est un chiffre de Vernam, or ce système (qui date de 1917 !) n'est fiable qu'en respectant 3 conditions fortement contraignantes !

1. La clé doit être une suite de caractères au moins aussi longue que le message à chiffrer.
2. Les caractères composant la clé doivent être choisis de façon totalement aléatoire.
3. Chaque clé, ou « masque », ne doit être utilisée qu'une seule fois (d'où le nom de masque jetable).

donc ce code avec un mot de passe quelconque ne répond à aucune des trois conditions et donne un chiffrement extrêmement faible

**korntex5** · 15/03/2023, 09h44

Envoyé par ouiouioui

Et DCPcrypt ce n'est plus maintenu mais sa fonctionne bien je trouve
Moi je l'utilise avec Rio

Bonjour comment fais tu pour utiliser dcpcrypt2 ou autre pour chiffre en pkcs7?
J'ai à ma dispo les fichiers ci-dessous mais je ne sais pas comment les utiliser...;{
xxx-bundle.pem
xxx.pem
xxx.der
xxx.p7b

TFile.Encrypt comment ça fonctionne

Langage Delphi

Discussions similaires

Partager

Partager