Sha1 mit Dec

[Larsi]

Hi,
ich habe hier in der Dp von Hagen gepostet folgenden Code gefunden:

Delphi-Quellcode:

ResultStringAlsHEX := THash_SHA1.CalcFile('C:\DeineDatei.txt', nil, fmtHEX);

Beim Kompillieren kommen allerdings Fehler. Mein Problem: Welche Dateien muss ich oben bei uses einbinden? Dec ist generell installiert.

Dann wollte ich nochmal fragen ob es außer Md5 und Sha1 nochmehr Funktionen gibt die man über Dec nutzen kann und die halt auch so eine "einmahlige" Zeichenkette erstellen kann.

[toms]

Zitat:

Zitat von Larsi

Welche Dateien muss ich oben bei uses einbinden? Dec ist generell installiert.

:arrow: Öffne den Explorer, Suche starten, Suche nach *.pas + Suchtext: CalcFile

[Larsi]

Dort wird keine Datei gefunden. Komisch. Kann man nicht einfach irgendwas in der uses Klausel einbinden?

[DeddyH]

Klar:

Delphi-Quellcode:

uses Windows, SysUtils, ..., Irgendwas;

Nee, im Ernst, Du kannst auch mit Delphi Dateien durchsuchen, die Windows-Suche (zumindest von XP) schließt *.pas-Dateien anscheinend aus, das Problem ist bekannt.

[Larsi]

Die findet die Datei auch nicht :( Hab die Funktion "In Dateien Suchen" genommen. Gibt es auch ne Möglichkeit den Sha1 Wert einer Datei ohne DEC auszulesen, habe bei Google gesucht aber nur die Variante mit DEC hier gesehen. Aber falls jemand mich von Gegenteil bezeugen kann wäre ich sehr glücklich.

[FAlter]

Hi,

also unter XP mit der Live Search installiert und entsprechend konfiguriert kann man auch PAS Dateien durchsuchen. ;)

Bild im Anhang, HTH.

OMG, jetzt wissen alle, was ich für ein Programm geschrieben habe, um das DEC auszuprobieren... :duck:

Mfg
FAlter

[DeddyH]

Sha1-Wert auslesen :gruebel:? Ich habe bei mir eine Test-Unit von Hagen gefunden mit der uses-Klausel:

Delphi-Quellcode:

uses Windows, SysUtils, Classes, ConsoleForm, DECUtil, DECHash, DECRandom,
     NMath, NInts, NInt_1, NCombi, NRats, Prime, IDPrimes, DECCipher, DECFmt,
     comctrls, Controls, SRP, NPolys, NGFPs, NGFPBld, NGFPTab, CRC, Math;

Die kannst Du ja mal nehmen und stückchenweise auskommentieren, bis Du weißt, welche Unit es ist.

[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'

[negaH]

uses DECUtil, DECHash, DECFmt,....;

sollten ausreichen.

DECUtil -> alle Basisklassen/Funktionen des DECs, quasi wie SysUtils.pas von Borland
DECFmt -> DEC Format Klassen
DECHash -> Hash Klassen, also THash_SHA1

Aber du solltest dir die neuste Version ziehen -> http://www.michael-puff.de/Developer...agen_Reddmann/
Datei DEC_5_1c.zip

Gruß Hagen

[FAlter]

Hi,

mal sehen, was meine Suche dazu sagt...

Ah ja, der DEC Meister hat nen Roten Kasten gebaut...

Mfg
FAlter

[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]

Delphi-Quellcode:

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:

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 ( :mrgreen: ) 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:

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 :roll:

[Larsi]

Ich habe kurz vor erstellen dieses Threads genau aus dem Link den Hagen gestern gepostet DEC 5.1 gedownloadet, wie oft soll ich das noch sagen!!!

[Die Muhkuh]

Du sollst sein Code ansehen. Wie oft soll ich das noch sagen!!!

[Larsi]

Kannst du mir mal sagen welchen Code du meinst, in diesem Thread befindet sich keiner von ihm der mir hilft. Oder bin ich blind? Sag mir mal welcher Post!

[Die Muhkuh]

Es gibt nur eine Stelle in diesem Thread, an dem Hagen einen Code gepostet hat. Augen aufmachen ;)

[Larsi]

Hups :oops: Ich dachte das das mein Code war den er gepostet hat :lol:


Jetzt gehts!

[Die Muhkuh]

Lies mal Detlefs Signatur :zwinker:

[DeddyH]

No further comment :mrgreen:

[Die Muhkuh]

Besser is das :mrgreen: