Delphi Encryption Compendium - (Passwort erstellen)

[stoxx]

Hallo Hagen,


ich wollte auf Anregung in diesem Beitrag
Passwörter generieren.


http://www.delphi-praxis.de/topic747...e2c2145dd9c618

Code:

function Passwort: String 
var 
  Buffer: array[0..1023] of Byte; 
begin 
  CaptureInput(Buffer); 
  Result := THash_MD5.CalcBuffer(Buffer, SizeOf(Buffer), fmtMIME64); 
end;

Leider ist in Deinen DEC Sourcen nicht ein einziges mal der Begriff CaptureInput vorhanden.
Was macht diese Funktion ?
Ist das einfach eine Zufallsbefüllung des Buffers ?

bei THash_MD5.calcbuffer gibts noch einen Paramenter vom Typ TProtection.
kann der auf nil gesetzt werden ?


vielen Dank !

Gruß stoxx