|
|
One
of the major concerns of Internet users is security. When you key in important
information such as password and credit card number, you want to make sure that
nobody can have access to your codes. However, there are many loopholes in the
Internet! Hackers will make use of those loopholes to crack into secured
websites and steal vital information, resulting in losses in terms of money or
even dignity. The purpose of teaching you how to program a password cracker is
not to teach you to be a hacker, but to understand the basic concepts of
passwords cracking so that we can take precautions whenever we log into a
secured website. For me, programming a password cracker is purely for academic
interest, it would be unethical to actually use it. In actual fact, this is only
a very simple model of password cracking, the actual hacking program is much
more complex! Here is the program:
Text1.Text = p1 & p2 & p3
If Text1.Text = password Then
Label1.Visible = True
Label1.Caption = "Password Cracked! Login Successful!"
Else
Text1.Text = Chr$(code1) + Chr$(code2) + Chr$(code3)
Label1.Visible = True
Label1.Caption = "Generating passwords, please wait...."
End If
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
End Sub
Private Sub Command2_Click()
Text2.Visible = False
Label2.Visible = False
Command2.Visible = False
password = Text2.Text
End Sub
Private Sub Command3_Click()
Label1.Visible = False
Text2.Visible = True
Label2.Visible = True
Command2.Visible = True
Text2.Text = ""
Text1.Text = ""
End Sub
Private Sub Command4_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Text1.Text = ""
Label1.Caption = "Please try again"
End Sub
Private Sub Timer1_Timer()
Randomize Timer
code1 = Int(Rnd * 123)
If Chr$(code1) = Left$(password, 1) Then
p1 = Chr$(code1)
Timer1.Enabled = False
Else
checkstatus
End If
checkstatus
End Sub
Private Sub Timer2_Timer()
Randomize Timer
code2 = Int(Rnd * 123)
If Chr$(code2) = Mid$(password, 2, 1) Then
p2 = Chr$(code2)
Timer2.Enabled = False
Else
checkstatus
End If
checkstatus
End Sub
Private Sub Timer3_Timer()
Randomize Timer
code3 = Int(Rnd * 123)
If Chr$(code3) = Right$(password, 1) Then
p3 = Chr$(code3)
Timer3.Enabled = False
Else
checkstatus
End If
checkstatus
End Sub
|
|
 |
|
|