tugas membuat program dgn login

tugas

Mata Kuliah Keamanan Informasi Sistem Lanjut

Oleh

Kristian Ismail

23208088

case:  membuat program dengan fasilitas login, tapi bisa diacak-acak

 

prgram ini dibuat dengan bahasa basic (visual basic), karena bahasa pemograman tersebut yang saya kuasai. pertama tama saya membuat tampilan dari form login dimana tamoilannya deperti gambar berikut

form-login

 

syntac dari form diatas adalah

 

Private Sub Command1_Click()

 

Form2.Data1.Recordset.MoveFirst
Tunda (200)
Form2.Data1.Recordset.MoveNext
‘Coba
‘End Sub
‘Private Sub Coba()
‘If Text1.Text = Form4.Text1.Text Then
Form3.Show
Form2.Show
‘Else
‘Form4.Text1 = Form3.Adodc1.Recordset!Password
‘lagi
‘End If
End Sub
Private Sub lagi()
Form4.Text1 = Form3.Adodc1.Recordset.MoveNext
Coba
End Sub
Private Sub Command2_Click()  —> jika tombol 1 diclik (bagi yg belom punya user id)
Form2.Show                                         maka akan muncul form untuk mendaftar
Form1.Hide
End Sub

 

untuk signin akan masuk pada form berikut :

form-signin

syntac untul form di atas adalah sebagai berikut :

Private Sub Command1_Click()

 

If Text2.Text <> Text3.Text Then                                  ——> jika password tidak sama  

                                                                                                      akan keluar peringatan         
a = MsgBox(“Password tidak sama”, vbOKOnly, “PERINGATAN”)
Else

 

Form2.Data1.Recordset.AddNew
Form3.Adodc1.Recordset.AddNew
Form3.Adodc1.Recordset!nama = Form2.Text1
Form3.Adodc1.Recordset!Password = Form2.Text2
Form3.Adodc1.Recordset!ulang_password = Form2.Text3
Form3.Adodc1.Recordset!email = Form2.Text4
Form3.Adodc1.Recordset.Update
Form2.Data1.Recordset.Update
Form2.Data1.UpdateRecord
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
End If
End Sub

 

 setelah data yang mendaftar ditik maka akan masuk pada form data berikut:

form-data-password