2 Attachment(s)
Ip Grabber And A Simple Wifi (Number) BruteForcer
These two simple tools were made using visual basic and are easy to use!
I've made them from request and the code for them both can be found below.
Virus Scans:
https://virusscan.jotti.org/en-GB/fi...job/j7qoxgjkiu
https://www.virustotal.com/en/file/f...is/1497278524/
https://virusscan.jotti.org/en-GB/fi...job/o0e3jp4tje
https://www.virustotal.com/en/file/7...is/1497278952/
Screenshots:
http : // imgur . com / a / gImod
http : // imgur . com / a / JQoH6
Code:
Forcer:
Code:
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System . EventArgs) Handles Button1 . Click
Timer1 . Enabled = (True)
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System . EventArgs) Handles Timer1 . Tick
Timer2 . Enabled = True
Timer1 . Enabled = False
End Sub
Private Sub Timer2_Tick(sender As System.Object, e As System . EventArgs) Handles Timer2 . Tick
SendKeys . Send(Int(Val(TextBox1 . Text) * Rnd()))
SendKeys . Send("{enter}")
End Sub
Private Sub Button2_Click(sender As System.Object, e As System . EventArgs) Handles Button2 . Click
Timer2 . Interval = ("11000")
End Sub
Private Sub Button3_Click(sender As System.Object, e As System . EventArgs) Handles Button3 . Click
Timer2 . Interval = ("5000")
End Sub
Private Sub Fast_Click(sender As System.Object, e As System . EventArgs) Handles Fast.Click
Timer2 . Interval = ("100")
End Sub
Private Sub Button5_Click(sender As System.Object, e As System . EventArgs) Handles Button5 . Click
Timer2 . Enabled = False
End Sub
End Class
Grabber:
Code:
Imports System . Net
Public Class SavageGrabber
Private Sub Button1_Click(ByVal sender As System . Object, ByVal e As System . EventArgs) Handles Button1 . Click
Try
If TextBox1 . Tex*****ntains("http : //") Then
Dim iphe As IPHostEntry = Dns . GetHostEntry(TextBox1 . Text.Replace(" http : //", String.Empty))
TextBox2 . Text = iphe.AddressList(0) . ToString()
Else
Dim iphe As IPHostEntry = Dns.GetHostEntry(TextBox1.Text)
TextBox2 . Text = iphe.AddressList(0) . ToString()
End If
Catch ex As Exception
MsgBox("Sorry, The Ip Entered Could Not Be Grabbed!")
End Try
ProgressBar1 . Value = 0.5
Timer1 . Start()
Button1 .Enabled = False
End Sub
Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs)
End Sub
Private Sub Timer1_Tick(ByVal sender As System . Object, ByVal e As System . EventArgs) Handles Timer1 . Tick
ProgressBar1 . Value += 1
If ProgressBar1 . Value = 100 Then
Timer1 . Stop()
Button1 . Enabled = True
End If
End Sub
End Class
If you have any questions let me know i'd be happy to answer, please remember these are only simple tools.
