Tutorial VB.6 Membuat Aplikasi Encrypt & Decrypt

Nah, ketemu lagi, kayaknya hari ini saya akan membuat posting lebih banyak lagi deh . .

Ok Tutorial Kali ini adalah bagaimana membuat Aplikasi Encrypt Dan Decrypt.

Sekilas tentang Aplikasinya :

Nanti ada textbox dan label, textbox berguna untuk input data yang ingin anda enkripsikan dan hasilnya akan tampil di label.

Langsung saja ya :

1. Seperti biasa buat project baru Standard EXE.

   

2. Tambahkan 1 textbox(txtData) 1 label(LblHasil) dan 3 command Button(CmdEn, CmdDe, CmdExit) dan sesuaikan seperti gambar, atau bisa versi anda yang penting rapih. Karena ada CmdExit yang berfungsi keluar dari aplikasi maka properties ControlBox saya False-kan saja.

   

3. Kemudian Copy-kan Script berikut.

	'Encrypt & Decrypt Form
	'By Mr_Nugh
	'2015
	Dim xCode As String, xData As String, xTemp As String 'deklarasi variable global
	Sub Translate() 'Sub Translate
	Dim I As Integer 'deklarasi variable
	Dim location As Integer 'deklarasi variable
	xTemp$ = "" 'inisialisasi xTemp
	For I% = 1 To Len(xData$) 'rumus encrypt
	location% = (I% Mod Len(xCode$)) + 1
	xTemp$ = xTemp$ + Chr$(Asc(Mid$(xData$, I%, 1)) Xor _
	Asc(Mid$(xCode$, location%, 1)))
	Next I%
	End Sub
	Private Sub CmdEn_Click()
	'xCode di bawah adalah rumus pengenkripsian. Ganti '1234567890'
	'dengan string apapun yang Anda inginkan, bahkan Anda dapat
	'mengubah panjang dari string xCode ini.
	xCode = "10101010101"
	'xData disorot pada txtData.text
	xData = txtData.Text
	Translate
	MsgBox "Mode Encrypt", vbOKOnly, "Pemberitahuan" 'pemberitahuan mode dipilih
	LblHasil.Caption = (xTemp$) 'hasil akan muncul diLblHasil.caption
	End Sub
	Private Sub CmdDe_Click()
	xData = xTemp$
	Translate
	MsgBox "Mode Decrypt", vbOKOnly, "Pemberitahuan"
	LblHasil.Caption = (xTemp$)
	End Sub
	Private Sub CmdExit_Click()
	End
	End Sub
	'Akhir Program - - - >>
	'Esaprasetio.blogspot.com
	'skybynez.wordpress.com

view raw Encrypt Decrypt hosted with ❤ by GitHub


4. Selesai! tinggal Run dan coba anda masukkan nama anda dan tekan tombol Encrypt.
5. Anda bisa mengganti 10101010101 dengan teks apa saja, contoh "abcdefghijk" dll karena hanya lah string.

Demikian Tutorialnya. Sangat mudah kan?

Download Projectnya Disini

Terimakasih

Google + : https://plus.google.com/u/0/+esaprasetio
Twitter : http://twitter.com/aphriell_art
IG : @aphriel_art
Blog :
aprilartwork.blogspot.com for my artwork
aphriellart.blogspot.com for some tutorial
Email : aphriellart@gmail.com