Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: LixKeÜ en 19 Enero 2006, 22:47 pm



Título: editor de server VB
Publicado por: LixKeÜ 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.
(http://img384.imageshack.us/img384/8333/dibujo7un.jpg)

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


Título: Re: editor de server VB
Publicado por: LixKeÜ 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


Título: Re: editor de server VB
Publicado por: LixKeÜ 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: :) :-\ ;)


Título: Re: editor de server VB
Publicado por: Thaorius en 21 Enero 2006, 18:57 pm
A mi me sirve la info. podes postearla?

Saludos


Título: Re: editor de server VB
Publicado por: LixKeÜ 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


Título: Re: editor de server VB
Publicado por: BenRu en 28 Enero 2006, 15:03 pm
Gracias, a mi tambien me viene bien  :P


Título: Re: editor de server VB
Publicado por: LixKeÜ 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.


Título: Re: editor de server VB
Publicado por: Thaorius en 29 Enero 2006, 05:02 am
Gracias