Membuat SQL Hexa Converter menggunakan Visual Basic

Ok guys sebenarnya saya sudah lama sekali ingin menampilkan postingan saya yang kali ini, akhirnya kesampaian juga deh keinginan saya. Mungkin bagi para penjelajah website orang lain alias para defacer, Hexa converter merupakan salah satu alat perang yang sangat penting bagi mereka. Ya udah ngak usah basa – basi lagi langsung aja kita buat Sql Hexa Converter versi sederhana dengan modal vb doang.

Oke ini bahan – bahan yang akan kita butuhkan nanti :

  1. 1 buah TextBox dengan properties Text = dikosongin
  2. 1 buah Command Button dengan properties Caption = &Transform

Atur seperti gambar berikut, atau sesuai dengan keinginan kamu aja😉

Oke setelah itu kita masuk ke bagian codingnya, langsung aja dicopas ya here is the code :


'SQL Hexa Converter

'Author : cyber_criminal

'Website : https://postinganane.wordpress.com/

'Email : davidz.cracker@gmail.com

Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, "0", "30")
Text1.Text = Replace(Text1.Text, "1", "31")
Text1.Text = Replace(Text1.Text, "2", "32")
Text1.Text = Replace(Text1.Text, "3", "33")
Text1.Text = Replace(Text1.Text, "4", "34")
Text1.Text = Replace(Text1.Text, "5", "35")
Text1.Text = Replace(Text1.Text, "6", "36")
Text1.Text = Replace(Text1.Text, "7", "37")
Text1.Text = Replace(Text1.Text, "8", "38")
Text1.Text = Replace(Text1.Text, "9", "39")
Text1.Text = Replace(Text1.Text, "a", "61")
Text1.Text = Replace(Text1.Text, "b", "62")
Text1.Text = Replace(Text1.Text, "c", "63")
Text1.Text = Replace(Text1.Text, "d", "64")
Text1.Text = Replace(Text1.Text, "e", "65")
Text1.Text = Replace(Text1.Text, "f", "66")
Text1.Text = Replace(Text1.Text, "g", "67")
Text1.Text = Replace(Text1.Text, "h", "68")
Text1.Text = Replace(Text1.Text, "i", "69")
Text1.Text = Replace(Text1.Text, "j", "6a")
Text1.Text = Replace(Text1.Text, "k", "6b")
Text1.Text = Replace(Text1.Text, "l", "6c")
Text1.Text = Replace(Text1.Text, "m", "6d")
Text1.Text = Replace(Text1.Text, "n", "6e")
Text1.Text = Replace(Text1.Text, "o", "6f")
Text1.Text = Replace(Text1.Text, "p", "70")
Text1.Text = Replace(Text1.Text, "q", "71")
Text1.Text = Replace(Text1.Text, "r", "72")
Text1.Text = Replace(Text1.Text, "s", "73")
Text1.Text = Replace(Text1.Text, "t", "74")
Text1.Text = Replace(Text1.Text, "u", "75")
Text1.Text = Replace(Text1.Text, "v", "76")
Text1.Text = Replace(Text1.Text, "w", "77")
Text1.Text = Replace(Text1.Text, "x", "78")
Text1.Text = Replace(Text1.Text, "y", "79")
Text1.Text = Replace(Text1.Text, "z", "7a")
Text1.Text = Replace(Text1.Text, "A", "41")
Text1.Text = Replace(Text1.Text, "B", "42")
Text1.Text = Replace(Text1.Text, "C", "43")
Text1.Text = Replace(Text1.Text, "D", "44")
Text1.Text = Replace(Text1.Text, "E", "45")
Text1.Text = Replace(Text1.Text, "F", "46")
Text1.Text = Replace(Text1.Text, "G", "47")
Text1.Text = Replace(Text1.Text, "H", "48")
Text1.Text = Replace(Text1.Text, "I", "49")
Text1.Text = Replace(Text1.Text, "J", "4a")
Text1.Text = Replace(Text1.Text, "K", "4b")
Text1.Text = Replace(Text1.Text, "L", "4c")
Text1.Text = Replace(Text1.Text, "M", "4d")
Text1.Text = Replace(Text1.Text, "N", "4e")
Text1.Text = Replace(Text1.Text, "O", "4f")
Text1.Text = Replace(Text1.Text, "P", "50")
Text1.Text = Replace(Text1.Text, "Q", "51")
Text1.Text = Replace(Text1.Text, "R", "52")
Text1.Text = Replace(Text1.Text, "S", "53")
Text1.Text = Replace(Text1.Text, "T", "54")
Text1.Text = Replace(Text1.Text, "U", "55")
Text1.Text = Replace(Text1.Text, "V", "56")
Text1.Text = Replace(Text1.Text, "W", "57")
Text1.Text = Replace(Text1.Text, "X", "58")
Text1.Text = Replace(Text1.Text, "Y", "59")
Text1.Text = Replace(Text1.Text, "Z", "5a")
End Sub

Penjelasan dari kode diatas, saya hanya menggunakan fungsi replace yang ada di visual basic, sebagai contoh :


'Replace(Text1.Text, "0", "30") >> ini artinya angka 0 akan diganti menjadi 30 setelah tombol Transform di klik

Oke sekianlah postingan saya kali ini semoga berguna ya🙂

3 comments on “Membuat SQL Hexa Converter menggunakan Visual Basic

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s