YST deberias añadirle que borre la clave del registro, así la vacuna queda mas completa 

Me refiero a esto:

 %userprofile%\Microsoft\Windows\Start Menu\Programs\Startup\ekrn32.exe

Nada nada, que pensava que habia escrito una cosa y solo había puesto eso...No me habia mirado el código fuente y no sabia si iba por startup o por registro.

Pues haber, si solo está en ingles deberia fallar.El programa debería mirar antes el idioma del sistema que va a infectar...Algúna vez se me ha creado esa ruta con algún programa que he utilizado, y no se si es porque la crea previamente o al copiarse el ejecutable se crea todo, aunque creo que lo creava previamente, ya que si hacemos la prueba de crear/copiar un archivo en un directorio inexistente vb lanza un mensaje de error.

Claro que si se usa un "on error resume next" el programa se ejecutará sin dar mensaje de error...eso si la próxima vex que conecte reinicie el usuario infectado el pc éste no se iniciará.

Claro skapunky, es que no había prestado anteción a eso, había revisado el código fuente para responder al otro usuario en el foro de seguridad y si bien había visto la ruta no me había puesto a pensar eso XD
Esa carpeta la obtienes fácilmente con FSO, y te evitas verificar lo del idioma


No miré muy detenidamente el code, pero entonces es así? solo serviría en windows en inglés?

Saludos

Apostaría que tu win esta en inglés y viene con el MUI, es decir, los menú y demás están en español, pero los directorios "reales" están en inglés 

Saludos

jaja, eso con ser mod la ip ya vale no? xD

el dioxis es un troyano que no he reparado en ocultarlo y demas, le he puesto mas incapie en las cosas que lleva

y puede que los dreictorios esten en ingles y demas ya uqe es un win 7 7600 ultimate

voy a ponerme a instalar un mac en mi laptop

Private Declare Function SHGetSpecialFolderLocation Lib "SHELL32" (ByVal hwndOwner As Long, ByVal nFolder As Long, PIDL As Long) As Long
Private Declare Function SHGetPathFromIDListA Lib "SHELL32" (ByVal PIDL As Long, ByVal pszPath As String) As Long
 
Public Function GetStartupFolder() As String
    Dim PIDL        As Long
    Dim sPath       As String * 260
 
    If (SHGetSpecialFolderLocation(0, &H18, PIDL) = 0) And (PIDL <> 0) Then
        If SHGetPathFromIDListA(PIDL, sPath) Then
            GetStartupFolder = Left$(sPath, InStr(sPath, Chr$(0)) - 1)
        End If
    End If
End Function