Artikel kali ini Admin akan berbagi sebuah kode yang berfungsi untuk membuat password secara otomatis dengan huruf, angka, simbol secara acak sehingga menghasilkan sebuah password.
Kode ini dibuat dengan menginplemetasikan ke dalam sebuah Form Visual Basic, hal ini cocok buat Anda yang males menyusun atau membuat password dengan memikirkan susunan kata tersebut.
Password yang kita buat di form vb ini sangat mudah, Anda cukup menentukan panjang dari password kemudian men-generatnya menjadi pasword yang dapat Anda gunakan dan dillengkapi dengan tombol copy.
Untuk gambar hasilnya perhatikan gambar dibawah ini :
 |
| Passwoerd Generator |
Berikut adalah langkah-langkah cara membuat pasword generator dengan menggunakan vb6
1. Buka Form VB6 Anda
2. Pada Form tambahkan 3 Label, 1 TextBox dan 2 CommandButton
3. Desainlah form seperti gambar dibawah ini :
 |
| Desain Form |
4. Setelah mendesain Form ketikan kode dibawah ini :
Private Sub command1_Click()
Dim passwordLength As Integer
Dim password As String
' Validasi panjang password
If IsNumeric(Text1.Text) Then
passwordLength = CInt(Text1.Text)
If passwordLength < 1 Or passwordLength > 128 Then
MsgBox "Panjang password harus antara 1 hingga 128.", vbExclamation
Exit Sub
End If
Else
MsgBox "Masukkan angka valid untuk panjang password.", vbExclamation, "Info"
Text1.SetFocus
Exit Sub
End If
' Generate password
password = GeneratePassword(passwordLength)
Label3.Caption = password
End Sub
Private Sub command2_Click()
' Salin password ke clipboard
If Len(Label3.Caption) > 0 Then
Clipboard.Clear
Clipboard.SetText Label3.Caption
MsgBox "Password disalin ke clipboard!", vbInformation, "Info"
Else
MsgBox "Tidak ada password untuk disalin.", vbExclamation, "Info"
Text1.SetFocus
End If
End Sub
Private Function GeneratePassword(length As Integer) As String
Dim chars As String
Dim i As Integer
Dim result As String
Dim randomIndex As Integer
' Karakter yang digunakan dalam password
chars = "abcdefghijklmnopqrstuvwxyz" & _
"ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
"0123456789" & _
"!@#$%^&*()_-+=<>?/"
' Inisialisasi hasil
result = ""
' Generate password
For i = 1 To length
randomIndex = Int((Len(chars) * Rnd) + 1)
result = result & Mid(chars, randomIndex, 1)
Next i
GeneratePassword = result
End Function
Private Sub Form_Load()
' Inisialisasi Randomize untuk menghasilkan nilai random
Randomize
Text1.Text = ""
Label3.Caption = ""
End Sub
Kemudian jalankan Project Anda, jika tidak ada error silahkan uji coba dengan memasukan angka pada textbox kosong (panjang Passwor).
Demikian artikel kali ini tentang Membuat Password Generator Dengan Kode visual Basic 6.0 (VB6.0), semoga artikel ini bermanfaat buat kita semua.Amin.
Selamat mencoba semoga berhasil.
No comments:
Post a Comment