MD5-checksumme?

Übersicht

BlitzBasic

Allgemein

	BtbN Betreff: MD5-checksumme?	So, Aug 21, 2005 11:05 Antworten mit Zitat
Link: https://www.blitzforum.de/viewtopic.php?t=13312 Das ganze hätte ich jetzt gerne für B+-Komaptibel. Ich selbst bekomms nicht hin.

BtbN

Betreff: MD5-checksumme?

So, Aug 21, 2005 11:05
Antworten mit Zitat

Link: https://www.blitzforum.de/viewtopic.php?t=13312

Das ganze hätte ich jetzt gerne für B+-Komaptibel.
Ich selbst bekomms nicht hin.

	simi	So, Aug 21, 2005 11:09 Antworten mit Zitat
Link: https://www.blitzforum.de/viewtopic.php?t=1382

simi

So, Aug 21, 2005 11:09
Antworten mit Zitat

Link: https://www.blitzforum.de/viewtopic.php?t=1382 Wink

	BtbN	So, Aug 21, 2005 11:18 Antworten mit Zitat
Gut, und jetzt noch ne Frage: Wie erstell ich ne MD5-Checksumme von ner Datei?

BtbN

So, Aug 21, 2005 11:18
Antworten mit Zitat

Gut, und jetzt noch ne Frage:
Wie erstell ich ne MD5-Checksumme von ner Datei?

	simi	So, Aug 21, 2005 11:21 Antworten mit Zitat
Naja, du übergibtst den Dateinamen, oder den Dateiinhalt der md5-Funktion, dann bekommst du die Checksumme von der Datei....

simi

So, Aug 21, 2005 11:21
Antworten mit Zitat

Naja, du übergibtst den Dateinamen, oder den Dateiinhalt der md5-Funktion, dann bekommst du die Checksumme von der Datei....

	BtbN	So, Aug 21, 2005 11:32 Antworten mit Zitat
Also is das so ok? BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function checkmd5$(ffielle$) Local dateibytes$ Local tempByte$ Local hash$ ffiel = ReadFile(ffielle$) If ffiel Then Repeat tempByte$ = Chr(ReadByte(ffiel)) dateibytes$ = dateibytes$ + tempByte$ Until Eof(ffiel) hash$ = MD5$(dateibytes$) Return hash$ Else Return False EndIf End Function

BtbN

So, Aug 21, 2005 11:32
Antworten mit Zitat

Also is das so ok?

BlitzBasic: [AUSKLAPPEN]

Function checkmd5$(ffielle$)
Local dateibytes$
Local tempByte$
Local hash$
ffiel = ReadFile(ffielle$)
If ffiel Then
Repeat
tempByte$ = Chr(ReadByte(ffiel))
dateibytes$ = dateibytes$ + tempByte$
Until Eof(ffiel)
hash$ = MD5$(dateibytes$)
Return hash$
Else
 Return False
EndIf
End Function