Md5 pcu

[JörgG]

Für Dateien reicht mir crc32...

Thomas, aber xProfan hat doch keine crc32-Funktion

[ts-soft]

Zitat von JörgG

Thomas, aber xProfan hat doch keine crc32-Funktion

Die ist aber schnell geschrieben in XProfan
Aber wenn, dann auch für Strings und Memoryblöcke, nicht nur für Dateien.
Gut dokumentierten C-Source, den man auch relativ problemlos übertragen
könnte, gibts im Netz genug. Aber da geht es mir wie Andreas, ich habe da
z. Zeit keinen Bedarf

[JörgG]

aah, alles klar! Naja ich bin froh, das ich mit XProfan so einigermaßen klarkomme (wird stetig besser).

Gut dokumentierten C-Source, den man auch relativ problemlos übertragen könnte,...

gut - wenn man C kann - ansonsten

[THFR]

Mir reicht eigentlich die einfache Art der Veränderungsüberprüfung: ist die Datei noch schreibgeschützt auf das sie beim Programmende gesetzt wird (wird meist vergessen es wieder zu setzen, wenn die dbf mit einem Fremdprogramm geöffnet und geändert wurde) und einem Hash-Wert-Vergleich nach:

$H Windows.ph
Def HashData(4) ! "Shlwapi","HashData"
PassWord 1, "fg5&t6"

Declare Ende&
CLS ~GetSysColor(~Color_BTNFACE)
WindowTitle "Hash-Wert nach Tastendruck"
Whilenot Ende&
  Waitinput
  hash_Wertneu GetDir$("@")+"\\Daten\\Fahrten.dbf", "Fahrten" ' anpassen
Endwhile
End


Proc hash_Wertneu
  Parameters h.file$,h.ziel$
  Declare Datei#,hash&,size&,text$
  size& = FileSize(h.file$)
  
  Dim datei#,size&
  Blockread(h.file$,datei#,0,size&)
  HashData(Datei#,size&,Addr(Hash&),4)
  
  print Str$(Hash&)
  text$= encode64(Pwd$(Str$(Hash&)))
  print text$
  print Pwd$(decode64(text$))
  Dispose Datei#
EndProc

Gruß Thomas

[AHT]

Wenn Programme nur mit Dateien bis etwa 20MB zurechtkommen müssen oder es egal ist, ob das Programm durch einen übereifrigen User mittendrin den Geist aufgiebt und man nicht speziell MD5 braucht, kann man natürlich alles nehmen.

@Thomas: Du arbeitest zu wenig mit XProfan und kennst da manche unangenehme Verhaltensweisen nicht, die bei Multithreadingprogrammen ohne interne Messageverarbeitung nicht auftreten. Die MD5 API von Windows besitzt Funktionen, die speziell auf das ermitteln von MD5 von Dateien abgestimmt sind, und das Haken des messageverarbeitenden Threads verhinden. Hakt dieser Thread, versucht Windows das Programm abzuschießen - es erscheint dann in der Titelzeile ab Vista keine Rückmeldung. Windows fragt dann nach, ob das Programm beendet werden soll. Das passiert bei der Ermittlung von Hashes bei Daten von der Größe von etwa 20MB - das hängt aber vom Rechner ab. Manche Rechner kommen auch mit größeren Dateien zurecht, ohne dass das Haken bemerkbar ist.

Wie gesagt - soll das Programm nicht überall laufen und man braucht nicht zwingend eine MD5, kann man zum Ermitteln eines Hashes nehmen, was man will...

[THFR]

@AHT: Danke für den Hinweis.
Ist so, dass ich im Prinzip nur die auf XP laufende Vereinsverwaltung meines Angelvereins mache und die bisher größte Datei 600KB hat und es vermutlich nie 1GB werden.
Werde mich einmal nach einer Anternative umsehen.

Viele Grüße Thomas