Delphi Sha1 mit Dec - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Sha1 mit Dec

Ein Thema von Larsi · begonnen am 15. Sep 2008 · letzter Beitrag vom 17. Sep 2008

Larsi Sha1 mit Dec 15. Sep 2008, 19:11

toms Re: Sha1 mit Dec 15. Sep 2008, 19:18

Larsi Re: Sha1 mit Dec 15. Sep 2008, 19:32

DeddyH Re: Sha1 mit Dec 15. Sep 2008, 19:40

Larsi Re: Sha1 mit Dec 15. Sep 2008, 19:43

FAlter Re: Sha1 mit Dec 15. Sep 2008, 19:50

DeddyH Re: Sha1 mit Dec 15. Sep 2008, 19:51

Larsi Re: Sha1 mit Dec 15. Sep 2008, 20:01

negaH Re: Sha1 mit Dec 15. Sep 2008, 20:04

FAlter Re: Sha1 mit Dec 15. Sep 2008, 20:05

Larsi Re: Sha1 mit Dec 15. Sep 2008, 20:08

negaH Re: Sha1 mit Dec 16. Sep 2008, 19:52

Larsi Re: Sha1 mit Dec 17. Sep 2008, 14:19

Die Muhkuh Re: Sha1 mit Dec 17. Sep 2008, 14:22

Larsi Re: Sha1 mit Dec 17. Sep 2008, 19:07

Die Muhkuh Re: Sha1 mit Dec 17. Sep 2008, 19:10

Larsi Re: Sha1 mit Dec 17. Sep 2008, 19:18

Die Muhkuh Re: Sha1 mit Dec 17. Sep 2008, 19:19

Larsi Re: Sha1 mit Dec 17. Sep 2008, 19:21

Die Muhkuh Re: Sha1 mit Dec 17. Sep 2008, 19:23

Larsi Re: Sha1 mit Dec 17. Sep 2008, 19:26

Die Muhkuh Re: Sha1 mit Dec 17. Sep 2008, 19:26

Larsi Re: Sha1 mit Dec 17. Sep 2008, 19:29

Die Muhkuh Re: Sha1 mit Dec 17. Sep 2008, 19:30

Larsi Re: Sha1 mit Dec 17. Sep 2008, 19:34

Die Muhkuh Re: Sha1 mit Dec 17. Sep 2008, 19:34

DeddyH Re: Sha1 mit Dec 17. Sep 2008, 19:37

Die Muhkuh Re: Sha1 mit Dec 17. Sep 2008, 19:37

Vorheriger Beitrag

Nächster Beitrag

Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge

Delphi 2007 Professional

#11

Re: Sha1 mit Dec

15. Sep 2008, 20:08

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?

zusammenfalten · markieren

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?