Terima kasih semuanya. Setelah dicoba2 dan beberapa kali debug akhirnya berhasil juga
On 2/11/10, Aksan Kurdin <[email protected]> wrote: > Justru kalau diberikan seperti ini, anda seharusnya lebih terpacu > mencoba-cobanya sendiri. Menemukan sendiri dengan panduan seperti ini > lebih berbekas daripada hasil instan. > > Ok, saya bantu berikan panduan. > > Andaikan tabelnya M_USER(username(text), password(text)), maka bisa > dibuat interface formnya sebagai berikut: > > > > Perhatikan, yang bound field adalah username dan password, sedang > textbox yang di tengah itu adalah unbound bernama txtPassword, saya > gunakan untuk menampilkan hasil enkripsi. > > Saya modifikasi sedikit kode dari BO agar bisa diambil general. Buat > modul baru, beri nama basEncrypt, lalu pastekan kode berikut: > > Option Compare Database > Option Explicit > > Public Function EncryptPassword(phrase As String) As String > Dim i As Long > Dim counter As Long > Dim s As String > phrase = Trim(phrase) > i = Len(phrase) > s = "" > counter = 1 > Do While counter <= i > s = s & Chr((Asc(Mid(phrase, counter, 1)) + 17)) > counter = counter + 1 > Loop > EncryptPassword = s > End Function > > Public Function DecryptPassword(phrase As String) As String > Dim i As Long > Dim counter As Long > Dim s As String > i = Len(Trim(phrase)) > s = "" > counter = 1 > Do While counter <= i > s = s & Chr((Asc(Mid(Trim(phrase), counter, 1)) - 17)) > counter = counter + 1 > Loop > DecryptPassword = s > End Function > > Metode yang digunakan encrypt di atas, hanyalah menukar nilai karakter > menjadi nilai karakter geser 17 ke depan dalam daftar kode ascii. > > Setelah itu, anda atur event2 di form password sebagai berikut: > > Option Compare Database > Option Explicit > > Private Sub Form_BeforeUpdate(Cancel As Integer) > Me.Password = EncryptPassword(Me.txtPassword) > End Sub > > Private Sub Form_Current() > Me.txtPassword = "" > If Not Me.NewRecord Then > Me.txtPassword = DecryptPassword(Me.Password) > End If > End Sub > > event before update akan menyandikan entri password untuk di simpan > dalam field password, sesuai fungsi dari BO. > event current untuk mengatur penampilan txtPassword terhadap nilai > decryptnya field password. > > Berikut contoh form kondisi running: > > > > dan ini adalah tabel user dengan password yang sudah disandikan: > > > > > aksan kurdin > > On 2/11/2010 7:35 AM, Ahmad Qomaruddin wrote: >> >> Kalo ada, share file yang sudah jadi dong, bingung nih mau prakteknya >> Trims >> >> On 2/10/10, Belajar Office <[email protected] >> <mailto:belajaroffice%40gmail.com>> wrote: >> > Bpk, utk mencoba encrypt password, Bpk buat form baru, tambahkan dua >> field : >> > NamaFieldPasswordSumber dan NamaFieldPasswordHasilEncrypt, utk event on >> > click pada encrypt password bisa jalankan procedure berikut: >> > >> > Private EncryptPassword_Click() >> > On Error Resume Next >> > Dim i As Long >> > Dim counter As Long >> > i = Len(Trim(Me![NamaFieldPasswordSumber])) >> > Me![NamaFieldPasswordHasilEncrypt] = "" >> > counter = 1 >> > Do While counter <= i >> > Me![NamaFieldPasswordHasilEncrypt] = >> > Me![NamaFieldPasswordHasilEncrypt] & >> > Chr((Asc(Mid(Trim(Me![NamaFieldPasswordSumber]), counter, 1)) + 17)) >> > counter = counter + 1 >> > Loop >> > End Sub >> > >> > Utk decrypt password, Bps bisa gunakan procedure: >> > >> > Private DecryptPassword_Click() >> > On Error Resume Next >> > Dim i As Long >> > Dim counter As Long >> > i = Len(Trim(Me![NamaFieldPasswordHasilEncrypt])) >> > Me![NamaFieldPasswordSumber] = "" >> > counter = 1 >> > Do While counter <= i >> > Me![NamaFieldPasswordSumber] = Me![NamaFieldPasswordSumber] & >> > Chr((Asc(Mid(Trim(Me![NamaFieldPasswordHasilEncrypt]), counter, 1)) >> - 17)) >> > counter = counter + 1 >> > Loop >> > End Sub >> > >> > Thank's >> > ----- Original Message ----- >> > From: Budi.P >> > To: Belajar Access >> > Sent: Wednesday, 10 February 2010 10:51 AM >> > Subject: [belajar-access] Encrypt Password >> > >> > >> > >> > >> > siang teman2, >> > >> > ada yg punya program untuk encrypt password, atau metode untuk encrypt >> > password >> > agar pada saat tersimpan di table field password sudah di encrypt. >> > >> > salam, >> > Budi >> > >> > >> > >> > ---------------------------------------------------------- >> > Menambah banyak teman sangatlah mudah dan cepat. >> > Undang teman dari Hotmail, Gmail ke Yahoo! Messenger sekarang! >> > >> > >> >> -- >> Ahmad Qomaruddin >> Sulang Rembang >> email : [email protected] <mailto:ud13en%40gmail.com> >> blog : ud13en.blogspot.com >> >> > > -- Ahmad Qomaruddin Sulang Rembang email : [email protected] blog : ud13en.blogspot.com
