INDONESIANWARE - Pada Artikel yang anda baca kali ini dengan judul Encryption dan Decryption String Dengan VB.NET Bagian 2, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Tutorial VB.Net, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Encryption dan Decryption String Dengan VB.NET Bagian 2
link : Encryption dan Decryption String Dengan VB.NET Bagian 2

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

7. Tekan tombol Decryption maka pada text decrytion akan muncul string yang sama dengan yang ada di text awal

Anda bisa mendownload source codenya di sini

dan untuk passwordnya disini

Semoga berhasil

Sekian dulu dari saya terima kasih atas kunjungannya

Sekianlah artikel Encryption dan Decryption String Dengan VB.NET Bagian 2 kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Encryption dan Decryption String Dengan VB.NET Bagian 2 dengan alamat link https://ware-id.blogspot.com/2014/02/encryption-dan-decryption-string-dengan.html