Зашифровать в md5 128-bit hash

[UKRtortik]

Как зашифровать текст в md5 128-bit hash ?

[Serge_Bliznykov]

в MD5 нельзя ничего зашифровать - это хзш (некая "контрольная сумма").

А вот получить значение MD5 для заданного текста можно.
Вы зря поиском по форуму не пользуетесь.
Для начала посмотрите ссылки внизу страницы ("Похожие темы")

И учтите, что для MD5 от строки очень важно, что представляет собой строка (AnsiString, WideString) и в каком виде символы в строке закодированы (кодировка).

[UKRtortik]

я смотрел похожие, например:

Edit2.Text := MD5.HashStringAsHex(Edit1.Text);

Но это не то, не тот хэш. Нужен такой же как тут: http://pr-cy.ru/md5

[XE5]

Сообщение от UKRtortik

Но это не то, не тот хэш.

Написали же выше, важно учитывать, какой у Вас тип string. Ansi или юникод. Большинство кода в интернете приведено под Ansi и D7. А Вы, как я понимаю, используете XE+, и соответственно работаете с юникодом. Вот и ищите юникодные функции хэширования.

[STRELOK-2007]

Единственное для чего я вообще использую Indy в своих проектах:

unit dsMd5;

interface
uses SysUtils, Classes, IdHashMessageDigest;


function ds_md5_string(input: string): AnsiString;
function ds_md5_stream(input: TStream): AnsiString;

implementation

var
idmd5: TIdHashMessageDigest5;

function ds_md5_string(input: string): AnsiString;
begin
Result:=LowerCase(idmd5.AsHex(idmd5 .HashValue(input)));
end;

function ds_md5_stream(input: TStream): AnsiString;
begin
Result:=(idmd5.AsHex(idmd5.HashValu e(input)));
end;

initialization

idmd5:=TIdHashMessageDigest5.Create ;

finalization

idmd5.Free;

end.

[Toxa]

Сообщение от UKRtortik

не тот хэш

вот для юникода
к проекту надо подключить файл
C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\source\soap\wsdlimporte r\MessageDigest_5.pas

var
  hashpw : string;
  MD5: IMD5;
begin
  MD5 := GetMD5;
  MD5.Init;
  MD5.Update(TByteDynArray(RawByteString(APAssword)), Length(APAssword));
  hashpw := MD5.AsString;