Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement