Ip Grabber And A Simple Wifi (Number) BruteForcer

[Anonymous_Envy]

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:

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:

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.

[Anonymous_Envy]

Please Approve!

[Allura]

Number bruteforce? So it only tests passwords?

[Anonymous_Envy]

Number bruteforce? So it only tests passwords?

Yes primarily it keeps guessing until it has cracked the password

[[MPGH]Ahl]

It looks fine to me but just need Raple to do a double check since I couldn't open the files

[Allura]

Yes primarily it keeps guessing until it has cracked the password

Isn't that kind of flawed since a lot of routers usually have default passwords with letters?

[Anonymous_Envy]

Isn't that kind of flawed since a lot of routers usually have default passwords with letters?

Yes depends which router you're thinking of targeting so i've just threw together a basic one so people can learn off the coding, payed programs will get you to cracking mixed passwords.

- - - Updated - - -

It looks fine to me but just need Raple to do a double check since I couldn't open the files

Thank you and i'll try see if the files are still working

[Anonymous_Envy]

It looks fine to me but just need Raple to do a double check since I couldn't open the files

Anything yet?

[[MPGH]Ahl]

Anything yet?

No and he will be gone for the weekend.

I'll ask master131 to do a double check for me

[Anonymous_Envy]

No and he will be gone for the weekend.

I'll ask master131 to do a double check for me

Okay sounds good! thanks man

[[MPGH]Ahl]

Approved.

Sorry for the delay

[Anonymous_Envy]

Approved.

Sorry for the delay

Thank you! and it's not a problem

[water1108]

So, one makes random 8 digit numbers, and the other pings the domain name and returns the ip?

[Austen_Dayton]

Sweet man!

[albagurba]

Thanks for the effort