[VB6] GG Auth

**|G3|** · 08-10-2008, 05:54 AM

Code:

Private Sub loginBut_Click()
If txtuser.Text = vbNullString Or txtpass.Text = vbNullString Then
    MsgBox "You left the password and/or username field blank", vbCritical
    Exit Sub
End If

loginBut.Enabled = False
txtuser.Enabled = False
txtpass.Enabled = False

strHTML = wrapper.PostWrapper("http://www.gaminggutter.com/forum/login.php", "vb_login_md5password=&s=&do=login&vb_login_username=" & txtuser.Text & "&cookieuser=1&vb_login_password=" & txtpass.Text, "http://www.gaminggutter.com")
    If InStrB(1, strHTML, "<p>&nbsp;</p> <p><strong>Thank you for logging in, ") Then
        strHTML = wrapper.GetWrapper("http://www.gaminggutter.com/forum/f163/ug-auth-thread-70044.html", "http://www.gaminggutter.com")
        If InStrB(1, strHTML, ">ug if you can see this liklikkik</div>   <div>") Then
            Me.Hide
            Form2.Show
        Else
            MsgBox ("Login failed.")
            loginBut.Enabled = True
            txtuser.Enabled = True
            txtpass.Enabled = True
        End If
    Else
        MsgBox ("Login failed.")
        loginBut.Enabled = True
        txtuser.Enabled = True
        txtpass.Enabled = True
    End If
End Sub

This is easily cracked so I suggest making it harder to crack.
This auth is for UG.

Josh · 08-12-2008, 11:01 PM

You know that the "Thank you for logging in" message shows up even when the person is banned, right?

So a banned member could still use the program.

Edit: Nevermind, it would work. Didn't notice the part that checks the rank.