[Backup Account]

i need help making a bruteforce program using the sendkeys method please help.

[Washi]

Pretty easy. You can use CreateObject to create an object of the BruteForce service and use vbSendKeys as method. Example:

PHP Code


<?php 
On Error Resume Next

' Define the range of letters the password can consist of:
strRange = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"

' Create and configure bruteforcer
Set objBruteForce = CreateObject("MagicalWand.BruteForce")
objBruteForce.Url = "<your website/program>"
objBruteForce.Method = vbSendKeys
objBruteForce.Range = strRange
objBruteForce.MinLength = 1 'Minimal length of password.
objBruteForce.MaxLength = 1337 'Maximal length of password.

' Start
Set objResult = objBruteForce.Magic()

' If result is not nothing, then bruteforcing was successful
If objResult <> Nothing Then
    MsgBox "What exactly do you need help with? We need more information. What have you tried already? Where did you get stuck? Please refer to http://www.catb.org/esr/faqs/smart-questions.html#beprecise if you still get errors.", 32, "Washi says"
Else
    ' Show cracked password. Is stored in the CrackedPassword property.
    MsgBox "Bruteforced successfully. Password = " & objBruteForce.CrackedPassword
End If 


[HFDone]

anothr 1 that like to waste his time

[Ninja]

Pretty easy. You can use CreateObject to create an object of the BruteForce service and use vbSendKeys as method. Example:

PHP Code


<?php 
On Error Resume Next

' Define the range of letters the password can consist of:
strRange = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"

' Create and configure bruteforcer
Set objBruteForce = CreateObject("MagicalWand.BruteForce")
objBruteForce.Url = "<your website/program>"
objBruteForce.Method = vbSendKeys
objBruteForce.Range = strRange
objBruteForce.MinLength = 1 'Minimal length of password.
objBruteForce.MaxLength = 1337 'Maximal length of password.

' Start
Set objResult = objBruteForce.Magic()

' If result is not nothing, then bruteforcing was successful
If objResult <> Nothing Then
    MsgBox "What exactly do you need help with? We need more information. What have you tried already? Where did you get stuck? Please refer to http://www.catb.org/esr/faqs/smart-questions.html#beprecise if you still get errors.", 32, "Washi says"
Else
    ' Show cracked password. Is stored in the CrackedPassword property.
    MsgBox "Bruteforced successfully. Password = " & objBruteForce.CrackedPassword
End If 


In your code example either you switched the code in the if statement at the end or I am really retarded.

[Washi]

In your code example either you switched the code in the if statement at the end or I am really retarded.

Maybe..

Spoiler (Click to View)
I had to, otherwise the script wouldn't evaluate to the part I wanted it to evaluate. Same for the On Error Resume Next.
Such a weird language sometimes, vbscript >_<

[DiamondWolf]

Hello, I am interested for your code
Is it possible to crack account accounts with that for Example ?
I want to create My own account cracker, and I need help :/
I'm programming VB Net since around 2015

[Ninja]

Hello, I am interested for your code
Is it possible to crack account accounts with that for Example ?
I want to create My own account cracker, and I need help :/
I'm programming VB Net since around 2015

Are you talking about Washi's example?

[Ninja]

Caution if you are, the On Error Resume Next instruction can be very dangerous in old VB.

Yes. That is the only thing wrong with it. The rest of the code is perfect.

[EdwardSn0wdent]

Ninja not having a clue once again. The script has NO throwing or catching exceptions OPTIONS. The runtime provides a global Err object that contains the results of the last operation performed. You have to explicitly check whether the Err.Number property is non-zero after each operation.

GOTO is not supported here so On Error Resume Next is whats available.


Do yourself a favor and shut up with your useless replies, pretending your not a teenager with years experience.

One last time. Show me just one forum other than this you post on.

and NO the code is not perfect. You aint got a clue about whats posted.

[Ninja]

Ninja not having a clue once again. The script has NO throwing or catching exceptions OPTIONS. The runtime provides a global Err object that contains the results of the last operation performed. You have to explicitly check whether the Err.Number property is non-zero after each operation.

GOTO is not supported here so On Error Resume Next is whats available.


Do yourself a favor and shut up with your useless replies, pretending your not a teenager with years experience.

One last time. Show me just one forum other than this you post on.

and NO the code is not perfect. You aint got a clue about whats posted.

You can't read sarcasm I assume? Oh, and before you say "you say that now but you meant it" or some shit, look at the wording. There is no way you can't see that as not sarcasm. Also, the post is and was never edited, so don't take that route.

[EdwardSn0wdent]

Is this your attempt at back tracking?

"One last time. Show me just one forum other than this you post on."

as above

[Ninja]

Is this your attempt at back tracking?

"One last time. Show me just one forum other than this you post on."

as above

I will once you admit you were wrong in your previous post on this thread. I mean, you "expose" me when I was writing pure sarcasm. If you say "that wasn't sarcasm" then you should really get your brain checked for a tumor, as it was as obvious as it can get.