Private Sub CmdCalcolaCRC32_Click(sender As Object, e As EventArgs) Handles cmdCalcolaCRC32.Click
        Dim cInput As String
        Dim cBase64 As String
        Dim objSHA1 As New SHA1CryptoServiceProvider()
        Dim abBytesToHash() As Byte
        Dim cHash As String
        Dim readText() As String = File.ReadAllLines("C:\TafMis\EXE\Link_Catastali_Provincie.csv")
        cInput = readText.ToString
        cBase64 = Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(cInput))
        abBytesToHash = System.Text.Encoding.ASCII.GetBytes(cBase64)
        abBytesToHash = objSHA1.ComputeHash(abBytesToHash)
        cHash = BitConverter.ToString(objSHA1.ComputeHash(abBytesToHash))
        cHash = Replace(cHash, "-", "")
        MsgBox("BASE64: " + cBase64 + vbCrLf + "SHA1: " + cHash)
    End Sub