Encryption dan Decryption String Dengan VB.NET Bagian 2

Kali ini saya akan melanjutkan postingan saya yang sebelumnya yaitu Encryption dan Decryption String Dengan VB.NET Bagian 1
jika kemarin anda sudah berhasil melakukan encryption kali ini saya akan melanjutkan bagaimana melakukan decrytion nya, sebelum memulainya ada baiknya anda melihat atau mendownload source code pada postingan saya sebelumnya Encryption dan Decryption String Dengan VB.NET Bagian 1

Oke setelah anda sudah mendownload source code nya
langsung saja

1. Buka project encrypt_decrypt_text_bagian1

2. Tambahkan 1 buah textbox, button dan label

Object	Property	Value
Label1	Text	Hasil Decrypt
Textbox1	Name	Txt_decrypt
Button1	Name	Btn_decrypt
	Text	Decryption

sehingga design formnya seperti gambar dibawah ini

3. Buatlah sebuah fungsi untuk decryption string dengan script dibawah ini

Private Function DecryptText(ByVal Chippedtexta As System.String) As System.String
        Dim mykey As String = "Tutorial Koding"
        Dim iv() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
        Dim inputbytearray(Chippedtexta.Length) As Byte
        Dim strresult As System.String
        Try
            Dim bykey() As Byte = System.Text.Encoding.UTF8.GetBytes(Strings.Left(mykey, 8))
            Dim des As New DESCryptoServiceProvider
            inputbytearray = Convert.FromBase64String(Chippedtexta)
            Dim ms As New MemoryStream
            Dim cs As New CryptoStream(ms, des.CreateDecryptor(bykey, iv), CryptoStreamMode.Write)
            cs.Write(inputbytearray, 0, inputbytearray.Length)
            cs.FlushFinalBlock()
            Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
            strresult = encoding.GetString(ms.ToArray())
            Return strresult
        Catch ex As Exception
            Throw New Exception
        End Try
    End Function

4. Double Click tombol btn_decrypt lalu tambahkan script dibawah ini

txt_decrypt.Text = DecryptText(txt_encrypt.Text)

5. Tekan CTRL+S lalu jalankan program tersebut dengan menekan F5

6. Input kan sebuah string ke dalam txt_awal lalu tekan tombol Encrypt maka hasilnya akan seperti gambar dibawah ini