Brute Force WinRAR

For $i = 0 To 9999
    If $i < 1000 Then
        $sPassword = StringFormat("%04d", $i)
    Else
        $sPassword = $i
    EndIf
    ConsoleWrite('--> Trying password: ' & $sPassword & @CRLF)
    If _Extract('Tutorial-AutoIt-PHP-MySQL-v1.0.rar', $sPassword) Then
        ConsoleWrite('+ -----> Extracted successfully with password: ' & $sPassword & @CRLF)
        MsgBox(0, "Endless Love", "Extracted successfully with password: " & $sPassword)
        ExitLoop
    Else
        ConsoleWrite('! -----> Wrong password!' & @CRLF)
    EndIf
Next
Exit
Func _Extract($sFileToExtract, $sPassword = '')
    Local $sCMD = '"C:\Program Files\WinRAR\Rar.exe" x'
    If $sPassword <> '' Then $sCMD &= ' -p' & $sPassword
    $sCMD &= ' "' & $sFileToExtract & '"'
    Return RunWait($sCMD, '', @SW_HIDE) == 0
EndFunc