MD5 - SHA1- SHA256 - SHA512 ile string bir değeri şifrelemek.

MD5 - SHA1- SHA256 - SHA512 ile string bir değeri şifrelemek.

Combobox - cbAlgorithms
txtValue - TextBox
txtResult - TextBox(Multiline=true)

btnEncrypt - Button

Imports System.Text

Imports System.Security.Cryptography

Public Class frmMain

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cbAlgorithms.Items.Add("Seçiniz...")

        cbAlgorithms.Items.Add("MD5")

        cbAlgorithms.Items.Add("SHA1")

        cbAlgorithms.Items.Add("SHA256")

        cbAlgorithms.Items.Add("SHA512")

        cbAlgorithms.SelectedIndex = 0

    End Sub

    Public Function EncryptMD5(ByVal ClearString As String) As String

        Dim uniEncode As New UnicodeEncoding()

        Dim bytClearString() As Byte = uniEncode.GetBytes(ClearString)

        Dim md5 As New MD5Cng

        Dim hash() As Byte = md5.ComputeHash(bytClearString)

        Return Convert.ToBase64String(hash)

    End Function

    Public Function EncryptSHA1Managed(ByVal ClearString As String) As String

        Dim uniEncode As New UnicodeEncoding()

        Dim bytClearString() As Byte = uniEncode.GetBytes(ClearString)

        Dim sha As New SHA1Managed()

        Dim hash() As Byte = sha.ComputeHash(bytClearString)

        Return Convert.ToBase64String(hash)

    End Function

    Public Function EncryptSHA256Managed(ByVal ClearString As String) As String

        Dim uniEncode As New UnicodeEncoding()

        Dim bytClearString() As Byte = uniEncode.GetBytes(ClearString)

        Dim sha As New SHA256Managed()

        Dim hash() As Byte = sha.ComputeHash(bytClearString)

        Return Convert.ToBase64String(hash)

    End Function

    Public Function EncryptSHA512Managed(ByVal ClearString As String) As String

        Dim uniEncode As New UnicodeEncoding()

        Dim bytClearString() As Byte = uniEncode.GetBytes(ClearString)

        Dim sha As New SHA512Managed()

        Dim hash() As Byte = sha.ComputeHash(bytClearString)

        Return Convert.ToBase64String(hash)

    End Function

    Private Sub btnEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click

        If cbAlgorithms.Text = "MD5" Then

            txtResult.Text = EncryptMD5(txtValue.Text)

        ElseIf cbAlgorithms.Text = "SHA1" Then

            txtResult.Text = EncryptSHA1Managed(txtValue.Text)

        ElseIf cbAlgorithms.Text = "SHA256" Then

            txtResult.Text = EncryptSHA256Managed(txtValue.Text)

        ElseIf cbAlgorithms.Text = "SHA512" Then

            txtResult.Text = EncryptSHA512Managed(txtValue.Text)

        Else

            txtResult.Text = txtValue.Text

        End If

    End Sub

End Class