elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  editor de server VB
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: editor de server VB  (Leído 1,788 veces)
LixKeÜ


Desconectado Desconectado

Mensajes: 392


solo es lo que es y la verdad siempre da de ganar


Ver Perfil WWW
editor de server VB
« en: 19 Enero 2006, 22:47 pm »

hola mi problema y mi falta de conocimientos es esto estoy asiendo un editor de server y mi inconveniente es que para este tipo de caso para poder sobreescrivir en el exe lo primero que tenemos que hacer es abrirlo en binario y de alli ir colocando los datos con put siempre al final : ;D

Private Sub Command1_Click()
     Dim ip As String * 15 '//igual con la variable que contendra el pass, con capacidad de 20 bytes.
     ip = Text1.Text
     
     Open "C:\descargas\MIS PROGRAMAS\editor de server\1.exe" For Binary As #1 '//abrimos el archivo en forma binaria.
        Seek (1), LOF(1) + 1 'nos vamos al final del archivo
        Put #1, , ip '//colocamos el contenido de las variables
        Close #1 '//cerramos el archivo.



MY PROBLEMA ES COMO AGO PARA QUE EL ARCHIVO AL QUE ESCRIBIMOS LOS DATOS AL FINAL LO PONGA EN EL TEXBOX.


En línea

LixKeÜ


Desconectado Desconectado

Mensajes: 392


solo es lo que es y la verdad siempre da de ganar


Ver Perfil WWW
Re: editor de server VB
« Respuesta #1 en: 19 Enero 2006, 22:51 pm »

lei por alli que se hace abriendo el archivo en binario y de alli tomas los datos que se encontraban al final del mismo y de ally lo colocas en un texbox a travez de una variable.
  Espero que mas o menos este en lo correpto y que alguien pueda darme una mano BIEN EXPLICAD 
  Un salub y gracias a todos ;D :rolleyes: :) :P ;) :D ;D ;D


En línea

LixKeÜ


Desconectado Desconectado

Mensajes: 392


solo es lo que es y la verdad siempre da de ganar


Ver Perfil WWW
Re: editor de server VB
« Respuesta #2 en: 21 Enero 2006, 18:29 pm »

gracias igual a todos por no responder pero ya pude aprender como aherlo y si alguien quiere que se lo enseñe que lo postee aqui y se lo enseño ;D ;D ;D ;D ;D :shocked: :) :-\ ;)
En línea

Thaorius


Desconectado Desconectado

Mensajes: 1.073


Ver Perfil WWW
Re: editor de server VB
« Respuesta #3 en: 21 Enero 2006, 18:57 pm »

A mi me sirve la info. podes postearla?

Saludos
En línea

Si te sirvio mi aporte, encontrarás más en www.teoxstudios.com. Gracias!
Buscando un buen hosting? Click aquí
LixKeÜ


Desconectado Desconectado

Mensajes: 392


solo es lo que es y la verdad siempre da de ganar


Ver Perfil WWW
Re: editor de server VB
« Respuesta #4 en: 28 Enero 2006, 02:26 am »

A mi me sirve la info. podes postearla?

Saludos
Private Sub Form_Load()
Dim a As String * 20
Dim b As String * 5


a = Text1.Text
b = Text2.Text



End Sub

Private Sub Image2_Click()

On Error GoTo hacer
Image3.Visible = True
Dim a As String * 20
Dim b As String * 5
 a = Text1.Text
 b = Text2.Text
 cd.Filter = "Todos los archivos |*.*"
 cd.ShowOpen
Open cd.FileName For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , a
Put #1, , b
Close #1
MsgBox "Su servidor ya fue creado con EXITO"
hacer:

Select Case Err.Number
Case 75
MsgBox "Has cancelado para abrir el archivo"
End Select

End Sub

eso en el edito
   y en el server

Dim a As String * 20
Dim b As String * 5


Dim ap As String
Dim bp As String

Open App.path & "\" & App.EXEName & ".exe" For Binary As #1
Seek (1), LOF(1) - 24
Get #1, , a
Get #1, , b

Close #1
ap = Trim(a)
bp = Trim(b)
Text1.Text = ap
Text2.Text = bp
On Error Resume Next
ip = Text1.Text
ipftp = Text1.Text
port = Text2.Text
ws.RemoteHost = ip
ws.RemotePort = port
En línea

BenRu
The Prodigy


Desconectado Desconectado

Mensajes: 4.006


Ver Perfil
Re: editor de server VB
« Respuesta #5 en: 28 Enero 2006, 15:03 pm »

Gracias, a mi tambien me viene bien  :P
En línea

LixKeÜ


Desconectado Desconectado

Mensajes: 392


solo es lo que es y la verdad siempre da de ganar


Ver Perfil WWW
Re: editor de server VB
« Respuesta #6 en: 28 Enero 2006, 17:47 pm »

De nada amigos  ;D ;D ;D
 
  yo ya lo abia puesto el editor de server en troyanos y virus con unos ejemplos de troyanos pero creo que solo estuvo un dia y los moderadores lo quitaron pero bueno ellos son los que ponen las reglas o sino miren lo que seria de esto no.
En línea

Thaorius


Desconectado Desconectado

Mensajes: 1.073


Ver Perfil WWW
Re: editor de server VB
« Respuesta #7 en: 29 Enero 2006, 05:02 am »

Gracias
En línea

Si te sirvio mi aporte, encontrarás más en www.teoxstudios.com. Gracias!
Buscando un buen hosting? Click aquí
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines