[Solved] Argon2id and AES

[Swirl]

Dear forum members,

I'd like to use Argon2id for key derivation and AES for encryption and Ugochukwu's libraries hashlib4pascal and cryptolib4pascal.
Since I have a problem to analye the sources, I'd be happy if someone could provide a line for...

• The key derivation (I assume salt is handled by Argon2id)
• The verification of the derivation using the given passphrase
• The encryption using AES 256

Please don't laugh at me for using Cryptography but not being able to interpret the source code of the libraries.

Regards,
Mike

[cdbc]

Hi
There are some examples, here in the forum, on using @XorEl's libraries, you only need to search for them...
Regards Benny

[Swirl]

Sorry,

I had 6 hits but there is no example how to "key derive" using Argon2id.
Maybe somebody can provide a code snippet concerning my 3 points mentioned above.

I mostly found input from Xor-el and Thaddy with regard to encryption but unfortunately not with regard to Argon2id.

Regards,
Mike

[korba812]

The library from Xor-el has Argon2:
https://forum.lazarus.freepascal.org/index.php/topic,33536.msg314342.html#msg314342
https://github.com/Xor-el/HashLib4Pascal/blob/master/HashLib/src/KDF/HlpPBKDF_Argon2NotBuildInAdapter.pas

[paweld]

Arfgon2I sample:

Code: Pascal  [Select][+][-]

1. program Project1;
2.  
3. uses
4.   SysUtils,
5.   HlpIHashInfo, HlpHashFactory, HlpConverters, HlpPBKDF_Argon2NotBuildInAdapter, HlpArgon2TypeAndVersion;
6.  
7. function Argon2i(AIterations, AMemory, AParallelism, AOutputLength: Integer; APassword, ASalt: String): String;
8. var
9.   Argon2ParametersBuilder: IArgon2ParametersBuilder;
10.   Argon2Version: TArgon2Version;
11.   LGenerator: IPBKDF_Argon2;
12.   LSalt, LPassword: TBytes;
13.   LArgon2Parameter: IArgon2Parameters;
14. begin
15.   LSalt := TConverters.ConvertStringToBytes(ASalt, TEncoding.ASCII);
16.   LPassword := TConverters.ConvertStringToBytes(APassword, TEncoding.ASCII);
17.  
18.   Argon2Version := TArgon2Version.a2vARGON2_VERSION_13;
19.  
20.   Argon2ParametersBuilder := TArgon2iParametersBuilder.Builder(); //zmiana na właściwą wersję: 2d -> 2i
21.   Argon2ParametersBuilder.WithVersion(Argon2Version).WithIterations(AIterations)
22.     .WithMemoryPowOfTwo(AMemory).WithParallelism(AParallelism).WithSalt(LSalt);
23.  
24.   LArgon2Parameter := Argon2ParametersBuilder.Build();
25.   Argon2ParametersBuilder.Clear();
26.   LGenerator := TKDF.TPBKDF_Argon2.CreatePBKDF_Argon2(LPassword, LArgon2Parameter);
27.  
28.   Result := TConverters.ConvertBytesToHexString(LGenerator.GetBytes(AOutputLength), False);
29.  
30.   LArgon2Parameter.Clear();
31.   LGenerator.Clear();
32.  
33. end;
34.  
35. begin
36.   WriteLn(Argon2i(2, 16, 1, 16, 'password', 'somesale'));
37.   ReadLn;
38. end.    

AES sample: https://forum.lazarus.freepascal.org/index.php/topic,67874.msg523743.html#msg523743

[Swirl]

Thx korba812 and paweld!
Now I can use Xor-el's  libraries.

Kind Regards,
Mike