PHP_Pro wrote i just downloaded and decompiled this program -
it is not a virus
it does NOT edit your prestige
here is the entire code for the program:
(assuming that you know VB.NET)


Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms

Namespace WindowsApplication1
    <DesignerGenerated> _
    Public Class Form1
        Inherits Form
        ' Methods
        <DebuggerNonUserCode> _
        Public Sub New()
            Form1.__ENCAddToList(Me)
            Me.InitializeComponent
        End Sub

        <DebuggerNonUserCode> _
        Private Shared Sub __ENCAddToList(ByVal value As Object)
            Dim list As List([Of] WeakReference) = Form1.__ENCList
            SyncLock list
                If (Form1.__ENCList.Count = Form1.__ENCList.Capacity) Then
                    Dim index As Integer = 0
                    Dim num3 As Integer = (Form1.__ENCList.Count - 1)
                    Dim i As Integer = 0
                    Do While (i <= num3)
                        Dim reference As WeakReference = Form1.__ENCList.Item(i)
                        If reference.IsAlive Then
                            If (i <> index) Then
                                Form1.__ENCList.Item(index) = Form1.__ENCList.Item(i)
                            End If
                            index += 1
                        End If
                        i += 1
                    Loop
                    Form1.__ENCList.RemoveRange(index, (Form1.__ENCList.Count - index))
                    Form1.__ENCList.Capacity = Form1.__ENCList.Count
                End If
                Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
            End SyncLock
        End Sub

        Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.OpenFileDialog1.ShowDialog
        End Sub

        Private Sub Button1_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)
        End Sub

        Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
            If Me.Button1.Enabled Then
                Me.Timer1.Enabled = True
            End If
        End Sub

        <DebuggerNonUserCode> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try
                If (disposing AndAlso (Not Me.components Is Nothing)) Then
                    Me.components.Dispose
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub

        <DebuggerStepThrough> _
        Private Sub InitializeComponent()
            Me.components = New Container
            Dim manager As New ComponentResourceManager(GetType(Form1))
            Me.PictureBox1 = New PictureBox
            Me.Button1 = New Button
            Me.OpenFileDialog1 = New OpenFileDialog
            Me.Label1 = New Label
            Me.GroupBox1 = New GroupBox
            Me.RadioButton1 = New RadioButton
            Me.RadioButton2 = New RadioButton
            Me.GroupBox2 = New GroupBox
            Me.GroupBox3 = New GroupBox
            Me.Label3 = New Label
            Me.CheckBox1 = New CheckBox
            Me.Label2 = New Label
            Me.TextBox2 = New TextBox
            Me.TextBox1 = New TextBox
            Me.Button2 = New Button
            Me.TabControl1 = New TabControl
            Me.TabPage1 = New TabPage
            Me.Timer1 = New Timer(Me.components)
            Me.ProgressBar1 = New ProgressBar
            DirectCast(Me.PictureBox1, ISupportInitialize).BeginInit
            Me.GroupBox1.SuspendLayout
            Me.GroupBox2.SuspendLayout
            Me.GroupBox3.SuspendLayout
            Me.TabControl1.SuspendLayout
            Me.TabPage1.SuspendLayout
            Me.SuspendLayout
            Me.PictureBox1.Image = DirectCast(manager.GetObject("PictureBox1.Image"), Image)
            Dim point2 As New Point(0, 0)
            Me.PictureBox1.Location = point2
            Me.PictureBox1.Name = "PictureBox1"
            Dim size2 As New Size(270, &H6B)
            Me.PictureBox1.Size = size2
            Me.PictureBox1.TabIndex = 0
            Me.PictureBox1.TabStop = False
            point2 = New Point(6, &H18)
            Me.Button1.Location = point2
            Me.Button1.Name = "Button1"
            size2 = New Size(&H4B, &H17)
            Me.Button1.Size = size2
            Me.Button1.TabIndex = 1
            Me.Button1.Text = "Browse"
            Me.Button1.UseVisualStyleBackColor = True
            Me.OpenFileDialog1.FileName = "Select your file"
            Me.OpenFileDialog1.InitialDirectory = "C:\"
            Me.Label1.AutoSize = True
            point2 = New Point(&H59, 30)
            Me.Label1.Location = point2
            Me.Label1.Name = "Label1"
            size2 = New Size(0, 13)
            Me.Label1.Size = size2
            Me.Label1.TabIndex = 3
            Me.GroupBox1.Controls.Add(Me.Label1)
            Me.GroupBox1.Controls.Add(Me.Button1)
            point2 = New Point(6, 6)
            Me.GroupBox1.Location = point2
            Me.GroupBox1.Name = "GroupBox1"
            size2 = New Size(&HF7, &H3A)
            Me.GroupBox1.Size = size2
            Me.GroupBox1.TabIndex = 5
            Me.GroupBox1.TabStop = False
            Me.GroupBox1.Text = "Load Player File"
            Me.RadioButton1.AutoSize = True
            point2 = New Point(11, &H19)
            Me.RadioButton1.Location = point2
            Me.RadioButton1.Name = "RadioButton1"
            size2 = New Size(70, &H11)
            Me.RadioButton1.Size = size2
            Me.RadioButton1.TabIndex = 6
            Me.RadioButton1.TabStop = True
            Me.RadioButton1.Text = "Xbox 360"
            Me.RadioButton1.UseVisualStyleBackColor = True
            Me.RadioButton2.AutoSize = True
            point2 = New Point(11, &H30)
            Me.RadioButton2.Location = point2
            Me.RadioButton2.Name = "RadioButton2"
            size2 = New Size(&H2D, &H11)
            Me.RadioButton2.Size = size2
            Me.RadioButton2.TabIndex = 6
            Me.RadioButton2.TabStop = True
            Me.RadioButton2.Text = "PS3"
            Me.RadioButton2.UseVisualStyleBackColor = True
            Me.GroupBox2.Controls.Add(Me.RadioButton2)
            Me.GroupBox2.Controls.Add(Me.RadioButton1)
            point2 = New Point(6, &H43)
            Me.GroupBox2.Location = point2
            Me.GroupBox2.Name = "GroupBox2"
            size2 = New Size(&H5B, &H67)
            Me.GroupBox2.Size = size2
            Me.GroupBox2.TabIndex = 7
            Me.GroupBox2.TabStop = False
            Me.GroupBox2.Text = "Select System"
            Me.GroupBox3.Controls.Add(Me.Label3)
            Me.GroupBox3.Controls.Add(Me.CheckBox1)
            Me.GroupBox3.Controls.Add(Me.Label2)
            Me.GroupBox3.Controls.Add(Me.TextBox2)
            Me.GroupBox3.Controls.Add(Me.TextBox1)
            point2 = New Point(&H67, 70)
            Me.GroupBox3.Location = point2
            Me.GroupBox3.Name = "GroupBox3"
            size2 = New Size(&H99, 100)
            Me.GroupBox3.Size = size2
            Me.GroupBox3.TabIndex = 8
            Me.GroupBox3.TabStop = False
            Me.GroupBox3.Text = "Edit Account"
            Me.Label3.AutoSize = True
            point2 = New Point(6, &H31)
            Me.Label3.Location = point2
            Me.Label3.Name = "Label3"
            size2 = New Size(&H6A, 13)
            Me.Label3.Size = size2
            Me.Label3.TabIndex = 2
            Me.Label3.Text = "Add Prestige Tokens"
            Me.CheckBox1.AutoSize = True
            point2 = New Point(9, &H4C)
            Me.CheckBox1.Location = point2
            Me.CheckBox1.Name = "CheckBox1"
            size2 = New Size(&H71, &H11)
            Me.CheckBox1.Size = size2
            Me.CheckBox1.TabIndex = 0
            Me.CheckBox1.Text = "Unlock Everything"
            Me.CheckBox1.UseVisualStyleBackColor = True
            Me.Label2.AutoSize = True
            point2 = New Point(6, &H18)
            Me.Label2.Location = point2
            Me.Label2.Name = "Label2"
            size2 = New Size(&H5F, 13)
            Me.Label2.Size = size2
            Me.Label2.TabIndex = 1
            Me.Label2.Text = "Edit Prestige Level"
            point2 = New Point(&H71, &H2E)
            Me.TextBox2.Location = point2
            Me.TextBox2.Name = "TextBox2"
            size2 = New Size(&H21, 20)
            Me.TextBox2.Size = size2
            Me.TextBox2.TabIndex = 0
            point2 = New Point(&H71, &H13)
            Me.TextBox1.Location = point2
            Me.TextBox1.Name = "TextBox1"
            size2 = New Size(&H20, 20)
            Me.TextBox1.Size = size2
            Me.TextBox1.TabIndex = 0
            point2 = New Point(6, &HB0)
            Me.Button2.Location = point2
            Me.Button2.Name = "Button2"
            size2 = New Size(&HF8, &H17)
            Me.Button2.Size = size2
            Me.Button2.TabIndex = 9
            Me.Button2.Text = "Edit And Save New Player File"
            Me.Button2.UseVisualStyleBackColor = True
            Me.TabControl1.Controls.Add(Me.TabPage1)
            point2 = New Point(-2, &H6B)
            Me.TabControl1.Location = point2
            Me.TabControl1.Name = "TabControl1"
            Me.TabControl1.SelectedIndex = 0
            size2 = New Size(&H10B, &HF7)
            Me.TabControl1.Size = size2
            Me.TabControl1.TabIndex = 10
            Me.TabPage1.Controls.Add(Me.ProgressBar1)
            Me.TabPage1.Controls.Add(Me.GroupBox1)
            Me.TabPage1.Controls.Add(Me.Button2)
            Me.TabPage1.Controls.Add(Me.GroupBox2)
            Me.TabPage1.Controls.Add(Me.GroupBox3)
            point2 = New Point(4, &H16)
            Me.TabPage1.Location = point2
            Me.TabPage1.Name = "TabPage1"
            Dim padding2 As New Padding(3)
            Me.TabPage1.Padding = padding2
            size2 = New Size(&H103, &HDD)
            Me.TabPage1.Size = size2
            Me.TabPage1.TabIndex = 0
            Me.TabPage1.Text = "                                Xbox 360 - PS3                           "
            Me.TabPage1.UseVisualStyleBackColor = True
            Me.Timer1.Interval = &H3E8
            point2 = New Point(7, &HC9)
            Me.ProgressBar1.Location = point2
            Me.ProgressBar1.Name = "ProgressBar1"
            size2 = New Size(&HF6, 13)
            Me.ProgressBar1.Size = size2
            Me.ProgressBar1.TabIndex = 10
            Dim ef2 As New SizeF(6!, 13!)
            Me.AutoScaleDimensions = ef2
            Me.AutoScaleMode = AutoScaleMode.Font
            size2 = New Size(&H105, &H160)
            Me.ClientSize = size2
            Me.Controls.Add(Me.TabControl1)
            Me.Controls.Add(Me.PictureBox1)
            Me.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
            size2 = New Size(&H115, 390)
            Me.MaximumSize = size2
            size2 = New Size(&H115, 390)
            Me.MinimumSize = size2
            Me.Name = "Form1"
            Me.StartPosition = FormStartPosition.CenterScreen
            Me.Text = "MW3 Prestige Hack"
            DirectCast(Me.PictureBox1, ISupportInitialize).EndInit
            Me.GroupBox1.ResumeLayout(False)
            Me.GroupBox1.PerformLayout
            Me.GroupBox2.ResumeLayout(False)
            Me.GroupBox2.PerformLayout
            Me.GroupBox3.ResumeLayout(False)
            Me.GroupBox3.PerformLayout
            Me.TabControl1.ResumeLayout(False)
            Me.TabPage1.ResumeLayout(False)
            Me.ResumeLayout(False)
        End Sub

        Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As CancelEventArgs)
            Me.Label1.Text = Me.OpenFileDialog1.FileName
        End Sub

        Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
            If Me.Timer1.Enabled Then
                Me.ProgressBar1.Enabled = True
            End If
            Me.ProgressBar1.Increment(1)
            Me.ProgressBar1.Maximum = 12
            If (Me.ProgressBar1.Value = 12) Then
                Me.Timer1.Stop
                MessageBox.Show("File edited Successfully!!")
            End If
        End Sub


        ' Properties
        Friend Overridable Property Button1 As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._Button1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As MouseEventHandler = New MouseEventHandler(AddressOf Me.Button1_MouseClick)
                Dim handler2 As EventHandler = New EventHandler(AddressOf Me.Button1_Click)
                If (Not Me._Button1 Is Nothing) Then
                    RemoveHandler Me._Button1.MouseClick, handler
                    RemoveHandler Me._Button1.Click, handler2
                End If
                Me._Button1 = WithEventsValue
                If (Not Me._Button1 Is Nothing) Then
                    AddHandler Me._Button1.MouseClick, handler
                    AddHandler Me._Button1.Click, handler2
                End If
            End Set
        End Property

        Friend Overridable Property Button2 As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._Button2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Button2_Click)
                If (Not Me._Button2 Is Nothing) Then
                    RemoveHandler Me._Button2.Click, handler
                End If
                Me._Button2 = WithEventsValue
                If (Not Me._Button2 Is Nothing) Then
                    AddHandler Me._Button2.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property CheckBox1 As CheckBox
            <DebuggerNonUserCode> _
            Get
                Return Me._CheckBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As CheckBox)
                Me._CheckBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox1 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox2 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox3 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label1 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label2 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label3 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property OpenFileDialog1 As OpenFileDialog
            <DebuggerNonUserCode> _
            Get
                Return Me._OpenFileDialog1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As OpenFileDialog)
                Dim handler As CancelEventHandler = New CancelEventHandler(AddressOf Me.OpenFileDialog1_FileOk)
                If (Not Me._OpenFileDialog1 Is Nothing) Then
                    RemoveHandler Me._OpenFileDialog1.FileOk, handler
                End If
                Me._OpenFileDialog1 = WithEventsValue
                If (Not Me._OpenFileDialog1 Is Nothing) Then
                    AddHandler Me._OpenFileDialog1.FileOk, handler
                End If
            End Set
        End Property

        Friend Overridable Property PictureBox1 As PictureBox
            <DebuggerNonUserCode> _
            Get
                Return Me._PictureBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As PictureBox)
                Me._PictureBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property ProgressBar1 As ProgressBar
            <DebuggerNonUserCode> _
            Get
                Return Me._ProgressBar1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As ProgressBar)
                Me._ProgressBar1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property RadioButton1 As RadioButton
            <DebuggerNonUserCode> _
            Get
                Return Me._RadioButton1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As RadioButton)
                Me._RadioButton1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property RadioButton2 As RadioButton
            <DebuggerNonUserCode> _
            Get
                Return Me._RadioButton2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As RadioButton)
                Me._RadioButton2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TabControl1 As TabControl
            <DebuggerNonUserCode> _
            Get
                Return Me._TabControl1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TabControl)
                Me._TabControl1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TabPage1 As TabPage
            <DebuggerNonUserCode> _
            Get
                Return Me._TabPage1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TabPage)
                Me._TabPage1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TextBox1 As TextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._TextBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TextBox)
                Me._TextBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TextBox2 As TextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._TextBox2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TextBox)
                Me._TextBox2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Timer1 As Timer
            <DebuggerNonUserCode> _
            Get
                Return Me._Timer1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Timer)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Timer1_Tick)
                If (Not Me._Timer1 Is Nothing) Then
                    RemoveHandler Me._Timer1.Tick, handler
                End If
                Me._Timer1 = WithEventsValue
                If (Not Me._Timer1 Is Nothing) Then
                    AddHandler Me._Timer1.Tick, handler
                End If
            End Set
        End Property


        ' Fields
        Private Shared __ENCList As List([Of] WeakReference) = New List([Of] WeakReference)
        <AccessedThroughProperty("Button1")> _
        Private _Button1 As Button
        <AccessedThroughProperty("Button2")> _
        Private _Button2 As Button
        <AccessedThroughProperty("CheckBox1")> _
        Private _CheckBox1 As CheckBox
        <AccessedThroughProperty("GroupBox1")> _
        Private _GroupBox1 As GroupBox
        <AccessedThroughProperty("GroupBox2")> _
        Private _GroupBox2 As GroupBox
        <AccessedThroughProperty("GroupBox3")> _
        Private _GroupBox3 As GroupBox
        <AccessedThroughProperty("Label1")> _
        Private _Label1 As Label
        <AccessedThroughProperty("Label2")> _
        Private _Label2 As Label
        <AccessedThroughProperty("Label3")> _
        Private _Label3 As Label
        <AccessedThroughProperty("OpenFileDialog1")> _
        Private _OpenFileDialog1 As OpenFileDialog
        <AccessedThroughProperty("PictureBox1")> _
        Private _PictureBox1 As PictureBox
        <AccessedThroughProperty("ProgressBar1")> _
        Private _ProgressBar1 As ProgressBar
        <AccessedThroughProperty("RadioButton1")> _
        Private _RadioButton1 As RadioButton
        <AccessedThroughProperty("RadioButton2")> _
        Private _RadioButton2 As RadioButton
        <AccessedThroughProperty("TabControl1")> _
        Private _TabControl1 As TabControl
        <AccessedThroughProperty("TabPage1")> _
        Private _TabPage1 As TabPage
        <AccessedThroughProperty("TextBox1")> _
        Private _TextBox1 As TextBox
        <AccessedThroughProperty("TextBox2")> _
        Private _TextBox2 As TextBox
        <AccessedThroughProperty("Timer1")> _
        Private _Timer1 As Timer
        Private components As IContainer
    End Class
End Namespace


what is it then????????????????????

nope, it does not use System.IO to write at a given hex offset (where the rank WOULD be), or read.
does not use Package IO either.
learn some VB.Net, examine that code, and then come talk to me
[ Register or Signin to view external links. ]

never mind, got the link gonna try it tomorrow

Sgt_Wallcroft wrote

PHP_Pro wrote i just downloaded and decompiled this program -
it is not a virus
it does NOT edit your prestige
here is the entire code for the program:
(assuming that you know VB.NET)


Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms

Namespace WindowsApplication1
    <DesignerGenerated> _
    Public Class Form1
        Inherits Form
        ' Methods
        <DebuggerNonUserCode> _
        Public Sub New()
            Form1.__ENCAddToList(Me)
            Me.InitializeComponent
        End Sub

        <DebuggerNonUserCode> _
        Private Shared Sub __ENCAddToList(ByVal value As Object)
            Dim list As List([Of] WeakReference) = Form1.__ENCList
            SyncLock list
                If (Form1.__ENCList.Count = Form1.__ENCList.Capacity) Then
                    Dim index As Integer = 0
                    Dim num3 As Integer = (Form1.__ENCList.Count - 1)
                    Dim i As Integer = 0
                    Do While (i <= num3)
                        Dim reference As WeakReference = Form1.__ENCList.Item(i)
                        If reference.IsAlive Then
                            If (i <> index) Then
                                Form1.__ENCList.Item(index) = Form1.__ENCList.Item(i)
                            End If
                            index += 1
                        End If
                        i += 1
                    Loop
                    Form1.__ENCList.RemoveRange(index, (Form1.__ENCList.Count - index))
                    Form1.__ENCList.Capacity = Form1.__ENCList.Count
                End If
                Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
            End SyncLock
        End Sub

        Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.OpenFileDialog1.ShowDialog
        End Sub

        Private Sub Button1_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)
        End Sub

        Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
            If Me.Button1.Enabled Then
                Me.Timer1.Enabled = True
            End If
        End Sub

        <DebuggerNonUserCode> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try
                If (disposing AndAlso (Not Me.components Is Nothing)) Then
                    Me.components.Dispose
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub

        <DebuggerStepThrough> _
        Private Sub InitializeComponent()
            Me.components = New Container
            Dim manager As New ComponentResourceManager(GetType(Form1))
            Me.PictureBox1 = New PictureBox
            Me.Button1 = New Button
            Me.OpenFileDialog1 = New OpenFileDialog
            Me.Label1 = New Label
            Me.GroupBox1 = New GroupBox
            Me.RadioButton1 = New RadioButton
            Me.RadioButton2 = New RadioButton
            Me.GroupBox2 = New GroupBox
            Me.GroupBox3 = New GroupBox
            Me.Label3 = New Label
            Me.CheckBox1 = New CheckBox
            Me.Label2 = New Label
            Me.TextBox2 = New TextBox
            Me.TextBox1 = New TextBox
            Me.Button2 = New Button
            Me.TabControl1 = New TabControl
            Me.TabPage1 = New TabPage
            Me.Timer1 = New Timer(Me.components)
            Me.ProgressBar1 = New ProgressBar
            DirectCast(Me.PictureBox1, ISupportInitialize).BeginInit
            Me.GroupBox1.SuspendLayout
            Me.GroupBox2.SuspendLayout
            Me.GroupBox3.SuspendLayout
            Me.TabControl1.SuspendLayout
            Me.TabPage1.SuspendLayout
            Me.SuspendLayout
            Me.PictureBox1.Image = DirectCast(manager.GetObject("PictureBox1.Image"), Image)
            Dim point2 As New Point(0, 0)
            Me.PictureBox1.Location = point2
            Me.PictureBox1.Name = "PictureBox1"
            Dim size2 As New Size(270, &H6B)
            Me.PictureBox1.Size = size2
            Me.PictureBox1.TabIndex = 0
            Me.PictureBox1.TabStop = False
            point2 = New Point(6, &H18)
            Me.Button1.Location = point2
            Me.Button1.Name = "Button1"
            size2 = New Size(&H4B, &H17)
            Me.Button1.Size = size2
            Me.Button1.TabIndex = 1
            Me.Button1.Text = "Browse"
            Me.Button1.UseVisualStyleBackColor = True
            Me.OpenFileDialog1.FileName = "Select your file"
            Me.OpenFileDialog1.InitialDirectory = "C:\"
            Me.Label1.AutoSize = True
            point2 = New Point(&H59, 30)
            Me.Label1.Location = point2
            Me.Label1.Name = "Label1"
            size2 = New Size(0, 13)
            Me.Label1.Size = size2
            Me.Label1.TabIndex = 3
            Me.GroupBox1.Controls.Add(Me.Label1)
            Me.GroupBox1.Controls.Add(Me.Button1)
            point2 = New Point(6, 6)
            Me.GroupBox1.Location = point2
            Me.GroupBox1.Name = "GroupBox1"
            size2 = New Size(&HF7, &H3A)
            Me.GroupBox1.Size = size2
            Me.GroupBox1.TabIndex = 5
            Me.GroupBox1.TabStop = False
            Me.GroupBox1.Text = "Load Player File"
            Me.RadioButton1.AutoSize = True
            point2 = New Point(11, &H19)
            Me.RadioButton1.Location = point2
            Me.RadioButton1.Name = "RadioButton1"
            size2 = New Size(70, &H11)
            Me.RadioButton1.Size = size2
            Me.RadioButton1.TabIndex = 6
            Me.RadioButton1.TabStop = True
            Me.RadioButton1.Text = "Xbox 360"
            Me.RadioButton1.UseVisualStyleBackColor = True
            Me.RadioButton2.AutoSize = True
            point2 = New Point(11, &H30)
            Me.RadioButton2.Location = point2
            Me.RadioButton2.Name = "RadioButton2"
            size2 = New Size(&H2D, &H11)
            Me.RadioButton2.Size = size2
            Me.RadioButton2.TabIndex = 6
            Me.RadioButton2.TabStop = True
            Me.RadioButton2.Text = "PS3"
            Me.RadioButton2.UseVisualStyleBackColor = True
            Me.GroupBox2.Controls.Add(Me.RadioButton2)
            Me.GroupBox2.Controls.Add(Me.RadioButton1)
            point2 = New Point(6, &H43)
            Me.GroupBox2.Location = point2
            Me.GroupBox2.Name = "GroupBox2"
            size2 = New Size(&H5B, &H67)
            Me.GroupBox2.Size = size2
            Me.GroupBox2.TabIndex = 7
            Me.GroupBox2.TabStop = False
            Me.GroupBox2.Text = "Select System"
            Me.GroupBox3.Controls.Add(Me.Label3)
            Me.GroupBox3.Controls.Add(Me.CheckBox1)
            Me.GroupBox3.Controls.Add(Me.Label2)
            Me.GroupBox3.Controls.Add(Me.TextBox2)
            Me.GroupBox3.Controls.Add(Me.TextBox1)
            point2 = New Point(&H67, 70)
            Me.GroupBox3.Location = point2
            Me.GroupBox3.Name = "GroupBox3"
            size2 = New Size(&H99, 100)
            Me.GroupBox3.Size = size2
            Me.GroupBox3.TabIndex = 8
            Me.GroupBox3.TabStop = False
            Me.GroupBox3.Text = "Edit Account"
            Me.Label3.AutoSize = True
            point2 = New Point(6, &H31)
            Me.Label3.Location = point2
            Me.Label3.Name = "Label3"
            size2 = New Size(&H6A, 13)
            Me.Label3.Size = size2
            Me.Label3.TabIndex = 2
            Me.Label3.Text = "Add Prestige Tokens"
            Me.CheckBox1.AutoSize = True
            point2 = New Point(9, &H4C)
            Me.CheckBox1.Location = point2
            Me.CheckBox1.Name = "CheckBox1"
            size2 = New Size(&H71, &H11)
            Me.CheckBox1.Size = size2
            Me.CheckBox1.TabIndex = 0
            Me.CheckBox1.Text = "Unlock Everything"
            Me.CheckBox1.UseVisualStyleBackColor = True
            Me.Label2.AutoSize = True
            point2 = New Point(6, &H18)
            Me.Label2.Location = point2
            Me.Label2.Name = "Label2"
            size2 = New Size(&H5F, 13)
            Me.Label2.Size = size2
            Me.Label2.TabIndex = 1
            Me.Label2.Text = "Edit Prestige Level"
            point2 = New Point(&H71, &H2E)
            Me.TextBox2.Location = point2
            Me.TextBox2.Name = "TextBox2"
            size2 = New Size(&H21, 20)
            Me.TextBox2.Size = size2
            Me.TextBox2.TabIndex = 0
            point2 = New Point(&H71, &H13)
            Me.TextBox1.Location = point2
            Me.TextBox1.Name = "TextBox1"
            size2 = New Size(&H20, 20)
            Me.TextBox1.Size = size2
            Me.TextBox1.TabIndex = 0
            point2 = New Point(6, &HB0)
            Me.Button2.Location = point2
            Me.Button2.Name = "Button2"
            size2 = New Size(&HF8, &H17)
            Me.Button2.Size = size2
            Me.Button2.TabIndex = 9
            Me.Button2.Text = "Edit And Save New Player File"
            Me.Button2.UseVisualStyleBackColor = True
            Me.TabControl1.Controls.Add(Me.TabPage1)
            point2 = New Point(-2, &H6B)
            Me.TabControl1.Location = point2
            Me.TabControl1.Name = "TabControl1"
            Me.TabControl1.SelectedIndex = 0
            size2 = New Size(&H10B, &HF7)
            Me.TabControl1.Size = size2
            Me.TabControl1.TabIndex = 10
            Me.TabPage1.Controls.Add(Me.ProgressBar1)
            Me.TabPage1.Controls.Add(Me.GroupBox1)
            Me.TabPage1.Controls.Add(Me.Button2)
            Me.TabPage1.Controls.Add(Me.GroupBox2)
            Me.TabPage1.Controls.Add(Me.GroupBox3)
            point2 = New Point(4, &H16)
            Me.TabPage1.Location = point2
            Me.TabPage1.Name = "TabPage1"
            Dim padding2 As New Padding(3)
            Me.TabPage1.Padding = padding2
            size2 = New Size(&H103, &HDD)
            Me.TabPage1.Size = size2
            Me.TabPage1.TabIndex = 0
            Me.TabPage1.Text = "                                Xbox 360 - PS3                           "
            Me.TabPage1.UseVisualStyleBackColor = True
            Me.Timer1.Interval = &H3E8
            point2 = New Point(7, &HC9)
            Me.ProgressBar1.Location = point2
            Me.ProgressBar1.Name = "ProgressBar1"
            size2 = New Size(&HF6, 13)
            Me.ProgressBar1.Size = size2
            Me.ProgressBar1.TabIndex = 10
            Dim ef2 As New SizeF(6!, 13!)
            Me.AutoScaleDimensions = ef2
            Me.AutoScaleMode = AutoScaleMode.Font
            size2 = New Size(&H105, &H160)
            Me.ClientSize = size2
            Me.Controls.Add(Me.TabControl1)
            Me.Controls.Add(Me.PictureBox1)
            Me.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
            size2 = New Size(&H115, 390)
            Me.MaximumSize = size2
            size2 = New Size(&H115, 390)
            Me.MinimumSize = size2
            Me.Name = "Form1"
            Me.StartPosition = FormStartPosition.CenterScreen
            Me.Text = "MW3 Prestige Hack"
            DirectCast(Me.PictureBox1, ISupportInitialize).EndInit
            Me.GroupBox1.ResumeLayout(False)
            Me.GroupBox1.PerformLayout
            Me.GroupBox2.ResumeLayout(False)
            Me.GroupBox2.PerformLayout
            Me.GroupBox3.ResumeLayout(False)
            Me.GroupBox3.PerformLayout
            Me.TabControl1.ResumeLayout(False)
            Me.TabPage1.ResumeLayout(False)
            Me.ResumeLayout(False)
        End Sub

        Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As CancelEventArgs)
            Me.Label1.Text = Me.OpenFileDialog1.FileName
        End Sub

        Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
            If Me.Timer1.Enabled Then
                Me.ProgressBar1.Enabled = True
            End If
            Me.ProgressBar1.Increment(1)
            Me.ProgressBar1.Maximum = 12
            If (Me.ProgressBar1.Value = 12) Then
                Me.Timer1.Stop
                MessageBox.Show("File edited Successfully!!")
            End If
        End Sub


        ' Properties
        Friend Overridable Property Button1 As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._Button1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As MouseEventHandler = New MouseEventHandler(AddressOf Me.Button1_MouseClick)
                Dim handler2 As EventHandler = New EventHandler(AddressOf Me.Button1_Click)
                If (Not Me._Button1 Is Nothing) Then
                    RemoveHandler Me._Button1.MouseClick, handler
                    RemoveHandler Me._Button1.Click, handler2
                End If
                Me._Button1 = WithEventsValue
                If (Not Me._Button1 Is Nothing) Then
                    AddHandler Me._Button1.MouseClick, handler
                    AddHandler Me._Button1.Click, handler2
                End If
            End Set
        End Property

        Friend Overridable Property Button2 As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._Button2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Button2_Click)
                If (Not Me._Button2 Is Nothing) Then
                    RemoveHandler Me._Button2.Click, handler
                End If
                Me._Button2 = WithEventsValue
                If (Not Me._Button2 Is Nothing) Then
                    AddHandler Me._Button2.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property CheckBox1 As CheckBox
            <DebuggerNonUserCode> _
            Get
                Return Me._CheckBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As CheckBox)
                Me._CheckBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox1 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox2 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox3 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label1 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label2 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label3 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property OpenFileDialog1 As OpenFileDialog
            <DebuggerNonUserCode> _
            Get
                Return Me._OpenFileDialog1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As OpenFileDialog)
                Dim handler As CancelEventHandler = New CancelEventHandler(AddressOf Me.OpenFileDialog1_FileOk)
                If (Not Me._OpenFileDialog1 Is Nothing) Then
                    RemoveHandler Me._OpenFileDialog1.FileOk, handler
                End If
                Me._OpenFileDialog1 = WithEventsValue
                If (Not Me._OpenFileDialog1 Is Nothing) Then
                    AddHandler Me._OpenFileDialog1.FileOk, handler
                End If
            End Set
        End Property

        Friend Overridable Property PictureBox1 As PictureBox
            <DebuggerNonUserCode> _
            Get
                Return Me._PictureBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As PictureBox)
                Me._PictureBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property ProgressBar1 As ProgressBar
            <DebuggerNonUserCode> _
            Get
                Return Me._ProgressBar1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As ProgressBar)
                Me._ProgressBar1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property RadioButton1 As RadioButton
            <DebuggerNonUserCode> _
            Get
                Return Me._RadioButton1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As RadioButton)
                Me._RadioButton1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property RadioButton2 As RadioButton
            <DebuggerNonUserCode> _
            Get
                Return Me._RadioButton2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As RadioButton)
                Me._RadioButton2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TabControl1 As TabControl
            <DebuggerNonUserCode> _
            Get
                Return Me._TabControl1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TabControl)
                Me._TabControl1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TabPage1 As TabPage
            <DebuggerNonUserCode> _
            Get
                Return Me._TabPage1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TabPage)
                Me._TabPage1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TextBox1 As TextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._TextBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TextBox)
                Me._TextBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TextBox2 As TextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._TextBox2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TextBox)
                Me._TextBox2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Timer1 As Timer
            <DebuggerNonUserCode> _
            Get
                Return Me._Timer1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Timer)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Timer1_Tick)
                If (Not Me._Timer1 Is Nothing) Then
                    RemoveHandler Me._Timer1.Tick, handler
                End If
                Me._Timer1 = WithEventsValue
                If (Not Me._Timer1 Is Nothing) Then
                    AddHandler Me._Timer1.Tick, handler
                End If
            End Set
        End Property


        ' Fields
        Private Shared __ENCList As List([Of] WeakReference) = New List([Of] WeakReference)
        <AccessedThroughProperty("Button1")> _
        Private _Button1 As Button
        <AccessedThroughProperty("Button2")> _
        Private _Button2 As Button
        <AccessedThroughProperty("CheckBox1")> _
        Private _CheckBox1 As CheckBox
        <AccessedThroughProperty("GroupBox1")> _
        Private _GroupBox1 As GroupBox
        <AccessedThroughProperty("GroupBox2")> _
        Private _GroupBox2 As GroupBox
        <AccessedThroughProperty("GroupBox3")> _
        Private _GroupBox3 As GroupBox
        <AccessedThroughProperty("Label1")> _
        Private _Label1 As Label
        <AccessedThroughProperty("Label2")> _
        Private _Label2 As Label
        <AccessedThroughProperty("Label3")> _
        Private _Label3 As Label
        <AccessedThroughProperty("OpenFileDialog1")> _
        Private _OpenFileDialog1 As OpenFileDialog
        <AccessedThroughProperty("PictureBox1")> _
        Private _PictureBox1 As PictureBox
        <AccessedThroughProperty("ProgressBar1")> _
        Private _ProgressBar1 As ProgressBar
        <AccessedThroughProperty("RadioButton1")> _
        Private _RadioButton1 As RadioButton
        <AccessedThroughProperty("RadioButton2")> _
        Private _RadioButton2 As RadioButton
        <AccessedThroughProperty("TabControl1")> _
        Private _TabControl1 As TabControl
        <AccessedThroughProperty("TabPage1")> _
        Private _TabPage1 As TabPage
        <AccessedThroughProperty("TextBox1")> _
        Private _TextBox1 As TextBox
        <AccessedThroughProperty("TextBox2")> _
        Private _TextBox2 As TextBox
        <AccessedThroughProperty("Timer1")> _
        Private _Timer1 As Timer
        Private components As IContainer
    End Class
End Namespace


what is it then????????????????????

it is simply a scam.
it sets the progress bar to increment by 1, and show a message box when it is done.
it does absolutley nothing.

HAHAHAHAHA ^^^^^ ;) ....................

PHP_Pro wrote

Sgt_Wallcroft wrote

PHP_Pro wrote i just downloaded and decompiled this program -
it is not a virus
it does NOT edit your prestige
here is the entire code for the program:
(assuming that you know VB.NET)


Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms

Namespace WindowsApplication1
    <DesignerGenerated> _
    Public Class Form1
        Inherits Form
        ' Methods
        <DebuggerNonUserCode> _
        Public Sub New()
            Form1.__ENCAddToList(Me)
            Me.InitializeComponent
        End Sub

        <DebuggerNonUserCode> _
        Private Shared Sub __ENCAddToList(ByVal value As Object)
            Dim list As List([Of] WeakReference) = Form1.__ENCList
            SyncLock list
                If (Form1.__ENCList.Count = Form1.__ENCList.Capacity) Then
                    Dim index As Integer = 0
                    Dim num3 As Integer = (Form1.__ENCList.Count - 1)
                    Dim i As Integer = 0
                    Do While (i <= num3)
                        Dim reference As WeakReference = Form1.__ENCList.Item(i)
                        If reference.IsAlive Then
                            If (i <> index) Then
                                Form1.__ENCList.Item(index) = Form1.__ENCList.Item(i)
                            End If
                            index += 1
                        End If
                        i += 1
                    Loop
                    Form1.__ENCList.RemoveRange(index, (Form1.__ENCList.Count - index))
                    Form1.__ENCList.Capacity = Form1.__ENCList.Count
                End If
                Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
            End SyncLock
        End Sub

        Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.OpenFileDialog1.ShowDialog
        End Sub

        Private Sub Button1_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)
        End Sub

        Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
            If Me.Button1.Enabled Then
                Me.Timer1.Enabled = True
            End If
        End Sub

        <DebuggerNonUserCode> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try
                If (disposing AndAlso (Not Me.components Is Nothing)) Then
                    Me.components.Dispose
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub

        <DebuggerStepThrough> _
        Private Sub InitializeComponent()
            Me.components = New Container
            Dim manager As New ComponentResourceManager(GetType(Form1))
            Me.PictureBox1 = New PictureBox
            Me.Button1 = New Button
            Me.OpenFileDialog1 = New OpenFileDialog
            Me.Label1 = New Label
            Me.GroupBox1 = New GroupBox
            Me.RadioButton1 = New RadioButton
            Me.RadioButton2 = New RadioButton
            Me.GroupBox2 = New GroupBox
            Me.GroupBox3 = New GroupBox
            Me.Label3 = New Label
            Me.CheckBox1 = New CheckBox
            Me.Label2 = New Label
            Me.TextBox2 = New TextBox
            Me.TextBox1 = New TextBox
            Me.Button2 = New Button
            Me.TabControl1 = New TabControl
            Me.TabPage1 = New TabPage
            Me.Timer1 = New Timer(Me.components)
            Me.ProgressBar1 = New ProgressBar
            DirectCast(Me.PictureBox1, ISupportInitialize).BeginInit
            Me.GroupBox1.SuspendLayout
            Me.GroupBox2.SuspendLayout
            Me.GroupBox3.SuspendLayout
            Me.TabControl1.SuspendLayout
            Me.TabPage1.SuspendLayout
            Me.SuspendLayout
            Me.PictureBox1.Image = DirectCast(manager.GetObject("PictureBox1.Image"), Image)
            Dim point2 As New Point(0, 0)
            Me.PictureBox1.Location = point2
            Me.PictureBox1.Name = "PictureBox1"
            Dim size2 As New Size(270, &H6B)
            Me.PictureBox1.Size = size2
            Me.PictureBox1.TabIndex = 0
            Me.PictureBox1.TabStop = False
            point2 = New Point(6, &H18)
            Me.Button1.Location = point2
            Me.Button1.Name = "Button1"
            size2 = New Size(&H4B, &H17)
            Me.Button1.Size = size2
            Me.Button1.TabIndex = 1
            Me.Button1.Text = "Browse"
            Me.Button1.UseVisualStyleBackColor = True
            Me.OpenFileDialog1.FileName = "Select your file"
            Me.OpenFileDialog1.InitialDirectory = "C:\"
            Me.Label1.AutoSize = True
            point2 = New Point(&H59, 30)
            Me.Label1.Location = point2
            Me.Label1.Name = "Label1"
            size2 = New Size(0, 13)
            Me.Label1.Size = size2
            Me.Label1.TabIndex = 3
            Me.GroupBox1.Controls.Add(Me.Label1)
            Me.GroupBox1.Controls.Add(Me.Button1)
            point2 = New Point(6, 6)
            Me.GroupBox1.Location = point2
            Me.GroupBox1.Name = "GroupBox1"
            size2 = New Size(&HF7, &H3A)
            Me.GroupBox1.Size = size2
            Me.GroupBox1.TabIndex = 5
            Me.GroupBox1.TabStop = False
            Me.GroupBox1.Text = "Load Player File"
            Me.RadioButton1.AutoSize = True
            point2 = New Point(11, &H19)
            Me.RadioButton1.Location = point2
            Me.RadioButton1.Name = "RadioButton1"
            size2 = New Size(70, &H11)
            Me.RadioButton1.Size = size2
            Me.RadioButton1.TabIndex = 6
            Me.RadioButton1.TabStop = True
            Me.RadioButton1.Text = "Xbox 360"
            Me.RadioButton1.UseVisualStyleBackColor = True
            Me.RadioButton2.AutoSize = True
            point2 = New Point(11, &H30)
            Me.RadioButton2.Location = point2
            Me.RadioButton2.Name = "RadioButton2"
            size2 = New Size(&H2D, &H11)
            Me.RadioButton2.Size = size2
            Me.RadioButton2.TabIndex = 6
            Me.RadioButton2.TabStop = True
            Me.RadioButton2.Text = "PS3"
            Me.RadioButton2.UseVisualStyleBackColor = True
            Me.GroupBox2.Controls.Add(Me.RadioButton2)
            Me.GroupBox2.Controls.Add(Me.RadioButton1)
            point2 = New Point(6, &H43)
            Me.GroupBox2.Location = point2
            Me.GroupBox2.Name = "GroupBox2"
            size2 = New Size(&H5B, &H67)
            Me.GroupBox2.Size = size2
            Me.GroupBox2.TabIndex = 7
            Me.GroupBox2.TabStop = False
            Me.GroupBox2.Text = "Select System"
            Me.GroupBox3.Controls.Add(Me.Label3)
            Me.GroupBox3.Controls.Add(Me.CheckBox1)
            Me.GroupBox3.Controls.Add(Me.Label2)
            Me.GroupBox3.Controls.Add(Me.TextBox2)
            Me.GroupBox3.Controls.Add(Me.TextBox1)
            point2 = New Point(&H67, 70)
            Me.GroupBox3.Location = point2
            Me.GroupBox3.Name = "GroupBox3"
            size2 = New Size(&H99, 100)
            Me.GroupBox3.Size = size2
            Me.GroupBox3.TabIndex = 8
            Me.GroupBox3.TabStop = False
            Me.GroupBox3.Text = "Edit Account"
            Me.Label3.AutoSize = True
            point2 = New Point(6, &H31)
            Me.Label3.Location = point2
            Me.Label3.Name = "Label3"
            size2 = New Size(&H6A, 13)
            Me.Label3.Size = size2
            Me.Label3.TabIndex = 2
            Me.Label3.Text = "Add Prestige Tokens"
            Me.CheckBox1.AutoSize = True
            point2 = New Point(9, &H4C)
            Me.CheckBox1.Location = point2
            Me.CheckBox1.Name = "CheckBox1"
            size2 = New Size(&H71, &H11)
            Me.CheckBox1.Size = size2
            Me.CheckBox1.TabIndex = 0
            Me.CheckBox1.Text = "Unlock Everything"
            Me.CheckBox1.UseVisualStyleBackColor = True
            Me.Label2.AutoSize = True
            point2 = New Point(6, &H18)
            Me.Label2.Location = point2
            Me.Label2.Name = "Label2"
            size2 = New Size(&H5F, 13)
            Me.Label2.Size = size2
            Me.Label2.TabIndex = 1
            Me.Label2.Text = "Edit Prestige Level"
            point2 = New Point(&H71, &H2E)
            Me.TextBox2.Location = point2
            Me.TextBox2.Name = "TextBox2"
            size2 = New Size(&H21, 20)
            Me.TextBox2.Size = size2
            Me.TextBox2.TabIndex = 0
            point2 = New Point(&H71, &H13)
            Me.TextBox1.Location = point2
            Me.TextBox1.Name = "TextBox1"
            size2 = New Size(&H20, 20)
            Me.TextBox1.Size = size2
            Me.TextBox1.TabIndex = 0
            point2 = New Point(6, &HB0)
            Me.Button2.Location = point2
            Me.Button2.Name = "Button2"
            size2 = New Size(&HF8, &H17)
            Me.Button2.Size = size2
            Me.Button2.TabIndex = 9
            Me.Button2.Text = "Edit And Save New Player File"
            Me.Button2.UseVisualStyleBackColor = True
            Me.TabControl1.Controls.Add(Me.TabPage1)
            point2 = New Point(-2, &H6B)
            Me.TabControl1.Location = point2
            Me.TabControl1.Name = "TabControl1"
            Me.TabControl1.SelectedIndex = 0
            size2 = New Size(&H10B, &HF7)
            Me.TabControl1.Size = size2
            Me.TabControl1.TabIndex = 10
            Me.TabPage1.Controls.Add(Me.ProgressBar1)
            Me.TabPage1.Controls.Add(Me.GroupBox1)
            Me.TabPage1.Controls.Add(Me.Button2)
            Me.TabPage1.Controls.Add(Me.GroupBox2)
            Me.TabPage1.Controls.Add(Me.GroupBox3)
            point2 = New Point(4, &H16)
            Me.TabPage1.Location = point2
            Me.TabPage1.Name = "TabPage1"
            Dim padding2 As New Padding(3)
            Me.TabPage1.Padding = padding2
            size2 = New Size(&H103, &HDD)
            Me.TabPage1.Size = size2
            Me.TabPage1.TabIndex = 0
            Me.TabPage1.Text = "                                Xbox 360 - PS3                           "
            Me.TabPage1.UseVisualStyleBackColor = True
            Me.Timer1.Interval = &H3E8
            point2 = New Point(7, &HC9)
            Me.ProgressBar1.Location = point2
            Me.ProgressBar1.Name = "ProgressBar1"
            size2 = New Size(&HF6, 13)
            Me.ProgressBar1.Size = size2
            Me.ProgressBar1.TabIndex = 10
            Dim ef2 As New SizeF(6!, 13!)
            Me.AutoScaleDimensions = ef2
            Me.AutoScaleMode = AutoScaleMode.Font
            size2 = New Size(&H105, &H160)
            Me.ClientSize = size2
            Me.Controls.Add(Me.TabControl1)
            Me.Controls.Add(Me.PictureBox1)
            Me.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
            size2 = New Size(&H115, 390)
            Me.MaximumSize = size2
            size2 = New Size(&H115, 390)
            Me.MinimumSize = size2
            Me.Name = "Form1"
            Me.StartPosition = FormStartPosition.CenterScreen
            Me.Text = "MW3 Prestige Hack"
            DirectCast(Me.PictureBox1, ISupportInitialize).EndInit
            Me.GroupBox1.ResumeLayout(False)
            Me.GroupBox1.PerformLayout
            Me.GroupBox2.ResumeLayout(False)
            Me.GroupBox2.PerformLayout
            Me.GroupBox3.ResumeLayout(False)
            Me.GroupBox3.PerformLayout
            Me.TabControl1.ResumeLayout(False)
            Me.TabPage1.ResumeLayout(False)
            Me.ResumeLayout(False)
        End Sub

        Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As CancelEventArgs)
            Me.Label1.Text = Me.OpenFileDialog1.FileName
        End Sub

        Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
            If Me.Timer1.Enabled Then
                Me.ProgressBar1.Enabled = True
            End If
            Me.ProgressBar1.Increment(1)
            Me.ProgressBar1.Maximum = 12
            If (Me.ProgressBar1.Value = 12) Then
                Me.Timer1.Stop
                MessageBox.Show("File edited Successfully!!")
            End If
        End Sub


        ' Properties
        Friend Overridable Property Button1 As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._Button1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As MouseEventHandler = New MouseEventHandler(AddressOf Me.Button1_MouseClick)
                Dim handler2 As EventHandler = New EventHandler(AddressOf Me.Button1_Click)
                If (Not Me._Button1 Is Nothing) Then
                    RemoveHandler Me._Button1.MouseClick, handler
                    RemoveHandler Me._Button1.Click, handler2
                End If
                Me._Button1 = WithEventsValue
                If (Not Me._Button1 Is Nothing) Then
                    AddHandler Me._Button1.MouseClick, handler
                    AddHandler Me._Button1.Click, handler2
                End If
            End Set
        End Property

        Friend Overridable Property Button2 As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._Button2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Button2_Click)
                If (Not Me._Button2 Is Nothing) Then
                    RemoveHandler Me._Button2.Click, handler
                End If
                Me._Button2 = WithEventsValue
                If (Not Me._Button2 Is Nothing) Then
                    AddHandler Me._Button2.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property CheckBox1 As CheckBox
            <DebuggerNonUserCode> _
            Get
                Return Me._CheckBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As CheckBox)
                Me._CheckBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox1 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox2 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox3 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label1 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label2 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label3 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property OpenFileDialog1 As OpenFileDialog
            <DebuggerNonUserCode> _
            Get
                Return Me._OpenFileDialog1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As OpenFileDialog)
                Dim handler As CancelEventHandler = New CancelEventHandler(AddressOf Me.OpenFileDialog1_FileOk)
                If (Not Me._OpenFileDialog1 Is Nothing) Then
                    RemoveHandler Me._OpenFileDialog1.FileOk, handler
                End If
                Me._OpenFileDialog1 = WithEventsValue
                If (Not Me._OpenFileDialog1 Is Nothing) Then
                    AddHandler Me._OpenFileDialog1.FileOk, handler
                End If
            End Set
        End Property

        Friend Overridable Property PictureBox1 As PictureBox
            <DebuggerNonUserCode> _
            Get
                Return Me._PictureBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As PictureBox)
                Me._PictureBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property ProgressBar1 As ProgressBar
            <DebuggerNonUserCode> _
            Get
                Return Me._ProgressBar1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As ProgressBar)
                Me._ProgressBar1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property RadioButton1 As RadioButton
            <DebuggerNonUserCode> _
            Get
                Return Me._RadioButton1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As RadioButton)
                Me._RadioButton1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property RadioButton2 As RadioButton
            <DebuggerNonUserCode> _
            Get
                Return Me._RadioButton2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As RadioButton)
                Me._RadioButton2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TabControl1 As TabControl
            <DebuggerNonUserCode> _
            Get
                Return Me._TabControl1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TabControl)
                Me._TabControl1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TabPage1 As TabPage
            <DebuggerNonUserCode> _
            Get
                Return Me._TabPage1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TabPage)
                Me._TabPage1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TextBox1 As TextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._TextBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TextBox)
                Me._TextBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TextBox2 As TextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._TextBox2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TextBox)
                Me._TextBox2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Timer1 As Timer
            <DebuggerNonUserCode> _
            Get
                Return Me._Timer1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Timer)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Timer1_Tick)
                If (Not Me._Timer1 Is Nothing) Then
                    RemoveHandler Me._Timer1.Tick, handler
                End If
                Me._Timer1 = WithEventsValue
                If (Not Me._Timer1 Is Nothing) Then
                    AddHandler Me._Timer1.Tick, handler
                End If
            End Set
        End Property


        ' Fields
        Private Shared __ENCList As List([Of] WeakReference) = New List([Of] WeakReference)
        <AccessedThroughProperty("Button1")> _
        Private _Button1 As Button
        <AccessedThroughProperty("Button2")> _
        Private _Button2 As Button
        <AccessedThroughProperty("CheckBox1")> _
        Private _CheckBox1 As CheckBox
        <AccessedThroughProperty("GroupBox1")> _
        Private _GroupBox1 As GroupBox
        <AccessedThroughProperty("GroupBox2")> _
        Private _GroupBox2 As GroupBox
        <AccessedThroughProperty("GroupBox3")> _
        Private _GroupBox3 As GroupBox
        <AccessedThroughProperty("Label1")> _
        Private _Label1 As Label
        <AccessedThroughProperty("Label2")> _
        Private _Label2 As Label
        <AccessedThroughProperty("Label3")> _
        Private _Label3 As Label
        <AccessedThroughProperty("OpenFileDialog1")> _
        Private _OpenFileDialog1 As OpenFileDialog
        <AccessedThroughProperty("PictureBox1")> _
        Private _PictureBox1 As PictureBox
        <AccessedThroughProperty("ProgressBar1")> _
        Private _ProgressBar1 As ProgressBar
        <AccessedThroughProperty("RadioButton1")> _
        Private _RadioButton1 As RadioButton
        <AccessedThroughProperty("RadioButton2")> _
        Private _RadioButton2 As RadioButton
        <AccessedThroughProperty("TabControl1")> _
        Private _TabControl1 As TabControl
        <AccessedThroughProperty("TabPage1")> _
        Private _TabPage1 As TabPage
        <AccessedThroughProperty("TextBox1")> _
        Private _TextBox1 As TextBox
        <AccessedThroughProperty("TextBox2")> _
        Private _TextBox2 As TextBox
        <AccessedThroughProperty("Timer1")> _
        Private _Timer1 As Timer
        Private components As IContainer
    End Class
End Namespace


what is it then????????????????????

it is simply a scam.
it sets the progress bar to increment by 1, and show a message box when it is done.
it does absolutley nothing.

soo why is there lots of comments on youtube saying it works?.

PHP_Pro wrote

Sgt_Wallcroft wrote

PHP_Pro wrote i just downloaded and decompiled this program -
it is not a virus
it does NOT edit your prestige
here is the entire code for the program:
(assuming that you know VB.NET)


Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms

Namespace WindowsApplication1
    <DesignerGenerated> _
    Public Class Form1
        Inherits Form
        ' Methods
        <DebuggerNonUserCode> _
        Public Sub New()
            Form1.__ENCAddToList(Me)
            Me.InitializeComponent
        End Sub

        <DebuggerNonUserCode> _
        Private Shared Sub __ENCAddToList(ByVal value As Object)
            Dim list As List([Of] WeakReference) = Form1.__ENCList
            SyncLock list
                If (Form1.__ENCList.Count = Form1.__ENCList.Capacity) Then
                    Dim index As Integer = 0
                    Dim num3 As Integer = (Form1.__ENCList.Count - 1)
                    Dim i As Integer = 0
                    Do While (i <= num3)
                        Dim reference As WeakReference = Form1.__ENCList.Item(i)
                        If reference.IsAlive Then
                            If (i <> index) Then
                                Form1.__ENCList.Item(index) = Form1.__ENCList.Item(i)
                            End If
                            index += 1
                        End If
                        i += 1
                    Loop
                    Form1.__ENCList.RemoveRange(index, (Form1.__ENCList.Count - index))
                    Form1.__ENCList.Capacity = Form1.__ENCList.Count
                End If
                Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
            End SyncLock
        End Sub

        Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.OpenFileDialog1.ShowDialog
        End Sub

        Private Sub Button1_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)
        End Sub

        Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
            If Me.Button1.Enabled Then
                Me.Timer1.Enabled = True
            End If
        End Sub

        <DebuggerNonUserCode> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try
                If (disposing AndAlso (Not Me.components Is Nothing)) Then
                    Me.components.Dispose
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub

        <DebuggerStepThrough> _
        Private Sub InitializeComponent()
            Me.components = New Container
            Dim manager As New ComponentResourceManager(GetType(Form1))
            Me.PictureBox1 = New PictureBox
            Me.Button1 = New Button
            Me.OpenFileDialog1 = New OpenFileDialog
            Me.Label1 = New Label
            Me.GroupBox1 = New GroupBox
            Me.RadioButton1 = New RadioButton
            Me.RadioButton2 = New RadioButton
            Me.GroupBox2 = New GroupBox
            Me.GroupBox3 = New GroupBox
            Me.Label3 = New Label
            Me.CheckBox1 = New CheckBox
            Me.Label2 = New Label
            Me.TextBox2 = New TextBox
            Me.TextBox1 = New TextBox
            Me.Button2 = New Button
            Me.TabControl1 = New TabControl
            Me.TabPage1 = New TabPage
            Me.Timer1 = New Timer(Me.components)
            Me.ProgressBar1 = New ProgressBar
            DirectCast(Me.PictureBox1, ISupportInitialize).BeginInit
            Me.GroupBox1.SuspendLayout
            Me.GroupBox2.SuspendLayout
            Me.GroupBox3.SuspendLayout
            Me.TabControl1.SuspendLayout
            Me.TabPage1.SuspendLayout
            Me.SuspendLayout
            Me.PictureBox1.Image = DirectCast(manager.GetObject("PictureBox1.Image"), Image)
            Dim point2 As New Point(0, 0)
            Me.PictureBox1.Location = point2
            Me.PictureBox1.Name = "PictureBox1"
            Dim size2 As New Size(270, &H6B)
            Me.PictureBox1.Size = size2
            Me.PictureBox1.TabIndex = 0
            Me.PictureBox1.TabStop = False
            point2 = New Point(6, &H18)
            Me.Button1.Location = point2
            Me.Button1.Name = "Button1"
            size2 = New Size(&H4B, &H17)
            Me.Button1.Size = size2
            Me.Button1.TabIndex = 1
            Me.Button1.Text = "Browse"
            Me.Button1.UseVisualStyleBackColor = True
            Me.OpenFileDialog1.FileName = "Select your file"
            Me.OpenFileDialog1.InitialDirectory = "C:\"
            Me.Label1.AutoSize = True
            point2 = New Point(&H59, 30)
            Me.Label1.Location = point2
            Me.Label1.Name = "Label1"
            size2 = New Size(0, 13)
            Me.Label1.Size = size2
            Me.Label1.TabIndex = 3
            Me.GroupBox1.Controls.Add(Me.Label1)
            Me.GroupBox1.Controls.Add(Me.Button1)
            point2 = New Point(6, 6)
            Me.GroupBox1.Location = point2
            Me.GroupBox1.Name = "GroupBox1"
            size2 = New Size(&HF7, &H3A)
            Me.GroupBox1.Size = size2
            Me.GroupBox1.TabIndex = 5
            Me.GroupBox1.TabStop = False
            Me.GroupBox1.Text = "Load Player File"
            Me.RadioButton1.AutoSize = True
            point2 = New Point(11, &H19)
            Me.RadioButton1.Location = point2
            Me.RadioButton1.Name = "RadioButton1"
            size2 = New Size(70, &H11)
            Me.RadioButton1.Size = size2
            Me.RadioButton1.TabIndex = 6
            Me.RadioButton1.TabStop = True
            Me.RadioButton1.Text = "Xbox 360"
            Me.RadioButton1.UseVisualStyleBackColor = True
            Me.RadioButton2.AutoSize = True
            point2 = New Point(11, &H30)
            Me.RadioButton2.Location = point2
            Me.RadioButton2.Name = "RadioButton2"
            size2 = New Size(&H2D, &H11)
            Me.RadioButton2.Size = size2
            Me.RadioButton2.TabIndex = 6
            Me.RadioButton2.TabStop = True
            Me.RadioButton2.Text = "PS3"
            Me.RadioButton2.UseVisualStyleBackColor = True
            Me.GroupBox2.Controls.Add(Me.RadioButton2)
            Me.GroupBox2.Controls.Add(Me.RadioButton1)
            point2 = New Point(6, &H43)
            Me.GroupBox2.Location = point2
            Me.GroupBox2.Name = "GroupBox2"
            size2 = New Size(&H5B, &H67)
            Me.GroupBox2.Size = size2
            Me.GroupBox2.TabIndex = 7
            Me.GroupBox2.TabStop = False
            Me.GroupBox2.Text = "Select System"
            Me.GroupBox3.Controls.Add(Me.Label3)
            Me.GroupBox3.Controls.Add(Me.CheckBox1)
            Me.GroupBox3.Controls.Add(Me.Label2)
            Me.GroupBox3.Controls.Add(Me.TextBox2)
            Me.GroupBox3.Controls.Add(Me.TextBox1)
            point2 = New Point(&H67, 70)
            Me.GroupBox3.Location = point2
            Me.GroupBox3.Name = "GroupBox3"
            size2 = New Size(&H99, 100)
            Me.GroupBox3.Size = size2
            Me.GroupBox3.TabIndex = 8
            Me.GroupBox3.TabStop = False
            Me.GroupBox3.Text = "Edit Account"
            Me.Label3.AutoSize = True
            point2 = New Point(6, &H31)
            Me.Label3.Location = point2
            Me.Label3.Name = "Label3"
            size2 = New Size(&H6A, 13)
            Me.Label3.Size = size2
            Me.Label3.TabIndex = 2
            Me.Label3.Text = "Add Prestige Tokens"
            Me.CheckBox1.AutoSize = True
            point2 = New Point(9, &H4C)
            Me.CheckBox1.Location = point2
            Me.CheckBox1.Name = "CheckBox1"
            size2 = New Size(&H71, &H11)
            Me.CheckBox1.Size = size2
            Me.CheckBox1.TabIndex = 0
            Me.CheckBox1.Text = "Unlock Everything"
            Me.CheckBox1.UseVisualStyleBackColor = True
            Me.Label2.AutoSize = True
            point2 = New Point(6, &H18)
            Me.Label2.Location = point2
            Me.Label2.Name = "Label2"
            size2 = New Size(&H5F, 13)
            Me.Label2.Size = size2
            Me.Label2.TabIndex = 1
            Me.Label2.Text = "Edit Prestige Level"
            point2 = New Point(&H71, &H2E)
            Me.TextBox2.Location = point2
            Me.TextBox2.Name = "TextBox2"
            size2 = New Size(&H21, 20)
            Me.TextBox2.Size = size2
            Me.TextBox2.TabIndex = 0
            point2 = New Point(&H71, &H13)
            Me.TextBox1.Location = point2
            Me.TextBox1.Name = "TextBox1"
            size2 = New Size(&H20, 20)
            Me.TextBox1.Size = size2
            Me.TextBox1.TabIndex = 0
            point2 = New Point(6, &HB0)
            Me.Button2.Location = point2
            Me.Button2.Name = "Button2"
            size2 = New Size(&HF8, &H17)
            Me.Button2.Size = size2
            Me.Button2.TabIndex = 9
            Me.Button2.Text = "Edit And Save New Player File"
            Me.Button2.UseVisualStyleBackColor = True
            Me.TabControl1.Controls.Add(Me.TabPage1)
            point2 = New Point(-2, &H6B)
            Me.TabControl1.Location = point2
            Me.TabControl1.Name = "TabControl1"
            Me.TabControl1.SelectedIndex = 0
            size2 = New Size(&H10B, &HF7)
            Me.TabControl1.Size = size2
            Me.TabControl1.TabIndex = 10
            Me.TabPage1.Controls.Add(Me.ProgressBar1)
            Me.TabPage1.Controls.Add(Me.GroupBox1)
            Me.TabPage1.Controls.Add(Me.Button2)
            Me.TabPage1.Controls.Add(Me.GroupBox2)
            Me.TabPage1.Controls.Add(Me.GroupBox3)
            point2 = New Point(4, &H16)
            Me.TabPage1.Location = point2
            Me.TabPage1.Name = "TabPage1"
            Dim padding2 As New Padding(3)
            Me.TabPage1.Padding = padding2
            size2 = New Size(&H103, &HDD)
            Me.TabPage1.Size = size2
            Me.TabPage1.TabIndex = 0
            Me.TabPage1.Text = "                                Xbox 360 - PS3                           "
            Me.TabPage1.UseVisualStyleBackColor = True
            Me.Timer1.Interval = &H3E8
            point2 = New Point(7, &HC9)
            Me.ProgressBar1.Location = point2
            Me.ProgressBar1.Name = "ProgressBar1"
            size2 = New Size(&HF6, 13)
            Me.ProgressBar1.Size = size2
            Me.ProgressBar1.TabIndex = 10
            Dim ef2 As New SizeF(6!, 13!)
            Me.AutoScaleDimensions = ef2
            Me.AutoScaleMode = AutoScaleMode.Font
            size2 = New Size(&H105, &H160)
            Me.ClientSize = size2
            Me.Controls.Add(Me.TabControl1)
            Me.Controls.Add(Me.PictureBox1)
            Me.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
            size2 = New Size(&H115, 390)
            Me.MaximumSize = size2
            size2 = New Size(&H115, 390)
            Me.MinimumSize = size2
            Me.Name = "Form1"
            Me.StartPosition = FormStartPosition.CenterScreen
            Me.Text = "MW3 Prestige Hack"
            DirectCast(Me.PictureBox1, ISupportInitialize).EndInit
            Me.GroupBox1.ResumeLayout(False)
            Me.GroupBox1.PerformLayout
            Me.GroupBox2.ResumeLayout(False)
            Me.GroupBox2.PerformLayout
            Me.GroupBox3.ResumeLayout(False)
            Me.GroupBox3.PerformLayout
            Me.TabControl1.ResumeLayout(False)
            Me.TabPage1.ResumeLayout(False)
            Me.ResumeLayout(False)
        End Sub

        Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As CancelEventArgs)
            Me.Label1.Text = Me.OpenFileDialog1.FileName
        End Sub

        Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
            If Me.Timer1.Enabled Then
                Me.ProgressBar1.Enabled = True
            End If
            Me.ProgressBar1.Increment(1)
            Me.ProgressBar1.Maximum = 12
            If (Me.ProgressBar1.Value = 12) Then
                Me.Timer1.Stop
                MessageBox.Show("File edited Successfully!!")
            End If
        End Sub


        ' Properties
        Friend Overridable Property Button1 As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._Button1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As MouseEventHandler = New MouseEventHandler(AddressOf Me.Button1_MouseClick)
                Dim handler2 As EventHandler = New EventHandler(AddressOf Me.Button1_Click)
                If (Not Me._Button1 Is Nothing) Then
                    RemoveHandler Me._Button1.MouseClick, handler
                    RemoveHandler Me._Button1.Click, handler2
                End If
                Me._Button1 = WithEventsValue
                If (Not Me._Button1 Is Nothing) Then
                    AddHandler Me._Button1.MouseClick, handler
                    AddHandler Me._Button1.Click, handler2
                End If
            End Set
        End Property

        Friend Overridable Property Button2 As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._Button2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Button2_Click)
                If (Not Me._Button2 Is Nothing) Then
                    RemoveHandler Me._Button2.Click, handler
                End If
                Me._Button2 = WithEventsValue
                If (Not Me._Button2 Is Nothing) Then
                    AddHandler Me._Button2.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property CheckBox1 As CheckBox
            <DebuggerNonUserCode> _
            Get
                Return Me._CheckBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As CheckBox)
                Me._CheckBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox1 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox2 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox3 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label1 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label2 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label3 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property OpenFileDialog1 As OpenFileDialog
            <DebuggerNonUserCode> _
            Get
                Return Me._OpenFileDialog1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As OpenFileDialog)
                Dim handler As CancelEventHandler = New CancelEventHandler(AddressOf Me.OpenFileDialog1_FileOk)
                If (Not Me._OpenFileDialog1 Is Nothing) Then
                    RemoveHandler Me._OpenFileDialog1.FileOk, handler
                End If
                Me._OpenFileDialog1 = WithEventsValue
                If (Not Me._OpenFileDialog1 Is Nothing) Then
                    AddHandler Me._OpenFileDialog1.FileOk, handler
                End If
            End Set
        End Property

        Friend Overridable Property PictureBox1 As PictureBox
            <DebuggerNonUserCode> _
            Get
                Return Me._PictureBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As PictureBox)
                Me._PictureBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property ProgressBar1 As ProgressBar
            <DebuggerNonUserCode> _
            Get
                Return Me._ProgressBar1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As ProgressBar)
                Me._ProgressBar1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property RadioButton1 As RadioButton
            <DebuggerNonUserCode> _
            Get
                Return Me._RadioButton1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As RadioButton)
                Me._RadioButton1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property RadioButton2 As RadioButton
            <DebuggerNonUserCode> _
            Get
                Return Me._RadioButton2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As RadioButton)
                Me._RadioButton2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TabControl1 As TabControl
            <DebuggerNonUserCode> _
            Get
                Return Me._TabControl1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TabControl)
                Me._TabControl1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TabPage1 As TabPage
            <DebuggerNonUserCode> _
            Get
                Return Me._TabPage1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TabPage)
                Me._TabPage1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TextBox1 As TextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._TextBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TextBox)
                Me._TextBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TextBox2 As TextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._TextBox2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TextBox)
                Me._TextBox2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Timer1 As Timer
            <DebuggerNonUserCode> _
            Get
                Return Me._Timer1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Timer)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Timer1_Tick)
                If (Not Me._Timer1 Is Nothing) Then
                    RemoveHandler Me._Timer1.Tick, handler
                End If
                Me._Timer1 = WithEventsValue
                If (Not Me._Timer1 Is Nothing) Then
                    AddHandler Me._Timer1.Tick, handler
                End If
            End Set
        End Property


        ' Fields
        Private Shared __ENCList As List([Of] WeakReference) = New List([Of] WeakReference)
        <AccessedThroughProperty("Button1")> _
        Private _Button1 As Button
        <AccessedThroughProperty("Button2")> _
        Private _Button2 As Button
        <AccessedThroughProperty("CheckBox1")> _
        Private _CheckBox1 As CheckBox
        <AccessedThroughProperty("GroupBox1")> _
        Private _GroupBox1 As GroupBox
        <AccessedThroughProperty("GroupBox2")> _
        Private _GroupBox2 As GroupBox
        <AccessedThroughProperty("GroupBox3")> _
        Private _GroupBox3 As GroupBox
        <AccessedThroughProperty("Label1")> _
        Private _Label1 As Label
        <AccessedThroughProperty("Label2")> _
        Private _Label2 As Label
        <AccessedThroughProperty("Label3")> _
        Private _Label3 As Label
        <AccessedThroughProperty("OpenFileDialog1")> _
        Private _OpenFileDialog1 As OpenFileDialog
        <AccessedThroughProperty("PictureBox1")> _
        Private _PictureBox1 As PictureBox
        <AccessedThroughProperty("ProgressBar1")> _
        Private _ProgressBar1 As ProgressBar
        <AccessedThroughProperty("RadioButton1")> _
        Private _RadioButton1 As RadioButton
        <AccessedThroughProperty("RadioButton2")> _
        Private _RadioButton2 As RadioButton
        <AccessedThroughProperty("TabControl1")> _
        Private _TabControl1 As TabControl
        <AccessedThroughProperty("TabPage1")> _
        Private _TabPage1 As TabPage
        <AccessedThroughProperty("TextBox1")> _
        Private _TextBox1 As TextBox
        <AccessedThroughProperty("TextBox2")> _
        Private _TextBox2 As TextBox
        <AccessedThroughProperty("Timer1")> _
        Private _Timer1 As Timer
        Private components As IContainer
    End Class
End Namespace


what is it then????????????????????

it is simply a scam.
it sets the progress bar to increment by 1, and show a message box when it is done.
it does absolutley nothing.

Why the hell would i go through all this trouble to just show a message box?!

Wrightyy94 wrote

PHP_Pro wrote

Sgt_Wallcroft wrote

PHP_Pro wrote i just downloaded and decompiled this program -
it is not a virus
it does NOT edit your prestige
here is the entire code for the program:
(assuming that you know VB.NET)


Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms

Namespace WindowsApplication1
    <DesignerGenerated> _
    Public Class Form1
        Inherits Form
        ' Methods
        <DebuggerNonUserCode> _
        Public Sub New()
            Form1.__ENCAddToList(Me)
            Me.InitializeComponent
        End Sub

        <DebuggerNonUserCode> _
        Private Shared Sub __ENCAddToList(ByVal value As Object)
            Dim list As List([Of] WeakReference) = Form1.__ENCList
            SyncLock list
                If (Form1.__ENCList.Count = Form1.__ENCList.Capacity) Then
                    Dim index As Integer = 0
                    Dim num3 As Integer = (Form1.__ENCList.Count - 1)
                    Dim i As Integer = 0
                    Do While (i <= num3)
                        Dim reference As WeakReference = Form1.__ENCList.Item(i)
                        If reference.IsAlive Then
                            If (i <> index) Then
                                Form1.__ENCList.Item(index) = Form1.__ENCList.Item(i)
                            End If
                            index += 1
                        End If
                        i += 1
                    Loop
                    Form1.__ENCList.RemoveRange(index, (Form1.__ENCList.Count - index))
                    Form1.__ENCList.Capacity = Form1.__ENCList.Count
                End If
                Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
            End SyncLock
        End Sub

        Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.OpenFileDialog1.ShowDialog
        End Sub

        Private Sub Button1_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)
        End Sub

        Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
            If Me.Button1.Enabled Then
                Me.Timer1.Enabled = True
            End If
        End Sub

        <DebuggerNonUserCode> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try
                If (disposing AndAlso (Not Me.components Is Nothing)) Then
                    Me.components.Dispose
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub

        <DebuggerStepThrough> _
        Private Sub InitializeComponent()
            Me.components = New Container
            Dim manager As New ComponentResourceManager(GetType(Form1))
            Me.PictureBox1 = New PictureBox
            Me.Button1 = New Button
            Me.OpenFileDialog1 = New OpenFileDialog
            Me.Label1 = New Label
            Me.GroupBox1 = New GroupBox
            Me.RadioButton1 = New RadioButton
            Me.RadioButton2 = New RadioButton
            Me.GroupBox2 = New GroupBox
            Me.GroupBox3 = New GroupBox
            Me.Label3 = New Label
            Me.CheckBox1 = New CheckBox
            Me.Label2 = New Label
            Me.TextBox2 = New TextBox
            Me.TextBox1 = New TextBox
            Me.Button2 = New Button
            Me.TabControl1 = New TabControl
            Me.TabPage1 = New TabPage
            Me.Timer1 = New Timer(Me.components)
            Me.ProgressBar1 = New ProgressBar
            DirectCast(Me.PictureBox1, ISupportInitialize).BeginInit
            Me.GroupBox1.SuspendLayout
            Me.GroupBox2.SuspendLayout
            Me.GroupBox3.SuspendLayout
            Me.TabControl1.SuspendLayout
            Me.TabPage1.SuspendLayout
            Me.SuspendLayout
            Me.PictureBox1.Image = DirectCast(manager.GetObject("PictureBox1.Image"), Image)
            Dim point2 As New Point(0, 0)
            Me.PictureBox1.Location = point2
            Me.PictureBox1.Name = "PictureBox1"
            Dim size2 As New Size(270, &H6B)
            Me.PictureBox1.Size = size2
            Me.PictureBox1.TabIndex = 0
            Me.PictureBox1.TabStop = False
            point2 = New Point(6, &H18)
            Me.Button1.Location = point2
            Me.Button1.Name = "Button1"
            size2 = New Size(&H4B, &H17)
            Me.Button1.Size = size2
            Me.Button1.TabIndex = 1
            Me.Button1.Text = "Browse"
            Me.Button1.UseVisualStyleBackColor = True
            Me.OpenFileDialog1.FileName = "Select your file"
            Me.OpenFileDialog1.InitialDirectory = "C:\"
            Me.Label1.AutoSize = True
            point2 = New Point(&H59, 30)
            Me.Label1.Location = point2
            Me.Label1.Name = "Label1"
            size2 = New Size(0, 13)
            Me.Label1.Size = size2
            Me.Label1.TabIndex = 3
            Me.GroupBox1.Controls.Add(Me.Label1)
            Me.GroupBox1.Controls.Add(Me.Button1)
            point2 = New Point(6, 6)
            Me.GroupBox1.Location = point2
            Me.GroupBox1.Name = "GroupBox1"
            size2 = New Size(&HF7, &H3A)
            Me.GroupBox1.Size = size2
            Me.GroupBox1.TabIndex = 5
            Me.GroupBox1.TabStop = False
            Me.GroupBox1.Text = "Load Player File"
            Me.RadioButton1.AutoSize = True
            point2 = New Point(11, &H19)
            Me.RadioButton1.Location = point2
            Me.RadioButton1.Name = "RadioButton1"
            size2 = New Size(70, &H11)
            Me.RadioButton1.Size = size2
            Me.RadioButton1.TabIndex = 6
            Me.RadioButton1.TabStop = True
            Me.RadioButton1.Text = "Xbox 360"
            Me.RadioButton1.UseVisualStyleBackColor = True
            Me.RadioButton2.AutoSize = True
            point2 = New Point(11, &H30)
            Me.RadioButton2.Location = point2
            Me.RadioButton2.Name = "RadioButton2"
            size2 = New Size(&H2D, &H11)
            Me.RadioButton2.Size = size2
            Me.RadioButton2.TabIndex = 6
            Me.RadioButton2.TabStop = True
            Me.RadioButton2.Text = "PS3"
            Me.RadioButton2.UseVisualStyleBackColor = True
            Me.GroupBox2.Controls.Add(Me.RadioButton2)
            Me.GroupBox2.Controls.Add(Me.RadioButton1)
            point2 = New Point(6, &H43)
            Me.GroupBox2.Location = point2
            Me.GroupBox2.Name = "GroupBox2"
            size2 = New Size(&H5B, &H67)
            Me.GroupBox2.Size = size2
            Me.GroupBox2.TabIndex = 7
            Me.GroupBox2.TabStop = False
            Me.GroupBox2.Text = "Select System"
            Me.GroupBox3.Controls.Add(Me.Label3)
            Me.GroupBox3.Controls.Add(Me.CheckBox1)
            Me.GroupBox3.Controls.Add(Me.Label2)
            Me.GroupBox3.Controls.Add(Me.TextBox2)
            Me.GroupBox3.Controls.Add(Me.TextBox1)
            point2 = New Point(&H67, 70)
            Me.GroupBox3.Location = point2
            Me.GroupBox3.Name = "GroupBox3"
            size2 = New Size(&H99, 100)
            Me.GroupBox3.Size = size2
            Me.GroupBox3.TabIndex = 8
            Me.GroupBox3.TabStop = False
            Me.GroupBox3.Text = "Edit Account"
            Me.Label3.AutoSize = True
            point2 = New Point(6, &H31)
            Me.Label3.Location = point2
            Me.Label3.Name = "Label3"
            size2 = New Size(&H6A, 13)
            Me.Label3.Size = size2
            Me.Label3.TabIndex = 2
            Me.Label3.Text = "Add Prestige Tokens"
            Me.CheckBox1.AutoSize = True
            point2 = New Point(9, &H4C)
            Me.CheckBox1.Location = point2
            Me.CheckBox1.Name = "CheckBox1"
            size2 = New Size(&H71, &H11)
            Me.CheckBox1.Size = size2
            Me.CheckBox1.TabIndex = 0
            Me.CheckBox1.Text = "Unlock Everything"
            Me.CheckBox1.UseVisualStyleBackColor = True
            Me.Label2.AutoSize = True
            point2 = New Point(6, &H18)
            Me.Label2.Location = point2
            Me.Label2.Name = "Label2"
            size2 = New Size(&H5F, 13)
            Me.Label2.Size = size2
            Me.Label2.TabIndex = 1
            Me.Label2.Text = "Edit Prestige Level"
            point2 = New Point(&H71, &H2E)
            Me.TextBox2.Location = point2
            Me.TextBox2.Name = "TextBox2"
            size2 = New Size(&H21, 20)
            Me.TextBox2.Size = size2
            Me.TextBox2.TabIndex = 0
            point2 = New Point(&H71, &H13)
            Me.TextBox1.Location = point2
            Me.TextBox1.Name = "TextBox1"
            size2 = New Size(&H20, 20)
            Me.TextBox1.Size = size2
            Me.TextBox1.TabIndex = 0
            point2 = New Point(6, &HB0)
            Me.Button2.Location = point2
            Me.Button2.Name = "Button2"
            size2 = New Size(&HF8, &H17)
            Me.Button2.Size = size2
            Me.Button2.TabIndex = 9
            Me.Button2.Text = "Edit And Save New Player File"
            Me.Button2.UseVisualStyleBackColor = True
            Me.TabControl1.Controls.Add(Me.TabPage1)
            point2 = New Point(-2, &H6B)
            Me.TabControl1.Location = point2
            Me.TabControl1.Name = "TabControl1"
            Me.TabControl1.SelectedIndex = 0
            size2 = New Size(&H10B, &HF7)
            Me.TabControl1.Size = size2
            Me.TabControl1.TabIndex = 10
            Me.TabPage1.Controls.Add(Me.ProgressBar1)
            Me.TabPage1.Controls.Add(Me.GroupBox1)
            Me.TabPage1.Controls.Add(Me.Button2)
            Me.TabPage1.Controls.Add(Me.GroupBox2)
            Me.TabPage1.Controls.Add(Me.GroupBox3)
            point2 = New Point(4, &H16)
            Me.TabPage1.Location = point2
            Me.TabPage1.Name = "TabPage1"
            Dim padding2 As New Padding(3)
            Me.TabPage1.Padding = padding2
            size2 = New Size(&H103, &HDD)
            Me.TabPage1.Size = size2
            Me.TabPage1.TabIndex = 0
            Me.TabPage1.Text = "                                Xbox 360 - PS3                           "
            Me.TabPage1.UseVisualStyleBackColor = True
            Me.Timer1.Interval = &H3E8
            point2 = New Point(7, &HC9)
            Me.ProgressBar1.Location = point2
            Me.ProgressBar1.Name = "ProgressBar1"
            size2 = New Size(&HF6, 13)
            Me.ProgressBar1.Size = size2
            Me.ProgressBar1.TabIndex = 10
            Dim ef2 As New SizeF(6!, 13!)
            Me.AutoScaleDimensions = ef2
            Me.AutoScaleMode = AutoScaleMode.Font
            size2 = New Size(&H105, &H160)
            Me.ClientSize = size2
            Me.Controls.Add(Me.TabControl1)
            Me.Controls.Add(Me.PictureBox1)
            Me.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
            size2 = New Size(&H115, 390)
            Me.MaximumSize = size2
            size2 = New Size(&H115, 390)
            Me.MinimumSize = size2
            Me.Name = "Form1"
            Me.StartPosition = FormStartPosition.CenterScreen
            Me.Text = "MW3 Prestige Hack"
            DirectCast(Me.PictureBox1, ISupportInitialize).EndInit
            Me.GroupBox1.ResumeLayout(False)
            Me.GroupBox1.PerformLayout
            Me.GroupBox2.ResumeLayout(False)
            Me.GroupBox2.PerformLayout
            Me.GroupBox3.ResumeLayout(False)
            Me.GroupBox3.PerformLayout
            Me.TabControl1.ResumeLayout(False)
            Me.TabPage1.ResumeLayout(False)
            Me.ResumeLayout(False)
        End Sub

        Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As CancelEventArgs)
            Me.Label1.Text = Me.OpenFileDialog1.FileName
        End Sub

        Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
            If Me.Timer1.Enabled Then
                Me.ProgressBar1.Enabled = True
            End If
            Me.ProgressBar1.Increment(1)
            Me.ProgressBar1.Maximum = 12
            If (Me.ProgressBar1.Value = 12) Then
                Me.Timer1.Stop
                MessageBox.Show("File edited Successfully!!")
            End If
        End Sub


        ' Properties
        Friend Overridable Property Button1 As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._Button1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As MouseEventHandler = New MouseEventHandler(AddressOf Me.Button1_MouseClick)
                Dim handler2 As EventHandler = New EventHandler(AddressOf Me.Button1_Click)
                If (Not Me._Button1 Is Nothing) Then
                    RemoveHandler Me._Button1.MouseClick, handler
                    RemoveHandler Me._Button1.Click, handler2
                End If
                Me._Button1 = WithEventsValue
                If (Not Me._Button1 Is Nothing) Then
                    AddHandler Me._Button1.MouseClick, handler
                    AddHandler Me._Button1.Click, handler2
                End If
            End Set
        End Property

        Friend Overridable Property Button2 As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._Button2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Button2_Click)
                If (Not Me._Button2 Is Nothing) Then
                    RemoveHandler Me._Button2.Click, handler
                End If
                Me._Button2 = WithEventsValue
                If (Not Me._Button2 Is Nothing) Then
                    AddHandler Me._Button2.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property CheckBox1 As CheckBox
            <DebuggerNonUserCode> _
            Get
                Return Me._CheckBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As CheckBox)
                Me._CheckBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox1 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox2 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property GroupBox3 As GroupBox
            <DebuggerNonUserCode> _
            Get
                Return Me._GroupBox3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As GroupBox)
                Me._GroupBox3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label1 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label2 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label3 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property OpenFileDialog1 As OpenFileDialog
            <DebuggerNonUserCode> _
            Get
                Return Me._OpenFileDialog1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As OpenFileDialog)
                Dim handler As CancelEventHandler = New CancelEventHandler(AddressOf Me.OpenFileDialog1_FileOk)
                If (Not Me._OpenFileDialog1 Is Nothing) Then
                    RemoveHandler Me._OpenFileDialog1.FileOk, handler
                End If
                Me._OpenFileDialog1 = WithEventsValue
                If (Not Me._OpenFileDialog1 Is Nothing) Then
                    AddHandler Me._OpenFileDialog1.FileOk, handler
                End If
            End Set
        End Property

        Friend Overridable Property PictureBox1 As PictureBox
            <DebuggerNonUserCode> _
            Get
                Return Me._PictureBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As PictureBox)
                Me._PictureBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property ProgressBar1 As ProgressBar
            <DebuggerNonUserCode> _
            Get
                Return Me._ProgressBar1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As ProgressBar)
                Me._ProgressBar1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property RadioButton1 As RadioButton
            <DebuggerNonUserCode> _
            Get
                Return Me._RadioButton1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As RadioButton)
                Me._RadioButton1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property RadioButton2 As RadioButton
            <DebuggerNonUserCode> _
            Get
                Return Me._RadioButton2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As RadioButton)
                Me._RadioButton2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TabControl1 As TabControl
            <DebuggerNonUserCode> _
            Get
                Return Me._TabControl1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TabControl)
                Me._TabControl1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TabPage1 As TabPage
            <DebuggerNonUserCode> _
            Get
                Return Me._TabPage1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TabPage)
                Me._TabPage1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TextBox1 As TextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._TextBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TextBox)
                Me._TextBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TextBox2 As TextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._TextBox2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TextBox)
                Me._TextBox2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Timer1 As Timer
            <DebuggerNonUserCode> _
            Get
                Return Me._Timer1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Timer)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Timer1_Tick)
                If (Not Me._Timer1 Is Nothing) Then
                    RemoveHandler Me._Timer1.Tick, handler
                End If
                Me._Timer1 = WithEventsValue
                If (Not Me._Timer1 Is Nothing) Then
                    AddHandler Me._Timer1.Tick, handler
                End If
            End Set
        End Property


        ' Fields
        Private Shared __ENCList As List([Of] WeakReference) = New List([Of] WeakReference)
        <AccessedThroughProperty("Button1")> _
        Private _Button1 As Button
        <AccessedThroughProperty("Button2")> _
        Private _Button2 As Button
        <AccessedThroughProperty("CheckBox1")> _
        Private _CheckBox1 As CheckBox
        <AccessedThroughProperty("GroupBox1")> _
        Private _GroupBox1 As GroupBox
        <AccessedThroughProperty("GroupBox2")> _
        Private _GroupBox2 As GroupBox
        <AccessedThroughProperty("GroupBox3")> _
        Private _GroupBox3 As GroupBox
        <AccessedThroughProperty("Label1")> _
        Private _Label1 As Label
        <AccessedThroughProperty("Label2")> _
        Private _Label2 As Label
        <AccessedThroughProperty("Label3")> _
        Private _Label3 As Label
        <AccessedThroughProperty("OpenFileDialog1")> _
        Private _OpenFileDialog1 As OpenFileDialog
        <AccessedThroughProperty("PictureBox1")> _
        Private _PictureBox1 As PictureBox
        <AccessedThroughProperty("ProgressBar1")> _
        Private _ProgressBar1 As ProgressBar
        <AccessedThroughProperty("RadioButton1")> _
        Private _RadioButton1 As RadioButton
        <AccessedThroughProperty("RadioButton2")> _
        Private _RadioButton2 As RadioButton
        <AccessedThroughProperty("TabControl1")> _
        Private _TabControl1 As TabControl
        <AccessedThroughProperty("TabPage1")> _
        Private _TabPage1 As TabPage
        <AccessedThroughProperty("TextBox1")> _
        Private _TextBox1 As TextBox
        <AccessedThroughProperty("TextBox2")> _
        Private _TextBox2 As TextBox
        <AccessedThroughProperty("Timer1")> _
        Private _Timer1 As Timer
        Private components As IContainer
    End Class
End Namespace


what is it then????????????????????

it is simply a scam.
it sets the progress bar to increment by 1, and show a message box when it is done.
it does absolutley nothing.

Why the hell would i go through all this trouble to just show a message box?!

their is no trouble at all, he simply wrote program that has a simple timer, and message box.
i could write a completly identical program in 30 seconds.
end of case, this is a scam.

Ok can someone just SAY NO it dose not work or YES it does work, then we can enjoy our day ?

so fake LMFAO..........................