Betul Mas Sumiyanto.... Tiada hari kecuali selalu mendapatkan tambahan ilmu baik dari Bapak Moderators ataupun warga millis lainnya. Semoga sodaqoh ilmunya membawa manfaat dunia akhirat............amin3x
SalamAccess BambangMahfudin ----- Original Message ----- From: Sumiyanto - To: [email protected] Sent: Thursday, February 11, 2010 11:23 AM Subject: Re: [belajar-access] Encrypt Password Metode pembelajaran yang transparan, praktek langsung, belum bisa tanya lagi dan gratis, sungguh ibarat nikmat sangat luar biasa. Sumiyanto --- On Thu, 2/11/10, Belajar Office <[email protected]> wrote: From: Belajar Office <[email protected]> Subject: Re: [belajar-access] Encrypt Password To: [email protected] Date: Thursday, February 11, 2010, 9:52 AM Saya setuju sekali dng Bpk Aksan karena dengan mencoba sendiri ilmu lebih cepat meresap, meninggalkan bekas yang sulit hilang. Matematika akan mudah dipahami dengan sering latihan sambil dicoba-coba teurs dikertas kotretan. Tidak mungkin pintar matematika hanya dengan membaca contoh2 soal, walaupun seribu contoh dibaca, kalau tidak latihan sama sekali, pas ujian pasti dia akan bingung. Makanya metode jawaban saya dimilis ini selalu berusaha sesimple mungkin supaya yang berkepentingan berusaha dahulu, itu akan lebih bermanfaat untuknya daripada diberi jadi. Bilamana ada kesulitan setelah berusaha 100%, maka baru dipandu lagi, sehingga akan saling nyambung, tidak sia-sia jawaban demi jawaban yang sudah kita berikan. "karena setelah kesulitan itu ada kemudahan, setelah malam ada siang, setelah tersesat ada petunjuk.... " Thank's ----- Original Message ----- From: Aksan Kurdin To: belajar-access@ yahoogroups. com Sent: Thursday, 11 February 2010 9:21 AM Subject: Re: [belajar-access] Encrypt Password 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 <belajaroffice@ gmail.com> wrote: > Bpk, utk mencoba encrypt password, Bpk buat form baru, tambahkan dua field : > NamaFieldPasswordSu mber dan NamaFieldPasswordHa silEncrypt, 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! [NamaFieldPasswo rdSumber] )) > Me![NamaFieldPasswo rdHasilEncrypt] = "" > counter = 1 > Do While counter <= i > Me![NamaFieldPasswo rdHasilEncrypt] = > Me![NamaFieldPasswo rdHasilEncrypt] & > Chr((Asc(Mid( Trim(Me![ NamaFieldPasswor dSumber]) , 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! [NamaFieldPasswo rdHasilEncrypt] )) > Me![NamaFieldPasswo rdSumber] = "" > counter = 1 > Do While counter <= i > Me![NamaFieldPasswo rdSumber] = Me![NamaFieldPasswo rdSumber] & > Chr((Asc(Mid( Trim(Me![ NamaFieldPasswor dHasilEncrypt] ), 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 : ud1...@gmail. com blog : ud13en.blogspot. com
<<moz-screenshot-40.png>>
<<moz-screenshot-41.png>>
<<moz-screenshot-42.png>>
