Gaming Gutter Underground Auth

[Check]

[AU3] How to make a Auth
Enjoy.

#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$GamingGutter = GUICreate("Gaming Gutter Auth", 220, 117, 193, 125, -1)
$Label1 = GUICtrlCreateLabel("Username", 16, 16, 52, 17)
$Label2 = GUICtrlCreateLabel("Password", 16, 48, 50, 17)
$Input1 = GUICtrlCreateInput("", 80, 16, 121, 21)
$Input2 = GUICtrlCreateInput("", 80, 48, 121, 21)
$Button1 = GUICtrlCreateButton("Submit", 112, 80, 97, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            If GUICtrlRead($Input1, $Input2) = "" Then
                MsgBox(0, "Error", "Please enter your username and password.")
            Else
                $auth = GGLogin(GUICtrlRead($Input1), GUICtrlRead($Input2))
                If $auth = "Success" Then
                    MsgBox(0, "GOOD!", "Logged in")
                ElseIf $auth = "Failed" Then
                    MsgBox(0, "BAD!", "Log in Failed")
                ElseIf $auth = "Banned" Then
                    MsgBox(0, "Banned", "You've been Banned for not giving Checkers Rep.")
                    Exit
                EndIf
            EndIf

    EndSwitch
WEnd

Func GGLogin($oUsername, $oPassword)
    WrapperG("POST", "http://www.gaminggutter.com/forum/login.php?do=login", "vb_login_username=" & $oUsername & "&cookieuser=1&vb_login_password=" & $oPassword & "&s=&do=login", "http://www.gaminggutter.com")
    $strHTML = WrapperG("GET", "http://www.gaminggutter.com/forum/", "", "http://www.gaminggutter.com/forum/")
    $chk = __StringBetween($strHTML, '<a href="http://www.gaminggutter.com/forum/f5/">', '</a>')
    If $chk = "<strong>The Underground</strong>" Then
        Return "Success"
    ElseIf StringInStr($strHTML, "You have been banned") Then
        Return "Banned"
    Else
        Return "Failed"
    EndIf
EndFunc   
Func WrapperG($oMethod, $oURL, $oData, $oReferer)
    $oHTTP.Open($oMethod, $oURL, False)
    $oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.14")
    $oHTTP.SetRequestHeader("Referer", $oReferer)
    If $oMethod = "POST" Then $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    $oHTTP.Send($oData)
    Return $oHTTP.ResponseText
EndFunc  

Func __StringBetween($s, $from, $to)
    $x = StringInStr($s, $from) + StringLen($from)
    $y = StringInStr(StringTrimLeft($s, $x), $to)
    Return StringMid($s, $x, $y)
EndFunc

[eckkotc203]

thanks for this. you want me to make a vb code for this?

[Check]

Originally Posted by eckkotc203

thanks for this. you want me to make a vb code for this?

Sure, be sure to release it and show how you got it or made it though.
I'll be sure to +rep.

[eckkotc203]

anyone wanna the auth for me? i had too many failed attempts and its not letting me in right now.
ill post source if everyone thinks its good enough.

if mods could - make test accounts to use it on if you dont want to use your real account.

ill edit this post with the link and/or attachment in a minute

http://hostfile.org/testGGauth.zip
link it attachment doesnt work

EDIT - Cant add attachment. o.O

[Violent_J]

DOn't worry, if they were suspicious then they could easily olldbg and wireshark the fuck out of it xD

I will test it out for you

Post your authorization project files too?

[eckkotc203]

ill post the Auth project after i get an ok for it. i need to tweek it up a bit.
is it for only UG members? or all?
and right now the project that its in has like 20 other forms. i keep all my work in one place.
i just save then remove forms/modules that arent needed.

[Check]

Originally Posted by eckkotc203

ill post the Auth project after i get an ok for it. i need to tweek it up a bit.
is it for only UG members? or all?
and right now the project that its in has like 20 other forms. i keep all my work in one place.
i just save then remove forms/modules that arent needed.

Tested it out, it works.
Now try releasing it with a guide if you want.

[eckkotc203]

is your code there just for UG members? or for all members?
because the chk variable checks to see if the member is UG right?

[Check]

Originally Posted by eckkotc203

is your code there just for UG members? or for all members?
because the chk variable checks to see if the member is UG right?

Yes the chk variable checks to see if the member is UG.

[eckkotc203]

heres a more revised and understandable version
explains whats its authing.

http://hostfile.org/testGGauth1.1.zip