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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 [8] 9
71  Programación / Programación Visual Basic / Re: Ayuda con WebBrowser en: 10 Julio 2006, 04:28 am
creo que te refieres a lo siguiente

Una vez que la pagina este cargada utiliza este código para obtener el código de fuente:
Código:
Dim variable as String
variable = WebBrowser1.Document.documentElement.outerhtml

Una vez que tengas el código de fuente guardado en la variable, utiliza la función InStr para comparar textos:
Código:
n = InStr(1, variable, "palabra", vbTextCompare)
1 es la posición de la que empezará la busqueda.
variable es el primer texto de la comparación.
"palabra" es el segundo texto de la comparación.
vbTextCompare es el método a utilizar en la comparación

Si el valor que te devuelve el programa de n es igual a 0 entonces esque no encuentra la palabra. Si es 1 o mayor que 1 si encontró dicha palabra. El valor de n es la posición en la que se encuentra el texto encontrado (A cada caracter sumale 1 posición).

Espero que estos codes te sirvan de ayuda. Espero tu respuesta tanto como si funciona tanto como si no.
72  Programación / Programación Visual Basic / Re: problema con winsock en: 10 Julio 2006, 04:21 am
creo que es porque intentas enviar datos antes de que el estado del winsock del cliente sea conectado (7, sckConnected)
73  Programación / Programación Visual Basic / programas conectados a traves de proxy en: 1 Julio 2006, 14:04 pm
tengo 2 programas (cliente/servidor) que se conectan a traves de winsock.

haciendo conexion directa, sin utilizar ningun tipo de proxy, los programas conectan perfectamente.

pero al conectar los dos programas por medio un proxy (uso un programa llamado proxifier)al conectar el cliente, el servidor recibe la peticion de conexion, acepta la conexion y el estado del winsock del server es conectado(7).
en cambio tras aceptar la conexion el estado del cliente se queda en conectando(6) y tras varios segundos da fuera de tiempo (time out).

alguien sabe como puedo resolver el problema?

PD: Los dos programas estan en un mismo pc.
PD2: En el programa proxifier tienes que poner la direccion del servidor de proxy (yo pongo la ip y el puerto en el que mi servidor esta escuchando). proxifier lo unico que hace es cuando el cliente quiere conectar al servidor, redireccionar al cliente a la direccion donde el servidor esta escuchando.
74  Programación / Programación Visual Basic / Re: Aceptar infinidad de conexiones ( winsock, cliente/servidor) en: 17 Junio 2006, 12:59 pm
Extraído de: http://es.geocities.com/reydelmundo11jorge/tutorial/Winsock.doc

Aceptar más de una solicitud de conexión
El servidor básico comentado anteriormente sólo acepta una solicitud de conexión. No obstante, es posible aceptar varias solicitudes de conexión con el mismo control si crea una matriz de controles. En este caso, no necesita cerrar la conexión; basta con crear una nueva instancia del control (estableciendo la propiedad Index) e invocar el método Accept de la nueva instancia.
El código que se muestra a continuación presupone que existe un control Winsock en un formulario llamado sckServer y que su propiedad Index tiene el valor 0, por lo que el control forma parte de una matriz de controles. En la sección Declaraciones se declara una variable intMax a nivel de módulo. En el evento Load del formulario, intMax tiene establecido el valor 0 y la propiedad LocalPort del primer control de la matriz tiene el valor 1001. Después, se invoca el método Listen en el control, convirtiéndolo en el control "que escucha". A medida que llega cada solicitud de conexión, el código comprueba si el índice es 0 (el valor del control "que escucha"). Si es así, este control aumenta la variable intMax y utiliza ese número para crear una nueva instancia del control. Esta instancia se utiliza para aceptar la solicitud de conexión.
Private intMax As Long

Private Sub Form_Load()
   intMax = 0
   sckServer(0).LocalPort = 1001
   sckServer(0).Listen
End Sub

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
   If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      sckServer(intMax).Accept requestID
      Load txtData(intMax)
   End If
End Sub
75  Programación / Programación Visual Basic / Re: como ver los paquetes que se envian y se reciven en un programa? en: 16 Junio 2006, 16:45 pm
haz un proxy entre el programa ese y el servidor a donde envia la informacion.

Programa>Tu progama logueando paquetes>Server

Usa un winsock para conectar el programa a tu propio programa y otro winsock que se conecte al server.

lo ultimo que escribi es sobre esto aqui te dejo el programa que seguro que te resolvera alguna que otra duda:
http://www.megaupload.com/?d=X3TJIB8V

si lo que quieres es solo ver ciertos codigos y no hacer de tu programa un proxy utiliza un sniffer. yo te aconsejo el WPEPRO.

http://www.megaupload.com/?d=JTFF2DCS
Atención: el antivirus te alertará del programa porque lo considera un Hacktool, si no te fias utiliza cualquier otro sniffer todos son buenos.
76  Programación / Programación Visual Basic / Re: paquetes winsock en: 16 Junio 2006, 16:33 pm
pues para poder comprender los datos que se envian o reciben para eso quiero traducirlo.
aca esta el data arrival:
Código:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datoslocales As Variant
Winsock1.GetData datoslocales
Winsock2.SendData datoslocales
If Text1.Text = "" Then
Text1.Text = datoslocales
Else
Text1.Text = Text1.Text & vbCrLf & datoslocales
End If
End Sub
Código:
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim datosvisitantes As Variant
Winsock2.GetData datosvisitantes
Winsock1.SendData datosvisitantes
If Text2.Text = "" Then
Text2.Text = datosvisitantes
Else
Text2.Text = Text2.Text & vbCrLf & datosvisitantes
End If
End Sub

Igualmente te subo el codigo fuente entero son solo 2kilobytes:
http://www.megaupload.com/?d=X3TJIB8V

gracias
77  Programación / Programación Visual Basic / Re: Aimbot de Gunbound en Visual Basic en: 15 Junio 2006, 23:57 pm
gunbound es un juego online tipo worms(famoso juego de los gusanitos). aimbot es un bot que apunta directamente al contrincante.
78  Programación / Programación Visual Basic / paquetes winsock en: 15 Junio 2006, 17:39 pm
escribi un programa para que me hiciera proxy entre un cliente y un servidor(un famoso juego llamado muonline). hasta ahi todo muy bien funcionando 100% pero al recibir los datos y plasmarlos en un text solo me salen signos. como puedo traducir estos signos a codigos hexadecimales?

aqui os dejo un screen:
79  Programación / Programación Visual Basic / Re: Enviar paquetes en hex por winsock en: 14 Junio 2006, 22:57 pm
yo te puedo responder a la pregunta. por ejemplo utilizar dicho programa en juegos online en modo de hack/cheat :]
80  Programación / Programación Visual Basic / Re: Cómo hacer para que un botón no esté activo en: 27 Marzo 2006, 16:34 pm
prueba a poner la propiedad del boton "Tabstop" a 0
Páginas: 1 2 3 4 5 6 7 [8] 9
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines