Ich habe ganz sicher das aktuellste
DEC installiert. Was soll das bringen das jetzt nochmal zu machen? Kann nochmal jemand auf meinen Post gerade antworten:
Zitat von
Larsi:
Ich habe noch eine
Pas datei gefunden:
http://www.koders.com/delphi/fid872E...aspx?s=sha1#L3 . Könnt ihr mir dafür ein Anwendungsbeispiel geben?
Delphi-Quellcode:
type
TSHA1Digest= array[0..19] of byte;
TSHA1Context= record
Hash: array[0..4] of DWord;
Hi, Lo: integer;
Buffer: array[0..63] of byte;
Index: integer;
end;
function SHA1SelfTest: boolean;
procedure SHA1Init(var Context: TSHA1Context);
procedure SHA1Update(var Context: TSHA1Context; Buffer: pointer; Len: integer);
procedure SHA1Final(var Context: TSHA1Context; var Digest: TSHA1Digest);
Ist dieser Ausschnitt hilfreich dafür?