PIN Password Tester (Bunifu UI) VB.NET

PIN Password Tester
(Bunifu UI)
Public Class Form1
    Dim password As Integer
    Dim crackpass1 As Integer
    Dim crackpass2 As Integer
    Dim crackpass3 As Integer
    Dim crackpass4 As Integer
    Dim crackpass5 As Integer
    Dim crackpass6 As Integer
    Dim crackpass7 As Integer
    Dim crackpass8 As Integer
    Dim crackpass9 As Integer
    Dim crackpass10 As Integer

    Dim checker As New Random
    Private Sub BunifuButton1_Click(sender As Object, e As EventArgs) Handles BunifuButton1.Click
        Try
            If Timer1.Interval = 0 Then
                MsgBox("Speed must not be ZERO")
            Else
                Timer1.Interval = Me.BunifuTrackbar1.Value
            End If
            password = CInt(Me.BunifuTextBox1.Text)
            Timer1.Enabled = True
            Me.BunifuTextBox2.FillColor = Color.White
            Me.BunifuTextBox3.FillColor = Color.White
            Me.BunifuTextBox4.FillColor = Color.White
            Me.BunifuTextBox5.FillColor = Color.White
            Me.BunifuTextBox6.FillColor = Color.White
            Me.BunifuTextBox7.FillColor = Color.White
            Me.BunifuTextBox8.FillColor = Color.White
            Me.BunifuTextBox9.FillColor = Color.White
            Me.BunifuTextBox10.FillColor = Color.White
            Me.BunifuTextBox11.FillColor = Color.White

        Catch ex As Exception
            MsgBox("Password Safe!")
        End Try
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            '--------------------------------------------SLOT1----------------------------------
            crackpass1 = checker.Next(0, password + 1)
            If crackpass1 = password Then
                Timer1.Enabled = False
                Me.BunifuTextBox2.Text = crackpass1
                Me.BunifuTextBox2.FillColor = Color.DodgerBlue
                MsgBox("Password Cracked!Login Successful! TEXT 1")
            Else
                Me.BunifuTextBox2.Text = crackpass1
            End If
            '--------------------------------------------SLOT2----------------------------------
            crackpass2 = checker.Next(0, password + 1)
            If crackpass2 = password Then
                Timer1.Enabled = False
                Me.BunifuTextBox3.Text = crackpass2
                Me.BunifuTextBox3.FillColor = Color.DodgerBlue
                MsgBox("Password Cracked!Login Successful! TEXT 2")
            Else
                Me.BunifuTextBox3.Text = crackpass2
            End If
            '--------------------------------------------SLOT3----------------------------------
            crackpass3 = checker.Next(0, password + 1)
            If crackpass3 = password Then
                Timer1.Enabled = False
                Me.BunifuTextBox4.Text = crackpass3
                Me.BunifuTextBox4.FillColor = Color.DodgerBlue
                MsgBox("Password Cracked!Login Successful! TEXT 3")
            Else
                Me.BunifuTextBox4.Text = crackpass3
            End If
            '--------------------------------------------SLOT4----------------------------------
            crackpass4 = checker.Next(0, password + 1)
            If crackpass4 = password Then
                Timer1.Enabled = False
                Me.BunifuTextBox5.Text = crackpass4
                Me.BunifuTextBox5.FillColor = Color.DodgerBlue
                MsgBox("Password Cracked!Login Successful! TEXT 4")
            Else
                Me.BunifuTextBox5.Text = crackpass4
            End If
            '--------------------------------------------SLOT5----------------------------------
            crackpass5 = checker.Next(0, password + 1)
            If crackpass5 = password Then
                Timer1.Enabled = False
                Me.BunifuTextBox6.Text = crackpass5
                Me.BunifuTextBox6.FillColor = Color.DodgerBlue
                MsgBox("Password Cracked!Login Successful! TEXT 5")
            Else
                Me.BunifuTextBox6.Text = crackpass5
            End If
            '--------------------------------------------SLOT6----------------------------------
            crackpass6 = checker.Next(0, password + 1)
            If crackpass6 = password Then
                Timer1.Enabled = False
                Me.BunifuTextBox7.Text = crackpass6
                Me.BunifuTextBox7.FillColor = Color.DodgerBlue
                MsgBox("Password Cracked!Login Successful! TEXT 6")
            Else
                Me.BunifuTextBox7.Text = crackpass6
            End If
            '--------------------------------------------SLOT7----------------------------------
            crackpass7 = checker.Next(0, password + 1)
            If crackpass7 = password Then
                Timer1.Enabled = False
                Me.BunifuTextBox8.Text = crackpass7
                Me.BunifuTextBox8.FillColor = Color.DodgerBlue
                MsgBox("Password Cracked!Login Successful! TEXT 7")
            Else
                Me.BunifuTextBox8.Text = crackpass7
            End If
            '--------------------------------------------SLOT8----------------------------------
            crackpass8 = checker.Next(0, password + 1)
            If crackpass8 = password Then
                Timer1.Enabled = False
                Me.BunifuTextBox9.Text = crackpass8
                Me.BunifuTextBox9.FillColor = Color.DodgerBlue
                MsgBox("Password Cracked!Login Successful! TEXT 8")
            Else
                Me.BunifuTextBox9.Text = crackpass8
            End If
            '--------------------------------------------SLOT9----------------------------------
            crackpass9 = checker.Next(0, password + 1)
            If crackpass9 = password Then
                Timer1.Enabled = False
                Me.BunifuTextBox10.Text = crackpass9
                Me.BunifuTextBox10.FillColor = Color.DodgerBlue
                MsgBox("Password Cracked!Login Successful! TEXT 9")
            Else
                Me.BunifuTextBox10.Text = crackpass9
            End If
            '--------------------------------------------SLOT10----------------------------------
            crackpass10 = checker.Next(0, password + 1)
            If crackpass10 = password Then
                Timer1.Enabled = False
                Me.BunifuTextBox11.Text = crackpass10
                Me.BunifuTextBox11.FillColor = Color.DodgerBlue
                MsgBox("Password Cracked!Login Successful! TEXT 10")
            Else
                Me.BunifuTextBox11.Text = crackpass10
            End If
            '-------------------------------------------------------------------------------------


        Catch ex As Exception

        End Try



    End Sub

    Private Sub BunifuSwitch1_Click(sender As Object, e As EventArgs) Handles BunifuSwitch1.Click
        Try
            If Me.BunifuSwitch1.Value = True Then
                Me.BunifuTextBox1.UseSystemPasswordChar = False
                Me.BunifuTextBox1.PasswordChar = ""
            Else
                Me.BunifuTextBox1.UseSystemPasswordChar = True
                Me.BunifuTextBox1.PasswordChar = "●"
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.BunifuTrackbar1.Value = 100
        Me.BunifuTrackbar1.MaximumValue = 100
        Me.BunifuTrackbar1.MinimumValue = 1
    End Sub

    Private Sub BunifuTrackbar1_ValueChanged(sender As Object, e As EventArgs) Handles BunifuTrackbar1.ValueChanged
        Label1.Text = "Speed " & Me.BunifuTrackbar1.Value
    End Sub
