[VBNET] File CheckSum 예제 (MD5 Hash)

* MD5 를 이용한 파일 체크섬 예제...

 

메인화면

전체 소스 코드

Form1.vb

 

Public Class Form1

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        Dim ofd As OpenFileDialog = New OpenFileDialog()

        '텍스트 파일만 열기...
        'ofd.Filter = "TXT File(*.txt)|*.txt"

        If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then

            '파일 내용을 byte 배열로 얻어 오기...
            Dim btAscii() As Byte = System.IO.File.ReadAllBytes(ofd.FileName)
            Dim btHash() As Byte = System.Security.Cryptography.MD5.Create().ComputeHash(btAscii)

            lblSourcePath.Text = ofd.FileName
            textBox1.Text = BitConverter.ToString(btHash).Replace("-", "").ToLower()


            If textBox2.Text <> "" Then
                If textBox1.Text = textBox2.Text Then
                    lbl.Text = "체크섬이 같습니다."
                Else
                    lbl.Text = "체크섬이 다릅니다."
                End If
            End If

        End If

    End Sub

    Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
        Dim ofd As OpenFileDialog = New OpenFileDialog()

        '텍스트 파일만 열기...
        'ofd.Filter = "TXT File(*.txt)|*.txt"

        If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then

            '파일 내용을 byte 배열로 얻어 오기...
            Dim btAscii() As Byte = System.IO.File.ReadAllBytes(ofd.FileName)
            Dim btHash() As Byte = System.Security.Cryptography.MD5.Create().ComputeHash(btAscii)

            lblDestPath.Text = ofd.FileName
            textBox2.Text = BitConverter.ToString(btHash).Replace("-", "").ToLower()


            If textBox1.Text <> "" Then
                If textBox1.Text = textBox2.Text Then
                    lbl.Text = "체크섬이 같습니다."
                Else
                    lbl.Text = "체크섬이 다릅니다."
                End If
            End If

        End If
    End Sub

End Class

 

* 예제 결과

 

위 그림은 파일 안에 내용이 같았을 경우 만약 다르다면...

 

위 그림과 같이 체크섬이 다르게 표시 됩니다.

 

https://kdsoft-zeros.tistory.com/57

[C#] File CheckSum 예제 (MD5 Checksum)