Delphi Шифруем строку в SHA256

Rezis

Интересующийся
Интересующийся
Rezis

Rezis

Интересующийся
Интересующийся
Сообщения
85
Реакции
62
Пример использования:

Функция для шифрования
Код:
function GetSHA256Str(const str : Ansistring) : Ansistring;
begin
  IdSSLOpenSSL.LoadOpenSSLLibrary;
  with TIdHashSHA256.Create do
  try
    Result := LowerCase( HashStringAsHex(str) );
  finally
    Free;
  end;
  IdSSLOpenSSL.UnLoadOpenSSLLibrary;
end;
К примеру шифруем ссылку https://in4.bz используя функцию:
Код:
procedure TlcMainForm.sButton1Click(Sender: TObject);
begin
// Выводим сообщение с зашифрованной строкой
ShowMessage(GetSHA256Str('https://in4.bz'));
end;
 
Последнее редактирование модератором:

Сверху Снизу