CP

Private Sub bw_DoWork(sender As Object, e As DoWorkEventArgs)
        errorcode = 0
        If Globals.CheckForInternetConnection() = False Then
            errorcode = -1
            Return
        End If
        Dim check1 As String
        Dim check2 As String
        'check1 = Globals.getHTMLPOST(XORDecryption("312871", "59464C4742091E1D5A42481D455D575A505D48535B545E465F464B195E41561D5458505754406744425F1E5E5750585D525A5D545A1D415A48"), "email=" & TextBox1.Text)
        check1 = Globals.getHTMLPOST("http://player-haters.com/loader/logincheck.php", "email=" & TextBox1.Text)
        Select Case check1
            Case 0
                errorcode = 1
                TextBox2.Text = ""
                Return
            Case 1
            Case Else
                errorcode = 2
                Return
        End Select
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            errorcode = 3
        Else
            'check2 = Globals.getHTMLPOST(XORDecryption("F9DF2D", "51303242377C166B24473D684D2B295F2528402525512B335730351C2B345E6B2A5D25225C361941372A162C315B2025512125596A365134"), "email=" & TextBox1.Text)
            check2 = Globals.getHTMLPOST("http://player-haters.com/loader/hwidcheck.php", "email=" & TextBox1.Text)
            If check2 = "0" Then
                'Globals.getHTMLPOST(XORDecryption("2E3429", "2D4740424A086A1C5647401C315C5B5F585C3C52575156472B47471C5640221C585D585620416B414A5E6A5B435B5D512D56575917422D43"), "email=" & TextBox1.Text & "&hwid=" & Globals.hwid)
                Globals.getHTMLPOST("http://player-haters.com/loader/hwidcheck.php", "email=" & TextBox1.Text & "&hwid=" & Globals.hwid)
                errorcode = 4
                Return
            ElseIf check2 = Globals.hwid Then
            Else
                errorcode = 5
                Return
            End If
            Dim hash As String
            'hash = Md5FromString(Globals.getHTMLPOST(XORDecryption("4CB2AA", "2B364631320E6C6D5034381A372D5D2C205A3A2351222E412D36416F2E46246D5E2E205026306D3232586C2A53222A582A31466F315C337D5F24355C2C260F2624401C31532D35"), "email=" & TextBox1.Text & "&hwid=" & check2) & TextBox2.Text)
            hash = Md5FromString(Globals.getHTMLPOST("http://player-haters.com/loader/hacklist.php?method=get_salt", "email=" & TextBox1.Text & "&hwid=" & check2) & TextBox2.Text)
            'loaderid = Globals.getHTMLPOST(XORDecryption("B68165", "5E4C45464678191753434C6C42575E5B542C4F5952555A37584C42185A3051175D595426534A6E45462E19545E57512744674353526C465041"), "email=" & TextBox1.Text & "&pass=" & hash)
            loaderid = Globals.getHTMLPOST("http://player-haters.com/loader/loader_reg.php", "email=" & TextBox1.Text & "&pass=" & hash)
            'ids = Globals.getHTMLPOST(XORDecryption("EFB77A", "2E364347327F696D5542386B322D585A202B3F2354542E30283644192E37216D5B582021233068443229692E5850282B252A52542A6B362A47"), "email=" & TextBox1.Text & "&pass=" & hash & "&id=" & loaderid)
            ids = Globals.getHTMLPOST("http://player-haters.com/loader/logincheck.php", "email=" & TextBox1.Text & "&pass=" & hash & "&id=" & loaderid)
            Select Case loaderid
                Case 0
                    errorcode = 6
                    Return
            End Select
            Select Case ids
                Case -1
                    errorcode = 7
                    Return
                Case 0
                    errorcode = 8
                    Return
                Case -2
                    errorcode = 9
                    Return
                Case Else
                    Threading.Thread.Sleep(100)
            End Select
        End If
    End Sub