Google Mobile Ads

Thursday, September 12, 2013

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)

LinkWithin

Related Posts Plugin for WordPress, Blogger...