Prüfsumme ermitteln

n-regen · Beiträge: 202 Erhaltene Danke: 2

Hallo!
Bald geht mein FTP-Server ans Netz, und ich will meinen Besuchern die Möglichkeit geben, zu prüfen, ob die Datei korrekt downgeloadet wurde.
Gibt es in Delphi eine Möglichkeit, die Prüfsumme einer Datei zu ermitteln?
Wenn ja wie und geht es mit verschiedenen Möglichkeiten?

DeadlyAppearance · Beiträge: 113 Win 7 Delphi 2010 Arch., C# VS 2008

Sowas?
www.delphipraxis.net/post361254.html

_________________
Als du auf die Welt kamst, weintest du, und um dich herum freuten sich alle. Lebe so, daß, wenn du die Welt verläßt, alle weinen und du allein lächelst.

n-regen · Beiträge: 202 Erhaltene Danke: 2

Sieht ganz gut aus, aber wie use ich das jetzt?

DeadlyAppearance · Beiträge: 113 Win 7 Delphi 2010 Arch., C# VS 2008

Diese Komponenten sind ksotenlos und sehr nice. Benutze die selbst.

www.cityinthesky.co.uk/cryptography.html

_________________
Als du auf die Welt kamst, weintest du, und um dich herum freuten sich alle. Lebe so, daß, wenn du die Welt verläßt, alle weinen und du allein lächelst.

Jakob Schöttl · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

Hi,
Du könntest auch so machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

const OrginalDatei_Pruefsumme = {z.B. 245);
var PruefSumme,byt: byte;
begin
Filestream1.Read(pruefsumme,1);
While Filestream1.Read(byt,1) = 1 do begin
  PruefSumme := byt xor PruefSumme;
end;
if PruefSumme = OrginalDatei_PruefSumme then ShowMessage('Erfolgreich')
 else ShowMessage('Misserfolg');
end;

So wird das im Prinzip auch bei unserer HeizungsSteuerung gemacht. Die Methode ist ziemlich sicher, außer wenn sich mehrere Fehler aufheben. Wäre aber großer Zufall.

Den Quelltext müsstest du natürlich noch deinen Bedürfnissen anpassen und ich weiß auch nicht, wie man ihn Optimieren kann,
vielleicht irgendwie das Read ganz am anfang weglassen??

Jemand ne Idee?

Moderiert von matze: Delphi-Tags hinzugefügt

Marco D. · Verfasst: Mo 24.04.06 18:26

Ich benutze dafür den MD5-Algorithmus. Lade dir md5.pas (Google-Suche: 'md5.pas download'). Diese dann über uses einbinden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

uses md5;

function FileHash(dateipfad : string):string;
begin
result:=md5print(md5file(dateipfad));
end;

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme