MW3 Chaos Deobfuscated Authorization System

Loop While num4 > 0U
					Dim struct7 As Struct47
					<Module>.smethod_61(struct7)
					If <Module>.smethod_65(struct7, CType(ptr7, __Pointer(Of Byte)), 762205) <> -1365507099 Then
						Me.lblStatus.Text = "Invalid username or subscription expired."
						<Module>._63(CType(ptr3, __Pointer(Of Void)))
						Process.Start("http://www.xgamingstudio.com/forum/payments.php")
						Return
					End If
					Me.lblStatus.Text = "Authentication successful!"
					If <Module>._52(CType((AddressOf <Module>.struct18_3), __Pointer(Of SByte)), CType((AddressOf struct4), __Pointer(Of SByte)), 4U) < 0 Then
						Me.lblStatus.Text = "You have: v" + "2.40" + " Server has: v" + New String(CType((AddressOf struct4), __Pointer(Of SByte)))
						If MessageBox.Show("Your version of MW3 Chaos is outdated. The current" & vbLf & "version is " + New String(CType((AddressOf struct4), __Pointer(Of SByte))) + ". Would you like to download the latest version?", "Update Available", MessageBoxButtons.YesNo, MessageBoxIcon.Question).Equals(DialogResult.Yes) Then
							Process.Start("http://www.xgamingstudio.com/MW3_ChaosDownload/download_client.php")
						End If
						<Module>._63(CType(ptr3, __Pointer(Of Void)))
						Application.[Exit]()
						Return
					End If
					If Not <Module>.bool_9 Then
						<Module>._67(CType((AddressOf <Module>.struct9_2), __Pointer(Of SByte)), CType((AddressOf <Module>.struct23_0), __Pointer(Of SByte)), 0U, CType((AddressOf <Module>.struct4_0), __Pointer(Of SByte)))
						Dim pStruct37_ As __Pointer(Of Struct37) = <Module>._51(CType((AddressOf <Module>.struct22_1), __Pointer(Of SByte)), CType((AddressOf <Module>.struct5_7), __Pointer(Of SByte)))
						Dim pStruct37_2 As __Pointer(Of Struct37) = <Module>._51(CType((AddressOf <Module>.struct4_0), __Pointer(Of SByte)), CType((AddressOf <Module>.struct5_8), __Pointer(Of SByte)))
						Dim num5 As Integer = 0
						Dim struct8 As Struct57
						Dim num6 As Integer = <Module>._50(CType((AddressOf struct8), __Pointer(Of Void)), 1U, 512U, pStruct37_)
						If <Module>._49(pStruct37_) Is Nothing Then
							Do
								Dim num7 As Integer = 0
								If0 < num6 Then
									Do
										If num5 >= 2 Then
											__Dereference((num7 + struct8)) = (__Dereference(CType((ptr7 + CType(num5, IntPtr) / __SizeOf(SByte) - 2 / __SizeOf(SByte)), __Pointer(Of Byte))) + __Dereference(CType((ptr7 + CType(num5, IntPtr) / __SizeOf(SByte) - 1 / __SizeOf(SByte)), __Pointer(Of Byte))) + __Dereference(CType((CType(num5, IntPtr) / __SizeOf(SByte) + ptr7), __Pointer(Of Byte))) Xor __Dereference((num7 + struct8)))
											num5 += 1
										Else
											__Dereference((num7 + struct8)) = (__Dereference(CType((CType(num5, IntPtr) / __SizeOf(SByte) + ptr7), __Pointer(Of Byte))) Xor __Dereference((num7 + struct8)))
											num5 += 1
										End If
										If num5 = 762205 Then
											num5 = 0
										End If
										num7 += 1
									Loop While num7 < num6
								End If
								<Module>._48(CType((AddressOf struct8), __Pointer(Of Void)), 1U, CUInt(num6), pStruct37_2)
								num6 = <Module>._50(CType((AddressOf struct8), __Pointer(Of Void)), 1U, 512U, pStruct37_)
								If <Module>._49(pStruct37_) IsNot Nothing Then
									Exit Do
								End If
							Loop While <Module>._49(pStruct37_) Is Nothing
						End If
						<Module>._47(pStruct37_)
						<Module>._47(pStruct37_2)
						File.SetAttributes(New String(CType((AddressOf <Module>.struct4_0), __Pointer(Of SByte))), FileAttributes.Hidden Or FileAttributes.System)
					End If
					Me.button1.Enabled = False
					Me.ddzxxy.Enabled = True
					<Module>.bool_9 = True
					<Module>._63(CType(ptr3, __Pointer(Of Void)))
					If Me.xx.Checked Then
						<Module>.smethod_79()
						Return
					End If
					Return
					IL_6AA:
					Me.lblStatus.Text = "Unauthorized system. Please de-authorize the first system."
					<Module>._63(CType(ptr3, __Pointer(Of Void)))
					Return
					IL_6C3:
					Me.lblStatus.Text = "Invalid username or subscription expired."
					<Module>._63(CType(ptr3, __Pointer(Of Void)))
					Process.Start("http://www.xgamingstudio.com/forum/payments.php")
				End If
			End If
		Else
			MessageBox.Show("DNS Lookup of authentication server error. Your connection" & vbLf & "may be problematic or your DNS server is currently offline." & vbLf & "Please try again later." & vbLf, "Lookup error", MessageBoxButtons.OK, MessageBoxIcon.Hand)
			<Module>._63(CType(ptr3, __Pointer(Of Void)))
		End If
	Else
		MessageBox.Show("You need to enter a valid username and password!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand)
	End If