maaf ikut nimbrung ya bang aksan.. hehe
wah mantab deh.. tapi ngomong2 sepertinya panjang karakter/digit yang di encrypt tergantung dari panjang data yang kita isikan. bagaimana dengan data penggajian? sepertinya orang akan mudah mengetahui gaji seseorang cukup dilihat dari panjang karakter/digit nya (semakin panjang semakin gede gajinya) meskipun itu sudah diencrypt dengan kode ascii yang aneh2.. hehehe... (padahal masalah gaji cukup sensitif loh.. :D) mudah2an ini bisa menjadi inputan dan ada solusinya.. wassalam. Taufik Hidayat (hanya suporter) --- In [email protected], Aksan Kurdin <aksan.kur...@...> 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 <belajaroff...@... > > <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 : ud1...@... <mailto:ud13en%40gmail.com> > > blog : ud13en.blogspot.com > > > > >
