Duda con este codigo

[[Kayser]]

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 [Seleccionar] Expandir

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

[79137913]

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!!!

[raul338]

Lo que hace se podria decir que es como la funcion Split y va imprimiendo los datos y luego actua segun esos datos