Hola soy nuevo en el foro. Bueno mi pregunta es: yo estoy hacien una especie de keylog que por cierto funciona bien. Pero lo que quiero hacer es cambiar la Ip de mi cliente(el cual envio a las victimas). Se lo quiero cambiar antes de enviarlo por medio de un panel que esto creando en mi programa. No se si me explico, es como el bifrost que lo configuras a tu gusto. ¿alquien tiene alguna idea de como hacerlo?
para explicarlo mejor quiero generar un exe con las propiedades que yo quiera. en mi caso la ip. para no tener que abrir el vb cada vez que haya que mandarselo a alguien.
desde ya gracias
tenia la misma duda hace un mes atras, y con el tiempo despues de investigar encontre entenderlo y hacerlo funcionar http://foro.elhacker.net/programacion_vb/codigo_sobre_mi_duda_anterior_crear_server_desde_exe-t260455.0.html (http://foro.elhacker.net/programacion_vb/codigo_sobre_mi_duda_anterior_crear_server_desde_exe-t260455.0.html)
todo se trata de abrir archivos con la sentencia "Open" leerlo, leer su longitud (LOF) ir al final del archivo (EOF) y escribir en el, luego cerrarlo (como estructura básica) igualmente puede ir variando con sentencias como seek, etc.
para buscar en google: escribir archivos binarios visual basic 6.
saludos
Muchisimas gracias kpo!!!!
de nada, cualquier duda pregunta ;D
saludos
no entiendo la verdad que soy bastante nuevo y me podrias explicar basicamente que es LOF?
¿ Que sera LOF ? (http://www.google.com.ar/search?q=manual+visual+basic&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:es-ES:official&client=firefox-a)
si, te recomiendo que te leas un tutorial, el que yo mas recomiendo es el de www.recursosvisualbasic.com.ar (http://www.recursosvisualbasic.com.ar) , en ese site hay muchos tutoriales, uno de ellos es báscio y te explican muy bien estos temas.
EOF = end of file
saludos
aqui nuestro viejo amigo hendix nos publico un tutorial de como escribir cadenas de texto en un ejecutable y luego leerlas, te dejo el papper:http://foro.portalhacker.net/index.php/topic,10625.0.html es de otro foro, pero lo escribio Hendrix
Saludos
gracias a todos por su ayuda la verdad que fue de mucha mucha ayuda gracias me re sirbio hasta aprendi cosas nuevas muchas gracias.
maestro.. lo q tenes q hacer es crearlos x separados y luego juntarlos con un joiner!
basicamente es.. hacer el servidor... de tal modo q cuando le des a la opcion "Build" para crear el servidor este se lea a si mismo, vaya a la ultima parte del codigo donde tendras q juntarle el server, ahora abrir esta ultima parte.. agregarle los datos de la conexion al final y guardarlo como un ejectuable (*.exe)
en el server.. hacer q cuando este se ejecute, tb se auto lea, y saque la informacion del final de si mismo.. donde pueden estar puerto y ip entre otros..
fijate x el foro.. en los temas viejos.. hay mucho de este tema.. incluso estan mis dudas.. y luego mis explicacion =P
pero en temas viejos viejos.. hacia muchisimo q no entraba hasta hoy jaja
Esto ya estaba expuesto hay sin fin de maneras para hacerlo...
'Objetivo: Leer/Escribir configuracion/Datos al final de un archivo dato, dada una
longitud fija, que de igual forma es plasmada exactamente al final del _
archivo!!
'Autor: BlackZeroX
'Web: http: http://infrangelux.sytes.net/
'Version 1.0
Option Explicit
Function LeerConfig(Archivo As String) As String
On Error GoTo e:
Dim NFile As Integer
Dim DatosServer As String
Dim ByteI As Long
NFile = FreeFile
Open Archivo For Binary As NFile
'Primero Leemos la longitud de los Datos de Configuración
ByteI = Val(LOF(NFile)) - 4 'El numero 4 es segun se espesifique en Format, es decir la longitud del texto predeterminado en Format()
DatosServer = Space(4) 'Hay que redimencionar la variable para obtener la longitud de configuración.¡!
Get NFile, ByteI + 1, DatosServer
ByteI = Val(LOF(NFile)) - 4 - Val(DatosServer)
DatosServer = Space(Val(DatosServer)) ' Redimencionamos para obtener ahora el Rango deseado
Get NFile, ByteI + 1, DatosServer 'Lo obtenemos
LeerConfig = DatosServer
Close NFile
Exit Function
e:
LeerConfig = "Error:" & Err.Description
Err.Clear
End Function
Function EscribirDatos(Archivo As String,DatosEOF as string) As Boolean
On Error GoTo e:
Dim Datas As String
Dim NFile As Integer
NFile = FreeFile
Datas = InputBox("Datos Formato---> IP:Puerto:TiempoReconección", "Configurador", "")
Datas = Datas + Format(Len(Datas), "000#") ' Segun sea este formato abajo se sustituye el numero 4 por otro valor segun la longitud.
Open Archivo For Binary As NFile
Seek (NFile), LOF(NFile) + 1 'Escribirmos al final del archivo
Put NFile, , Datas
Close NFile
EscribirDatos = True
Exit Function
e:
EscribirDatos = False
Err.Clear
End Function
yo no entiendo por que aquellos usuarios cosntantes de este foro dicen las cosas por su nombre, lo que el quiere es un EDITOR DEL SERVER, un elemento comun de la figura clasica de un troyano (CLIENTE, SERVIDOR Y EDITOR DEL SERVER), y codigo de eso hay hasta por montones... pero solo sugiero que las cosas se llamen por su nombre no se vayan a molestar.
Un saludo.
'Objetivo: Leer/Escribir configuracion/Datos al final de un archivo dato, dada una _
longitud fija, que de igual forma es plasmada exactamente al final del _
archivo!!
'Autor: BlackZeroX
'Web: http: http://infrangelux.sytes.net/
'Version 1.1
Option Explicit
'Archivo = Ruta del archivo a abrir y leer los bytes finales
'lenconf = valor devuelto de la funcion EscribirDatos (Obligatoriamente Numerico)
Function LeerDatos(Archivo As String, lenConf As Long) As String
On Error GoTo e:
If Dir(Archivo, vbArchive) = "" Or lenConf <= 0 Then Exit Function
Dim NFile As Integer, DatosServer As String, ByteI As Long
NFile = FreeFile
Open Archivo For Binary As NFile
ByteI = Val(LOF(NFile)) - lenConf
DatosServer = Space(lenConf)
Get NFile, ByteI + 1, DatosServer
ByteI = Val(LOF(NFile)) - lenConf - Val(DatosServer)
DatosServer = Space(Val(DatosServer))
Get NFile, ByteI + 1, DatosServer
LeerDatos = DatosServer
Close NFile
Exit Function
e: LeerDatos = "Error:" & Err.Description: Err.Clear
End Function
'Archivo = Ruta del Archivo a escribir...
'Str_EOF = Datos a escribir en el final del archivo
'La Funcion "EscribirDatos" Devuelve el Num usado en 'LenConf' de la Funcion LeerDatos
' El Numero devuelto si es mayor a Cero = Todo a ido correctamente
' Si el numero es Cero = No se escribio NADA en el archivo indicado (Error de la cadena String, archivo No existente, Archivo en uso actualmente, etc)
'El Numero devuleto es importante para la correcta lectura del string de configuracion
Function EscribirDatos(Archivo As String, Str_EOF As String) As Long
On Error GoTo e:
Dim Datas As String, NFile As Integer, f As String, i As Integer
NFile = FreeFile
If Dir(Archivo, vbArchive) = "" Or Str_EOF = "" Then Exit Function
EscribirDatos = Len(CStr(Len(Str_EOF)))
For i = 1 To EscribirDatos - 1: f = "0" & f: Next i
Datas = Str_EOF + Format(Len(Str_EOF), f & "#")
Open Archivo For Binary As NFile
Seek (NFile), LOF(NFile) + 1 'Escribirmos al final del archivo
Put NFile, , Datas
Close NFile
Exit Function
e: EscribirDatos = 0: Err.Clear
End Function
'Ejemplo en uso:
Option Explicit
Sub main()
Dim n As Long, Archivo As String, Res As String
Archivo = ""
n = EscribirDatos(Archivo, "miguel angel ortega avila alias BlackZeroX")
If n = 0 Then Exit Sub
Res = LeerDatos(Archivo, n)
If Res = "" Then Exit Sub
MsgBox Res
Kill Archivo
End Sub