LM / NTLM Hash aus PWD generieren

[Harry M.]

Hallo...
Kennt jemand eine Möglichkeit den Hash aus dem Password 'bla' zugenerieren nach dem NTLM-Verfahren? Das Ergebnis sollte dann in etwa so aussehen:

Delphi-Quellcode:

function GetNTLMHash(S: String): String;
begin
  //...
  Result := '3720f434a7d733a3aad3b435b51404ee:9064d5d5688c738d26197ab4dc70c1d8';
end;

//...
Hash := GetNTLMHash('bla');
//...