PASSWORD CRACKER (VB.6.0)
1. buat Form seperti berikut:

Scripting :

· Double click di command2(OK); lalu masukan skrip berikut :

_________________________________

Private Sub Command2_Click()

Text2.Visible = False

Label2.Visible = False

Command2.Visible = False

CmdGoto.Visible = False

password = Text2.Text

End Sub____________________________

· Double klik di CmdGoto/(Login); lalu masukan script berikut :

______________________________________________

Private Sub CmdGoto_Click()

Passwdcrack.Hide

Dbase.Show

CmdGoto.Visible = False

End Sub________________________________________

· Double klik di command4/(Terminate); lalu masukan script berikut:

______________________________________________

Private Sub Command4_Click()

Timer1.Enabled = False

Timer2.Enabled = False

Timer3.Enabled = False

Text1.Text = ""

Label1.Caption = "Please try again"

End Sub________________________________________

· Double klik di command1/(Generate);lalu masukan script berikut ini :

_______________________________________________

'Passwords Cracker

Private Sub Command1_Click()

Timer1.Enabled = True

Timer2.Enabled = True

Timer3.Enabled = True

End Sub_________________________________________

· Double klik di command 3/(Reset); lalu masukan script berikut ini :

_______________________________________________

Private Sub Command3_Click()

Label1.Visible = False

Text2.Visible = True

Label2.Visible = True

Command2.Visible = True

CmdGoto.Visible = False

Text2.Text = ""

Text1.Text = ""

End Sub________________________________________

· Double klik di command5/(Exit); lalu masukan script berikut ini :

______________________________________________

Private Sub Command5_Click()

End

End Sub________________________________________

· Double klik di Timer 1; lalu masukan script berikut :

______________________________________________

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_______________________________________

· Double klik di Timer 2; lalu masukan script berikkut:

_____________________________________________

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_____________________________________

· Double klik di Timer 3; lalu masukan script berikut:

___________________________________________

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___________________________________

· Double klik di area form; lalu masukan script berikut ;

_________________________________________

Private Sub Form_Load()

CmdGoto.Visible = False

End Sub___________________________________

· Double klik di area form; lalu pada OPTION pilih “General”; dan masukan script berikut; (ingat harus script ini harus di letakkan di paling awal ketika kita menulis script):

_________________________________________

Dim password As String * 3

Dim crackpass As String

Dim p1, p2, p3 As String

Dim code1, code2, code3 As Integer

Dim x As Integer_____________________________

Lalu masukan script ini: (script ini di letakkan setelah script diatas);

_____________________________________________

Sub checkstatus()

Text1.Text = p1 & p2 & p3

If Text1.Text = password Then

Label1.Visible = True

Label1.Caption = "Password Cracked! Login Successful!"

CmdGoto.Visible = True

Else

Text1.Text = Chr$(code1) + Chr$(code2) + Chr$(code3)

Label1.Visible = True

Label1.Caption = "Generating passwords, please wait...."

CmdGoto.Visible = False

End If

End Sub________________________________________

By : ¾ASSX