Bonjour,

voilà je cherche plus de documentation concernant la lib Cryptlib (http://cryptlib.sogot.de/delpas.html)
Je dois en gros crypter un fichier txt en AES CBC avec un vecteur d'initialisation de 16 octets, quelqu'un a t-il déjà jouer avec cela ?
Voilà ce que j'ai pour le moment :

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
 
const InputFileTest = 'TestSource.cwl'; // File source
  OutputFileTest = 'TestEncoded.bin'; // File encrypted
 
...
 
begin
InputData := TFileStream.Create(InputFileTest, fmOpenRead);
OutputData := TFileStream.Create(OutputFileTest, fmCreate);
 
// je créé une clé je la met dans un fichier de clés
MyKey := TCryptKey.Create(CRYPT_ALGO_RSA);
MyKey.Labeled := MyLabel;
MyKey.GenerateKey;
MyKeyset := TCryptKeyset.Create(CRYPT_KEYSET_FILE, Keyfilename, CRYPT_KEYOPT_CREATE);
MyKeyset.AddPrivateKey(MyKey, MyPassword);
MyKeyset.Free;
MyKeyset := nil;
 
// je commence l'encryption
Encrypt := TCryptEnvelope.Create(CRYPT_FORMAT_CRYPTLIB);
Encrypt.SigningKey := MyKey.Handle;
MyKey.Free;
Encrypt.StreamIO(InputData, OutputData);
Encrypt.Free;
Je cherche un moyen d'initialiser un vecteur d'initialisation (c'est lourd) ^^

merci pour vos rép !