hay una manera mucho mas facil
incluir el System.Hash unit en delphi o System.Hash.hpp en C++ builder
y simplemente si tenemos la contraseña en un MaskEdit hacer esto
Código:
AnsiString password_hash = THashSHA2::GetHashString(MaskEdit1->Text, THashSHA2::TSHA2Version::SHA256);
(en vez de SHA256 podemos poner SHA512 etc)