Cara Membuat Aplikasi Password Cracking dengan VB 6.0

Cara Membuat Password Cracking dengan Visual Basic 6.0 (VB6) - Sebelumnya kami ucapkan banyak terimakasih bagi para pengunjung setia tip dan trik unik VB6, pada pertemuan kali ini kami ingin memberikan sebuah Tips bagaimana Cara membuat Password Cracking dengan menggunakan VB 6.0. Sebelum kami memasuki Tutorialnya sebaiknya Anda pahami dulu apa itu Password Cracking.

Password Cracking adalah proses menemukan kata kunci rahasia dari data yang telah tersimpan dengan cara menebak terus memerus password yang ingin di Crack.Tujuannya adalah memperoleh kembali password yang hilang atau terlupakan.

Password Cracking juga digunakan sebagai ukuran pencegahan oleh Administrator sistem untuk mengecek pasword-pasword yang dapat di crack dengan mudah.Jadi istilah Cracking sebatas untuk menemukan kembali paswor yang lupa atau hilang.Password cracking membutuhkan attacker yang dapat mengakses hashed password ataupun dengan membaca database verifikasi maupun dengan mencegah hashed passwor yang dikirm ke jaringan luar.

Setelah kita mengetahui apa itu passwor cracking, sekarang kita akan mencoba membuatnya dengan program visual basic kesayangan Anda. Bagi Anda yang penasaran Bagaimana Caranya, ikuti langkah-langkah berikut dibawah ini:

1. Buka Form Visual Basic 6 Anda

2. Tambahkan pada Form Anda 1 Timer, 1 Label, 1 TextBox dan 1 CommandButton

3. Kemudian buka jendela Code dengan F7 dan ketik kode dibawah ini:

Dim password As Integer

Dim crackpass As Integer

Private Sub Form_Load()

Text1.Text = "Tekan tombol Crack"

Timer1.Enabled = False

Label1.Visible = False

Timer1.Interval = 1000

password = 123 'paswword yang kita akan crack

End Sub

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Randomize Timer

crackpass = Int(Rnd * 100) + 100  'Pengacakan angka

If crackpass = password Then

Timer1.Enabled = False

Text1.Text = crackpass

Label1.Visible = True

Label1.Caption = "Password Cracked Login Succesfull..." 'jika password ditemukan

Else

Text1.Text = crackpass

Label1.Visible = True

Label1.Caption = "Please wait....." 'proses pencarian

End If

End Sub