Help for Key Derivation Functions "PBKDF2" in delphi about hashlib4pascal

[Xor-el]

Hello @Noobaxx apologies for the late response, just seeing this issue now.

there were a couple of issues with your original code.

you can find the C# code below and the updated Delphi one that produces same result as the C# one.

// See https://aka.ms/new-console-template for more information
using Microsoft.AspNetCore.Cryptography.KeyDerivation;

static string HashUsingPbkdf2(string password, byte[] salt)
{
    byte[] derivedKey = KeyDerivation.Pbkdf2(password, salt, KeyDerivationPrf.HMACSHA256, iterationCount: 100000, 32);

    return Convert.ToBase64String(derivedKey);
}

var salt = new byte[] { 1, 2, 3, 4, 5 };
var saltAsBase64String = Convert.ToBase64String(salt);
var saltStringAsBytes = Convert.FromBase64String(saltAsBase64String);

Console.WriteLine(HashUsingPbkdf2("1, 2, 3, 4, 5", saltStringAsBytes));

Console.ReadLine();

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  HlpHashFactory,
  HlpIHash,
  HlpIHashInfo,
  System.SysUtils,
  System.NetEncoding;

function HashUsingPbkdf2(Password: string; Salt: TBytes): string;

var
  PBKDF2: IPBKDF2_HMAC;
  PassBytes, derivedKey: TBytes;
  HashInstance: IHash;

begin
  PassBytes := TEncoding.UTF8.GetBytes(Password);

  HashInstance := THashFactory.TCrypto.CreateSHA2_256();

  PBKDF2 := TKDF.TPBKDF2_HMAC.CreatePBKDF2_HMAC(HashInstance, PassBytes,
    Salt, 100000);

  derivedKey := PBKDF2.GetBytes(32);

  Result := TBase64Encoding.Base64.EncodeBytesToString(derivedKey);
end;

begin
var
 salt, saltStringAsBytes: TBytes;
 var
 saltAsBase64String: string;
  try
    { TODO -oUser -cConsole Main : Insert code here }

    salt := TBytes.Create(1, 2, 3, 4, 5);

    saltAsBase64String := TBase64Encoding.Base64.EncodeBytesToString(salt);

    saltStringAsBytes := TBase64Encoding.Base64.DecodeStringToBytes(saltAsBase64String);

    Writeln(saltAsBase64String);

    Writeln(HashUsingPbkdf2('1, 2, 3, 4, 5', saltStringAsBytes));
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

[Noobaxx]

Thank you very much.

I now understand my mistakes