End Class


Comments

Post a Comment

Popular posts from this blog

QR CODE SCANNER (Emgu CV ) VB.NET

Image
QR CODE SCANNER VB.NET Emgu CV Download :  http://www.emgu.com/wiki/index.php/Download_And_Installation Imports Emgu.CV Imports Emgu.CV.UI Imports Emgu.CV.Structure Imports MessagingToolkit.QRCode.Codec Public Class Form1     Dim Reader As QRCodeDecoder     Dim Cap As New Capture     Dim hash As String     Dim access As Boolean = False     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick         Reader = New QRCodeDecoder         PictureBox1.Image = Cap.QueryFrame.ToBitmap()         Try             If access = True Then                 hash = Reader.decode(New Data.QRCodeBitmapImage(PictureBox1.Image))                 access = False                 If ...
Read more

Simple Modern Login (Guna UI, Mysql) VB.NET

Image
Simple Modern Login (Guna UI, Mysql) VB.NET FORM 1 Imports MySql.Data.MySqlClient Public Class Form1     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         connection()     End Sub     Private Sub GunaButton1_Click(sender As Object, e As EventArgs) Handles GunaButton1.Click         SignIn()     End Sub     Private Sub GunaButton3_Click(sender As Object, e As EventArgs) Handles GunaButton3.Click     End Sub     Private Sub GunaGoogleSwitch1_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch1.CheckedChanged         Try             If GunaGoogleSwitch1.Checked = True Then                 GunaTextBox2.UseSystemPasswordChar = False                 ...
Read more

Simple Lottery Game (Guna UI) VB.NET

Image
Simple Lottery Game (Guna UI) VB.NET Guna UI Download :  https://gunaframework.com/ FORM 1 Public Class Form2     Dim R1, R2, R3 As New Random     Dim PHP As Double = R1.Next(1, 999)     Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load         Dim formattedValue As String = String.Format("{0:C}", PHP)         Label5.Text = formattedValue     End Sub     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick         'Random Generator         Label1.Text = R1.Next(1, 3)     End Sub     Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick         'Random Generator         Label2.Text = R2.Next(1, 5)     End Sub     Private Sub Timer3_Tick(sende...
Read more