Tema destacado: Últimos eventos sobre seguridad/inseguridad
Autor
|
Tema: "" INSERTAR UN EJECUTABLE DENTRO DE OTRO "" (Leído 3,002 veces)
|
gera
Desconectado
Mensajes: 5
|
Hola, estoy necesitando en ejemplo vb que pueda abrir un archivo (*.exe), que lo haga dentro del mismo formulario en "modo bynario",y una función que lo pueda guardar en (*.exe) nuevamente.
|
|
|
|
|
En línea
|
|
|
|
yeikos
Desconectado
Mensajes: 1.424
|
Mira, acabo de terminar un programa que lo he llamado Inyector y me han surjido varios problemas. Para sacar los datos de un ejecutable se utiliza Get, y estos datos deben de almacenarse en una variable string con limitaciones, ejemplo: Dim size As String * 50006 'bytes
El problema es que las limitaciones estás como bien dicen tienen un límite que rondan por los 65000 o por ahí, eso quiere decir que si el archivo pesa 100kb no puedo cojer su código con la función Get, probé haciendo Dim size As String * FileLen("C:\fichero.exe"), pero las limitaciones deben de ser un número o una constante y a una constante no le puedo dar esos datos, a ver si me pueden ayudar.
|
|
|
|
« Última modificación: 15 Octubre 2005, 01:26 por YeIk0s »
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
pues puedes dividir el archivo en las partes k necesites. dim Trozos as integer dim i as integer dim datos as string * 65000
Trozos = FileLen("lala") / 65000 open "lala" for binary as #1 for i = 1 to trozos get #1,, datos 'aces lo k keras con ellos next close #1
Salu2, no tengo el vb aki, corregid errores
|
|
|
|
|
En línea
|
|
|
|
yeikos
Desconectado
Mensajes: 1.424
|
Cierto, acabo de recordar un artículo que comentaba sobre la transferencia de bytes mediante el control winsock, que para un proceso mejor se debian transmitir los bytes 1 a 1.
Voy a terminar el código, cuando lo tenga lo publico.
|
|
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
pero eso de byte a byte es por que al mandarlo por internet, si mandas paketes muy grandes no llegan y ocuan much0 ancho de banda, pero para trabajar en el ekipo usa lo k te e dixo, el maximo, se hacen menos divisiones y es mucho mas rapido
Salu2
|
|
|
|
|
En línea
|
|
|
|
yeikos
Desconectado
Mensajes: 1.424
|
Lo que no entiendo es porque lo divides entre 65000...
|
|
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
no dices k los maximos datos k te deja cargar en el string son 65000?
Salu2
|
|
|
|
|
En línea
|
|
|
|
yeikos
Desconectado
Mensajes: 1.424
|
Bueno sí, pero eso me daría números decimales, si no me equivoco se tendría que usar \ .
|
|
|
|
|
En línea
|
|
|
|
|
Rey11
|
Si el estring le defines como EOF te cabe todo el archivo 
|
|
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Rey EOF es el principio del archivo, LOF el final. Dim Tamaño as string
open "C:\lala.exe" for binary as #1 Tamaño = Space$(LOF(1)) get #1,,Tamaño CLose #1
Te vale ?  Salu2
|
|
|
|
« Última modificación: 16 Octubre 2005, 18:43 por Dexonline »
|
En línea
|
|
|
|
yeikos
Desconectado
Mensajes: 1.424
|
Dim size As String * 1, i As Long
Open txtRuta1.Text For Binary As #1 Open txtRuta2.Text For Binary As #2 For i = 1 To FileLen(txtRuta1.Text) Get #1, i, size Put #2, LOF(2) + 1, size Next Close #2 Close #1
Ahí os dejo el código que he programado y uno compilado también: http://www.polarhome.com/~yeik0s/software/InyectFilev1.0.zip
|
|
|
|
« Última modificación: 16 Octubre 2005, 17:16 por YeIk0s »
|
En línea
|
|
|
|
itachi01
Desconectado
Mensajes: 1
|
oigan lo k yo quiero saber es komo guardar un *.exe dentro de otro, asi cuando lo abran el ejecutable les pedira una direccion para guardarlo en mi PC , soy nuevo n el foro-  gracias
|
|
|
|
|
En línea
|
|
|
|
79137913
Conectado
Mensajes: 780
4 Esquinas
|
HOLA!!!
... Tema de 5 años de antiguedad, no revivas.
En cuanto a la duda, busca sobre builders, crypters y stubs. ( Y joiners)
Sino metelo en el archivo de recursos y chau.
GRACIAS POR LEER!!!
|
|
|
|
« Última modificación: 28 Marzo 2011, 00:48 por 79137913 »
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas" 79137913 *Shadow Scouts Team* Resumenes Cs.Economicas
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.831
I'Love...!¡.
|
. Usa el buscador y busca el Cactus Joiner te guiara de manera perfecta.
Dulces Lunas!¡.
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Se puede Grabar un (.mpeg) en un "DVD-R" con el "TMPGenc" u otro programa ??
Software
|
Ad0nis
|
1
|
421
|
21 Julio 2005, 18:09
por Songoku
|
|
|
"""BUSCO EJEMPLO VB PARA ENVIAR MAILS""""
Programación Visual Basic
|
gera
|
1
|
1,552
|
1 Septiembre 2005, 00:14
por Rey11
|
|
|
Se puede insertar codigo html sin contener los caracteres ">""<"????
Hacking Básico
|
El_Marine
|
4
|
924
|
15 Agosto 2006, 23:28
por дٳŦ٭
|
|
|
De donde puedo descargar utilidades: "Formas", "Estilos", "Motivos", D
Diseño Gráfico
|
Ad0nis
|
2
|
1,395
|
2 Septiembre 2006, 15:48
por Ad0nis
|
|
|
[Ayuda] modificar "start page" en "internet explorer" con "batch"
Scripting
|
taton
|
7
|
4,227
|
20 Septiembre 2006, 01:45
por taton
|
|