tanya BO dah, yang punya ide die .... :) aksan kurdin
--- In [email protected], "tau_fik_hidayat" <selatan...@...> wrote: > > > > 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.kurdin@> 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 <belajaroffice@ > > > <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 : ud13en@ <mailto:ud13en%40gmail.com> > > > blog : ud13en.blogspot.com > > > > > > > > >
