Temas

Hola gente, mi tema es el siguiente:

Yo tengo un cliente hecho en visual basic, que se conecta a un servidor externo también hecho en visual basic a través del puerto 6666. Una vez conectado comienzan a transferirse datos.

En mi pc está el Cliente, lo que yo quiero hacer, es poder "ver" los valores de las variables que me envía el servidor.

Por ejemplo, yo sé que cuando hago click en cierto lugar, el servidor me envía 4 variables integer con distintos valores. Yo quiero que mi programa pueda "averiguar" cuales son esos valores, para realizar acciones según los valores de las variables.

¿Hay algún tutorial que pueda mirar o algo? El tema es que no sé nada de programación de Sniffers, y no creo que el típico control Winsock que uso actualmente para las simples conexiones Cliente/Servidor me sirva para mi propósito.

Si me pueden recomendar un programa ya hecho para lo que yo necesito también me sirve, y si el programa es de código abierto mejor.

Hola amigos, les queria preguntar una duda, estoy haciendo un troyano y lo tenía hecho con la libreria winsock pero como quiero prescindir de esta libreria, me puse a buscar un clon de ella, y encontre CSocketMaster, todo el troyano funciona muy bien con CSocketMaster menos la de transferir un archivo, y es que con Winsock el servidor transfería todo el archivo entero, y el cliente lo iba recibiendo de a poco, de este modo:

Código (vb) [Seleccionar] Expandir

Public Sub Enviar_Componente(Index As Integer)
Dim tamaño As Long
'abrimos el archivo en modo binario de lectura
Open App.Path & "\DIjpg.dll" For Binary Access Read As #1

tamaño = LOF(1) 'Tamaño en bytes de la imagen
'Redimensionamos el Array
ReDim imagen(tamaño - 1)
'Leemos todo el archivo y lo almacenamos en el array imagen
Get #1, , imagen
Close
'Enviamos el array al cliente
frmMain.Winsock2(Index).SendData imagen
frmMain.ProgressBar1.Max = tamaño + 1
frmMain.ProgressBar1.Visible = True
End Sub

Después la progressBar va aumentando en el evento SendProgress.

Código (vb) [Seleccionar] Expandir

Private Sub Winsock2_SendProgress(Index As Integer, ByVal bytesSent As Long, ByVal bytesRemaining As Long)

If progreso = True Then

ProgressBar1 = ProgressBar1 + bytesSent ' bytesSent son los bytes enviados
End If
End Sub

Y el cliente lo recibe de este modo:

Código (vb) [Seleccionar] Expandir

       Dim Archivo() As Byte
       'Aumentamos sizeFileRecibido con los datos que van llegando
       sizeFileRecibido = sizeFileRecibido + bytesTotal
       'Recibimos los datos y lo almacenamos en el array de bytes
       Winsock1.GetData Archivo
       'Escribimos en disco el array de bytes, es decir lo que va llegando
       Put #1, , Archivo
 
       ' Si lo recibido es mayor o igual al tamaño entonces se terminó y cerramos
       'el archivo abierto
       If sizeFileRecibido >= sizeFile Then 'SizeFile contiene el tamaño en bytes del archivo que se esta recibiendo
       'Cerramos el archivo
       Close #1
       sizeFileRecibido = 0
       End If


Esto funciona perfectamente con Winsock, pero no así con CSocketMaster. En las normas dice que uno se limite a decir que lo que pasa, sin dar opiniones de cual cree uno que es el problema, pero si me lo permiten, creo que el problema pasa porque CSocketMaster intenta enviar todo el archivo de una, y el resultado es que envía solo 8kb aprox del total del archivo, el Winsock, en cambio, lo va enviando de a partes, de esto me doy cuenta porque el evento Data_Arrival es llamado una y otra vez con la Winsock.ocx, y en el CSocketMaster solo es llamado una vez, escribe 8kbs aprox. y nunca más sucede nada más.

Estoy casi seguro que ese es el problema, pero no tengo idea de como tengo que hacer para solucionarlo ¿Alguna ayuda?

Quizás puedan recomendarme alguna otra class para imitar al Winsock que no sea CSocket...

Bueno que tal gente... estoy intentando hacer un juego de navegador y me he topado con un problema muy grave

La cosa es así, cada usuario o jugador tiene 4 recursos, y una mina que produce ese recurso, por ej, para producir oro tenes un edificio que se llama mina de oro, si tenes la mina de oro en nivel 1, aumenta 40 unidades de oro por hora.

Los recursos que tiene cada jugador estan almacenados en mysql, en una columna llamada (en el caso del oro) "oro".

Este valor tiene que aumentar progresiamente a medida que pasa el tiempo segun su nivel en la mina de oro.

Entonces... no tengo ni put* idea de como hacer eso.

¿Alguna ayuda?

saludos y desde ya muchas gracias

PD: ¿Se puede hacer eso en mysql?

Hola a todos... mi problema en concreto es este.. tengo un INET que tiene conectarse a esta web "http://www.whatismyip.com/automation/n09230945.asp" a travez del OpenURL y así decir la IP de la computadora.

Es algo muy fácil y simplemente puse:

Código [Seleccionar] Expandir


Text2.Text = Inet1.OpenURL

Sin embargo, al ejecutar esa instruccion dos veces seguidas en un intervalo muy corto sale el siguiente error:

Código [Seleccionar] Expandir

Error '35764' en tiempo de ejecución :

Todavía se está ejecutando la última petición

Asique estuve buscando y aparentemente la solción seria esta:

Código [Seleccionar] Expandir

Do
    DoEvents
Loop Until Inet1.StillExecuting = False
Text2.Text = Inet1.OpenURL

Sin embargo, no funciona, y es porque el Inet1.StillExecuting se queda siempre en True, y por lo tanto, se crea un ciclo infinito y no sale de ese Loop... No tengo idea por qué

Desde ya gracias por su ayuda