Program Enkripsi & Dekripsi Dengan VB 6

Hallo semuanya, ni gw punya contoh sederhana program enkripsi dan dekripsi kata yang gw bikin dengan software VB 6.0. Tampilan aplikasinya seperti di bawah ini :


Maksud dari program di atas adalah apabila kita masukan satu kata misalnya "komputer" di kotak input enkripsi dan kita tekan tombol enkrip, maka kata tersebut akan diubah menjadi kata yang tidak beraturan. Sedangkan untuk dekripsi merupakan kebalikan dari proses enkripsi, jadi hasil kata dari proses enkripsi kita copy-pastekan di kotak input dekripsi, setelah itu tekan tombol dekrip, maka akan keluar kata semula.

Ni ada codingannya :
Private Sub cmd_enkrip_Click()
Dim Enkrip, Output, Inputan As String
Dim Panjang_Input As Integer
Inputan = Text1.Text
Panjang_Input = Len(Text1.Text)
For i = 1 To Panjang_Input
Enkrip = Mid(Inputan, i, 1)
Enkrip = Asc(Enkrip)
Enkrip = (Enkrip + 5) - 13
Enkrip = Chr(Enkrip)
Output = Output & Enkrip
Next i
Text2.Text = Output
End Sub

Private Sub cmd_dekrip_Click()
Dim Dekrip, Output, Inputan As String
Dim Panjang_Input, Pesan As Integer
Inputan = Text3.Text
Panjang_Input = Len(Text3.Text)
For i = 1 To Panjang_Input
Dekrip = Mid(Inputan, i, 1)
Dekrip = Asc(Dekrip)
Dekrip = (Dekrip - 5) + 13
Dekrip = Chr(Dekrip)
Output = Output & Dekrip
Next i
Text4.Text = Output
End Sub

Private Sub cmd_hapus_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Download Coding Lengkapnya

7 komentar:

Nur Alif mengatakan...

( Alief)

Keren Abis!!
Thanks U banget mas ni sangat bermanfaat buat saya!!!

Rian Feld mengatakan...

many thanx ya bro..
useful bgt postingan km.

Unknown mengatakan...

bro bisa tolong jelaskan rumus coding enskripsinya ga....saya ada tugas vb untuk enskripsi..mohon bantuannya , daya belum bisa menterjemahkan coding kerumus sebenarnya..minta tolong banget bro....kl berkenan kirim ke apsas87@yahoo.co.id

thanks ya bro...

Kemerdekaan Kreasi mengatakan...

Slm hormat, ada contoh algoritma metode enkripsi buatan lokal, dengan enkripsi berjenis simetrik dengan tipe stream cipher, dapat di lihat di www.ciauldownload.blogspot.com pada bagian artikel, Terima kasih

Agus Sopian mengatakan...

mas g bsa kbka link'y bsa d krm k email sy. Mks sblm'y, sy btuh bgt. .

surya mengatakan...

bro ada metode dr bprogram kamu diatas gak , ,
gmn bisa kluar hasilnya , kan gak bisa keliatan dari program nya .

Y_P mengatakan...

thanks ya bro...
bermanfaat nieh post mu.. :)

izin sedot..

eh iya,, mampir juga ya gan ke blog q gotgets.blogspot.com