Imports System.Text

Public Class frmHash

''' Вычисляем хэш

Private Sub cmdHash_Click(sender As System.Object, _

e As System.EventArgs) Handles cmdHash.Click

If txtSourceText.Text.Length = 0 Then

'Выводим сообщением, что окно пустое

MessageBox.Show("Введите исходный текст")

Else

'считываем исходный текст из текстового окна

Dim SourceText As String = txtSourceText.Text

'-------------------MD5-------------------------

'объявляем крипто-провайдер

Dim md5Provider As New MD5CryptoServiceProvider

'объявляем строковую переменную и рассчитываем MD5-хэш

Dim MD5Hash As String = Convert.ToBase64String(_

md5Provider.ComputeHash(UTF8Encoding.UTF8.GetBytes(_

SourceText)))

'Выводим хэш в текстовое окно

txtMD5.Text = MD5Hash

'-------------------SHA-1-------------------------

'объявляем менеджер SHA-1

Dim SHA1Manager As New SHA1Managed

'объявляем строковую переменную и рассчитываем SHA-1-хэш

Dim SHA1Hash As String = Convert.ToBase64String(_

SHA1Manager.ComputeHash(UTF8Encoding.UTF8.GetBytes(_

SourceText)))

'Выводим хэш в текстовое окно

txtSHA1.Text = SHA1Hash

'-------------------SHA-256-------------------------

'объявляем менеджер SHA-256

Dim SHA256Manager As New SHA256Managed

'объявляем строковую переменную и рассчитываем SHA-256-хэш

Dim SHA256Hash As String = Convert.ToBase64String(_

SHA256Manager.ComputeHash(UTF8Encoding.UTF8.GetBytes(_

SourceText)))

'Выводим хэш в текстовое окно

txtSHA256.Text = SHA256Hash

'-------------------SHA-384-------------------------

'объявляем менеджер SHA-384

Dim SHA384Manager As New SHA384Managed

'объявляем строковую переменную и рассчитываем SHA-256-хэш

Dim SHA384Hash As String = Convert.ToBase64String(_

SHA384Manager.ComputeHash(UTF8Encoding.UTF8.GetBytes(_

SourceText)))

'Выводим хэш в текстовое окно

txtSHA384.Text = SHA384Hash

'-------------------SHA-512-------------------------

'объявляем менеджер SHA-512

Dim SHA512Manager As New SHA512Managed

'объявляем строковую переменную и рассчитываем SHA-512-хэш

Dim SHA512Hash As String = Convert.ToBase64String(_

SHA512Manager.ComputeHash(UTF8Encoding.UTF8.GetBytes(_

SourceText)))

'Выводим хэш в текстовое окно

txtSHA512.Text = SHA512Hash

End If

End Sub

''' Очищаем текстовые окна

Private Sub cmdClear_Click(sender As System.Object, _

e As System.EventArgs) Handles cmdClear.Click

txtSourceText.Clear()

txtMD5.Clear()

txtSHA1.Clear()

txtSHA256.Clear()

txtSHA384.Clear()

txtSHA512.Clear()

End Sub

''' Выход

Private Sub cmdExit_Click(sender As System.Object, _

e As System.EventArgs) Handles cmdExit.Click

Application.Exit()

End Sub

End Class