A Passwords Cracking Program
21/09/2010 16:31
This Visual Basic program is a passwords cracker where it can generate possible passwords and compare each of them with the actual password; and if the generated password found to be equal to the actual password, login will be successful. In this program, a timer is inserted into the form and it is used to do a repetitive job of generating the passwords. The passwords generating procedure is put under the timer1_Timer () event so that the procedure is repeated after every interval. The interval of the timer can be set in its properties window where a value of 1 is 1 millisecond, so a value of 1000 is 1 second; the smaller the value, the shorter the interval. However, do not set the timer to zero because if you do that, the timer will not start. The Timer1.Enabled property is set to false so that the program will only start generating the passwords after you click on the command button. Rnd is a VB function that generates a random number between 0 and 1. Multiplying Rnd by 100 will obtain a number between 0 and 100. Int is a VB function that returns an integer by ignoring the decimal part of that number. |
Therefore, Int(Rnd*100) will produce a number between 0 and 99, and the value of Int(Rnd*100)+100 will produce a number between 100 and 199. Randomize timer is an essential statement which ensures that the generated numbers are truly random. Finally, the program uses If…Then…Else to check whether the generated password is equal the actual password or not; and if they are equal, the passwords generating process will be terminated by setting the Timer1.Enabled property to false.
The Program
Dim password As Integer
Dim crackpass As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
password = 123
End Sub
Private Sub Timer1_Timer()
Randomize Timer
crackpass = Int(Rnd * 100) + 100
If crackpass = password Then
Timer1.Enabled = False
Text1.Text = crackpass
Label1.Visible = True
Label1.Caption = "Password Cracked!Login Successful!"
Else
Text1.Text = crackpass
Label1.Visible = True
Label1.Caption = "Please wait..."
End If
End Sub
———
Back