Rabu, 27 Mei 2015

Pengalaman Gue Waktu NgeHack WiFi

Hacking suatu kata yang menarik, apalagi buat gue yang hobi banget konek internet.
Main-main di kampus cuma buat wifi-an....
Tapi, lo tau kan apa yang paling ngeselin dari wifi? PASSWORD.....
Usil-usil googling buat nyari software buat ngeHack WiFi, gue nemu alamat SecurityXploded.com
Yang coeg di alamat itu, isinya software untuk nyari password, password facebook, twitter, skype, etc.
Nah, di situs itu gue nyari pake kata kunci WiFi, gue nemu ini, file yang udah gue download....
Ada WiFi Password Decryptor, bukan untuk ngeHack WiFi, tapi cuma buat ngelihat password WiFi yang pernah lu konekin sebelumnya.
Ada WiFi Password Remover, bukan buat ngehapus password WiFi, tapi cuma buat ngehapus profile WiFi yang pernah lu konekin
Ada lagi WiFi Password Key Generator, buat bikin password WiFi, tapi giliran gue input ke WiFi yang ada password, malah nggak sesuai.....

Kalau lo googling pake kata kunci "wireless password hacker", "wifi password hacker", intinya hacking password wifi, lo bakal nemu wifi hacker v3 di hasil pencarian paling atas, gue pernah download, gue coba buka aplikasinya, didalam arsip ada arsip lagi, gue buka arsip malah nemu
gue disuruh klik ke http://bit.ly/1hHiHgV, buka URL, klik download malah disuruh survei, kan kampret..................

Nah.....
Yang paling banyak gue temuin tuh, WirelessKeyView, biar lo bisa lihat password WiFi katanya, tapi begitu gue test, yang kelihatan malah password WiFi yang pernah gue konekin sebelumnya.

Kesimpulan :
Gue bingung gimana cara ngeHack WiFi yang ada passwordnya, kalau Harus ngeHack Routernya, kan harus konek ke WiFinya dulu, itu malah makin ribet lagi.
Antara gue yang kurang tahu atau para pencipta software ini pada nggak bisa bikin software buat ngeHack WiFi tanpa Harus konek ke WiFinya dulu.
Mungkin ada softwarenya, tapi kalau mau dapetin harus bayar, atau apalah......
Intinya adalah, hacking itu .......
Ah sudahlah.

Senin, 11 Mei 2015

Program Penjualan di Visual Studio 2010

Kembali membahas Visual Basic, kali ini kita akan membuat program penjualan.
Atau lebih tepatnya program kasir, yang dibahas dalam program ini adalah penggunaan Dim As atau membuat variabel di Visual Studio 2010.
Ini dia preview programnya.....
Ini bentuk formnya.....

Berikut ini coding awal program (Klik ganda di Formnya) :
GroupBox1.Text = "Penjualan"
ComboBox1.Text = "Pilih >>>"
ComboBox2.Text = "Tunai / Kredit"
Button1.Text = "Hapus"
Label1.Text = "Kode"
Label2.Text = "Nama Barang"
Label3.Text = "Jumlah"
Label4.Text = "Tunai / Kredit"
Label5.Text = "Harga Satuan : Rp"
Label6.Text = "Total : Rp"
Label7.Text = "Diskon : Rp"
Label8.Text = "Bayar : Rp"
Label9.Text = "Jumlah Uang : Rp"
Label10.Text = "Kembali : Rp"

Nah………
Ini dia, bagian Dim As (bukan Dim Sum), 
Kita menggunakan Dim ____ As String jika datanya (inputannya) dalam bentuk teks dan Dim ____ As Integer jika datanya dalam bentuk angka.
letakkan Dim As Diatas bagian Privatesub ComboBox1, Codingnya begini :

Dim Kode_Brg, Nama_brg As String
Dim Hrg_Satu As Integer

Kode_Brg = ComboBox1.Text
If Kode_Brg = "Mo" Then
Nama_brg = "Mouse"
Hrg_Satu = "50,000"
TextBox6.Text = Hrg_Satu
ElseIf Kode_Brg = "Pr" Then
Nama_brg = "Printer"
Hrg_Satu = "750,000"
TextBox6.Text = Hrg_Satu
ElseIf Kode_Brg = "Ha" Then
Nama_brg = "Harddisc"
Hrg_Satu = "500,000"
TextBox6.Text = Hrg_Satu
ElseIf Kode_Brg = "Fl" Then
Nama_brg = "Flashdisc"
Hrg_Satu = "100,000"
TextBox6.Text = Hrg_Satu
ElseIf Kode_Brg = "Lc" Then
Nama_brg = "LCD Projector"
Hrg_Satu = "400,000"
TextBox6.Text = Hrg_Satu
End If
TextBox1.Text = Nama_brg
TextBox3.Text = Hrg_Satu

Kayak di gambar ya..... 
 Di bagian setelah PrivateSub itu, saya menjelaskan apa yang dimaksud dengan variabel yang telah saya sebut tadi (Maaf kalau membuat anda bingung)
Contoh :
Kode_Brg = ComboBox1.Text maksudnya adalah Kode barang ditunjukkan dengan teks yang ada di ComboBox1
Begitu Juga dengan
Textbox1.Text = Nama_Brg dan TextBox3.Text = Hrg_Satu
Anda mungkin bertanya mengapa Hrg_Brg dan Nama_Brg diletakkan diakhir? 
Jawabannya adalah : Karena itu akan dieksekusi setelah pilihan dibuat

Hasil dari coding tadi adalah, saat anda memasukkan kode barang (di ComboBox1) maka akan muncul apa nama barang tersebut (di TextBox1) dan harga satuannya (di TextBox3)

Berikutnya untuk ComboBox2 (Pilihan Kredit/Tunai), ketentuannya adalah : jika si pembeli membeli secara tunai, maka dia akan mendapat diskon 15% dari harga total


Codingnya :


Dim kre_tun As String
Dim diskon As Integer

kre_tun = ComboBox2.Text
If kre_tun = "Tunai" Then
diskon = (15 / 100) * Val(TextBox4.Text)
ElseIf kre_tun = "Kredit" Then
diskon = "0"
End If
TextBox5.Text = diskon
TextBox6.Text = Val(TextBox4.Text) - diskon


Masalahnya adalah bagaimana jika si pembeli membeli barang yang sama namun lebih dari satu
maka kita akan mengatur agar harga satuan dikalikan dengan jumlah
Dim jml As Integer
jml = Val(TextBox2.Text)
TextBox4.Text = Hrg_Satu * jml
TextBox6.Text = Val(TextBox4.Text) - diskon



Selengkapnya di gambar 

Saya memasukkan tombol untuk menghapus dan ini codingnya

Selamat Mencoba