Sha1 mit Dec

[Larsi]

Dieser Fehler kommt aber immernoch. Ich habe die neuste Version von Dec.


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);

Hilft dieser Ausschnitt hilfreich dafür?