HTDark | Underground Hacking Forum and Cybersecurity Community
  • Earn real money by being active: Hello Guest, earn real money by simply being active on the forum — post quality content, get reactions, and help the community. Once you reach the minimum credit amount, you’ll be able to withdraw your balance directly. Learn how it works.

AutoIT Text field bruter

Status
Not open for further replies.
S

Skydno

NOT IN SPAIN
User
Joined
Jan 14, 2015
Messages
33
Reputation
0
Reaction score
319
Points
53
Credits
0
‎10 Years of Service‎
66%
[HIDE-THANKS]

Code: 
>Sleep(3000) ; Delay. U need to activate win 4 brute.

StartBrute()

Func StartBrute()
Local $sText = WinGetTitle("[ACTIVE]")
Global $1 = 0

For $1 = 0 to 9999
 ControlSetText ($sText, "", "[CLASS:Edit; INSTANCE:1]", sAddZero($1), 0) ; Maybe u need to change it
 ControlClick($sText, '', '[CLASS:Button; ID:4]', "left", 1) ; N' this 2
 ConsoleWrite(sAddZero($1) & @CRLF)
 If ProcessExists("Current.exe") == 0 then ; Here valid checker. Rewrite it if need...
  MsgBox (64, "Complite", $1)
  ExitLoop
 EndIf
Next
Endfunc

Func sAddZero($iNum)
Local $sOut

Switch $iNum
 Case $iNum <= 9
  $sOut = "000" & $iNum
 Case $iNum <= 99
  $sOut = "00" & $iNum
 Case $iNum <= 999
  $sOut = "0" & $iNum
 Case $iNum > 999
  $sOut = $iNum
EndSwitch

Return $sOut
EndFunc
[/HIDE-THANKS]

 
Status
Not open for further replies.
Back
Top