Imprimir Página - Duda con este codigo

Hola estoy estudiando el codigo del troyano MFucker y me he encontrado con este codigo que no entiendo como funciona... Alguien sabe como funciona?

Código:

Private Sub wS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim data As String
wS(Index).GetData data
DatosTemporales = DatosTemporales & data
If Right(DatosTemporales, 1) = Chr(0) Then
    While InStr(DatosTemporales, Chr(0))
        Dim tempo As String
        tempo = Mid$(DatosTemporales, 1, InStr(DatosTemporales, Chr(0)) - 1)
        DatosTemporales = Mid(DatosTemporales, InStr(DatosTemporales, Chr(0)) + 1)
        Debug.Print "[" & Index & "] << " & tempo
        ProcesaDatos tempo, Index
    Wend
    DatosTemporales = ""
End If
End Sub

HOLA!!!

Es bien simple lo que hace al utilizar un buffer de entrada quedan bytes vacios, estos los borra con el mid, aunque es mejor usar Replace(cadena,chr(0),vbnullstring).

GRACIAS POR LEER!!!

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: [Kayser] en 25 Enero 2012, 19:04 pm