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?

[negaH]

ResultStringAlsHEX := THash_SHA1.CalcFile('C:\DeineDatei.txt', TFormat_HEX); ist richtig mit der neusten Version aus obigem Link. Dein Beispiel bezieht sich auf eine ältere Version.


Gruß Hagen

[Larsi]

Und wie muss ich das umschreiben das es geht?

[Die Muhkuh]

Neuestes DEC nutzen...

[Larsi]

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?

[Die Muhkuh]

Hagen hat Dir doch ein Beispiel gegeben, wie man das neuste DEC nutzt. Wo ist das Problem, dieses zu nehmen?

Ich würde schauen, ob Du auch wirklich die alten DCUs gelöscht hast, die Suchpfade ( ) richtig passen etc.

[Larsi]

Ich habe bevor hagen mir den tipp gegeben hat schon das DEC 5.1 gehabt!

[Die Muhkuh]

Und wo ist das Problem, wenn Du Hagens Code ausprobierst?

[Larsi]

Zitat von Larsi:

Ich habe jetzt mal ein paar wo DEC im Namen drinnen stand genommen jetzt kommt nur noch ein Fehler:
[DCC Fehler] Unit3.pas(913): E2003 Undefinierter Bezeichner: 'fmtHEX'

[Die Muhkuh]

Schau Dir nochmal Hagens Beispiel an