MD5 eller CRC Checksum hvodan få det av en Fil?

[ostehovel]

Hvordan får man MD5 eller CRC(Tror det er feil stavet :-( ) eller noe liknende fra en fil?

Sånn at mann kan sjekke om filer er like?

I VB 6.0 :-)

Håper på raskt svar

Endret 28. februar 2005 av ostehovel

[Jonas]

Jeg lagde en antivirus-program med en CRC32-kode jeg fant på PSC en gang. (Se vedlegg)

 

Funksjonen CalcCRC(<Filbane>) returnerer CRC-summen.

Antivirus.zip

Endret 28. februar 2005 av Jonas

[aadnk]

For å kalkulere en MD5-checksum kan man eksempelvis benytte denne class-modulen. Legg den inn i prosjektet ditt, hvorpå du kan bruke den som følger:

 

Public Function MD5File(sFile As String) As String

   Dim MD5 As New clsMD5
   Dim sText As String, Free As Long
   
   ' Hent ledig "handle"
   Free = FreeFile
   
   ' Åpne fil
   Open sFile For Binary As #Free
       ' Alloker buffer
       sText = Space(LOF(1))
       
       ' Last inn ALL data
       Get #1, , sText
       
   ' Lukk fil
   Close #1

   ' Benytt hele filen i sin fulle lengde til å kalkulere MD5-checksum
   MD5.InBuffer = sText
   MD5.Calculate
   
   ' Returner MD5-checksum
   MD5File = MD5.OutBuffer

End Function

 

Denne metoden er naturligvis nokså simpel, idet den laster inn hele filen i hurtiminnet for å deretter utføre beregningene. Ideelt sett burde man heller laste inn filen gradvis i flere seksjoner - men til små filer er dette utmerket.