Rabu, 23 September 2020

Vb.Net: Enkripsi Dengan Bytes Dan Md5


Membahas perihal enkripsi lazimnya ga jauh-jauh dari problem security. Enkripsi lazimnya digunakan untuk data login. Contoh berikut ini menjelaskan proses enkripsi dimana string diubah terlebih dahulu ke format array bytes baru kemudian dienkripsi dengan MD5.

Biar bisa lihat hasil nya kita bikin dulu UI nya:

Proses yang akan dibentuk ialah dikala kita memasukan teks ke TextBox1 lalu klik Button 1, hasil enkripsi akan ditampilkan di Label1. Code nya:
Imports System.Security.Cryptography
Imports System.Text

Public Class frmEncrypt

    'konversi data string --> bytes
    Function Convert2ByteArray(ByVal strInput As String) As Byte()
        Dim encoder As New UTF8Encoding()
        Dim md5Hasher As New MD5CryptoServiceProvider
        Return md5Hasher.ComputeHash(Encoder.GetBytes(strInput))
    End Function

    'Encrypt text
    Function Encrypt_Data(ByVal strToEncrypt As String) As String
        Dim objMD5 As MD5CryptoServiceProvider
        Dim strEncrypted As String

        objMD5 = New MD5CryptoServiceProvider
        strEncrypted = BitConverter.ToString(objMD5.ComputeHash( _
                       Convert2ByteArray(strToEncrypt)))

        Return strEncrypted
    End Function

    Private Sub frmEncrypt_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Encrypt"
        Label1.Text = String.Empty
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = Encrypt_Data(TextBox1.Text)
    End Sub

End Class


Okay, lets try to run...




Click here if you like this article.



Sumber http://rani-irsan.blogspot.com


EmoticonEmoticon

:)
:(
hihi
:-)
:D
=D
:-d
;(
;-(
@-)
:o
:>)
(o)
:p
:-?
(p)
:-s
8-)
:-t
:-b
b-(
(y)
x-)
(h)