krypografiske signatur af en fil

MD5 er med i .NET API.

Eksempel fra docs:

Function MD5hash(data() As Byte) As Byte()
    ' This is one implementation of the abstract class MD5.
    Dim md5 As New MD5CryptoServiceProvider()
     
    Dim result As Byte() = md5.ComputeHash(data)
     
    Return result
End Function

Du skal så bare læse filen ind selv og kaldesom i eksemplet.

Du skal importere System.Security.Cryptography namespace.

Direkte fra MSDN ;-) Skal jeg forstå, at jeg bliver nødt til at lave en MD5 af hele filens indhold?

Ikke nødvendigvis.

Du kan også hashe fil navn + størrelse af filen + dato på fil + ejer af fil.

Eller de første 1000 bytes af filen.

Det bestemmer du jo selv.

Men normalt hasher man hele filen.

Jeg troede at der var en smart måde at gøre det på i stedet for at skulle indlæse filens indhold.

Public Function Calculate_Md5Hash(ByVal Str_Value As String) As String
  ' Calculate an MD5 hash of the Str_Value
  Dim Obj_Md5 As New MD5CryptoServiceProvider()
  Dim Obj_Encoder As New UnicodeEncoding()
  Dim Obj_StringBuilder As System.Text.StringBuilder = New System.Text.StringBuilder()
  Dim Byte_Data() As Byte
  Byte_Data = Obj_Encoder.ASCII.GetBytes(Str_Value)
  Dim Byte_Result As Byte() = Obj_Md5.ComputeHash(Byte_Data)
  Dim Int_Index As Int32
  For Int_Index = 0 To Byte_Result.Length() - 1
    Obj_StringBuilder.Append(Byte_Result(Int_Index).ToString("X2"))
  Next
  Return Obj_StringBuilder.ToString().ToLower()
End Function

Str_Md5Signature = Calculate_Md5Hash(Str_FilensIndhold)

Det er dejligt at du er så hurtig Arne. Igen, mange tak for hjælpen.