davidward 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.

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

Wrightyy94 wrote Trying my best and all im getting is hate... This is pathetic.

Wrightyy94 wrote Trying my best and all im getting is hate... This is pathetic.

Wrightyy94 wrote Trying my best and all im getting is hate... This is pathetic.

davidward wrote LOL ! well dude if it dose not work, your going to be called a scam people have tried it and it does not work ? .