Arkadaşlar araştırmalarımla aşağıdaki kod ile bir dosyanın md5 hash değerini bulabiliyorum.

Fakat SHA1 , SHA256 hash değerini nasıl bulabilirim?


Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim X As OpenFileDialog = New OpenFileDialog
X.Filter = "All Files (*.*)|*.*"
If (X.ShowDialog() = DialogResult.OK) Then TextBox1.Text = X.FileName
If X.FileName = "" Then Exit Sub

Dim Y As FileStream = New FileStream(TextBox1.Text, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)


Y = New FileStream(TextBox1.Text, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
Dim md5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider
md5.ComputeHash(Y)
Y.Close()

Dim hash As Byte() = md5.Hash
Dim buff As StringBuilder = New StringBuilder
Dim hashByte As Byte
For Each hashByte In hash
buff.Append(String.Format("{0:X1}", hashByte))
Next
LabelHash.Text = "MD5 : " & buff.ToString()
End Sub
End Class