Fauzian Sebastian (Zian Tech)
Menu
  • Home
  • TKJ
    • Perakitan
    • Installasi
    • Konfigurasi
    • TroubleHosting
  • Rekayasa Perangkat Lunak
    • WEB Design
    • Software Aplication
  • Multimedia
    • Animation
    • Desain Graphic
  • Trending Topic
  • Tentang Saya

Saturday, 8 February 2014

Encryption dan Decryption String Dengan VB.NET Bagian 2

By zianovel21:39:00 No comments
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

Email ThisBlogThis!Share to XShare to Facebook
Newer Post Older Post Home

0 komentar:

Post a Comment

Popular Posts

  • Mengatasi error "String or binary data would be truncated. The statement has been terminated."
    Malam semua setelah beberapa jam yang lalu saya memposting tentang CRUD dengan VB.NET Bagian 1  kali ini saya akan memposting  C ara mengata...
  • Cara Dual Boot Kali Linux dan Windows
    Kali Linux Indonesia - Cara Install Dual Boot Kali Linux dan Windows halo sobat dimana pun berada disini penulis blog Kali Linux Indonesia...
  • Memutuskan Koneksi Orang Lain Dengan Tuxcut Kali Linux
    Memutuskan Koneksi Orang Lain Dengan Tuxcut Kali Linux - Tuxcut adalah sebuah program kecil yang berfungsi ( netcut ) "memotong ...
  • Tutorial Sql Injection Dengan SQLMAP Kali Linux
    Tutorial Sql Injection Dengan SQLMAP Kali Linux - SQL Injection merupakan sebuah teknik hacking dimana seorang penyerang dapat memasukka...
  • Cara Mengatasi Error di Kali Linux
    Cara Mengatasi Error di Kali Linux - Pernah kah anda mengalami error di kali linux anda? jika pernah pasti menjengkelkan tidak bisa update t...

Blog Archive

  • ►  2020 (1)
    • ►  March (1)
  • ►  2016 (26)
    • ►  October (10)
    • ►  May (1)
    • ►  February (3)
    • ►  January (12)
  • ►  2015 (35)
    • ►  December (2)
    • ►  October (4)
    • ►  September (18)
    • ►  August (1)
    • ►  June (1)
    • ►  May (2)
    • ►  April (1)
    • ►  March (1)
    • ►  January (5)
  • ▼  2014 (99)
    • ►  December (1)
    • ►  November (3)
    • ►  October (1)
    • ►  September (6)
    • ►  August (3)
    • ►  July (3)
    • ►  June (9)
    • ►  May (9)
    • ►  April (27)
    • ►  March (20)
    • ▼  February (10)
      • Statement Case di Turbo Pascal
      • Statement IF di Turbo Pascal
      • Search Data Dengan PHP dan MySQL
      • Membuat Login Case Sensitive Dengan PHP dan MySQL
      • Simpan Edit Hapus Dengan PHP dan MySQL
      • Encryption dan Decryption String Dengan VB.NET Bag...
      • Penggunaan SUM, MIN, MAX, COUNT, AVG Di SQL
      • 7 Situs Paling Populer Untuk Ping Postingan Blog
      • Encryption dan Decryption String Dengan VB.NET Bag...
      • Auto Publish Post/Artikel Blog Ke Facebook
    • ►  January (7)
  • ►  2013 (17)
    • ►  December (6)
    • ►  November (1)
    • ►  October (9)
    • ►  March (1)

Tentangku Yang tak pernah Usai

My Photo
zianovel
Kenalan dulu yu, karena ada istilah tak kenal maka tak sayang. Ya walaupun terkadang udah lama kenal eh ga disayang-sayang. Giliran udah kenal dan udah sayang, eh malah ditinggal pas lagi sayang-sayangnya.
View my complete profile

Copyright © Design by Muhamad Fauzian