Mohon maaf bpk BO, karena keterbatasan akses internet di kantor, karenanya sy minta bantuan pak aksan u/ mengirimkan attachmentnya.
Silahkan di lihat kiriman dari bpk aksan di email terpisah. Mohon diberikan inputan & saran nya. Wassalam, Thanks and B.Regards Taufik Hidayat -----Original Message----- From: "Belajar Office" <[email protected]> Date: Tue, 16 Feb 2010 10:41:28 To: <[email protected]> Subject: Re: [belajar-access] Re: Encrypt Password Bpk maaf, lampirannya kok tdk ada ya? Thank's ----- Original Message ----- From: tau_fik_hidayat To: [email protected] Sent: Tuesday, 16 February 2010 9:55 AM Subject: [belajar-access] Re: Encrypt Password hehehe.. maaf nyambung lagi.. iya bener banget pak BO, pastinya bikin repot aja kalo gaji harus di encrypt trus decrypt.. tapi untuk sekedar mengupas keingintahuan saya, saya sudah modif sedikit script yang kemarin, silahkan lihat lampiran untuk di berikan masukan dan saran. Wassalam Taufik Hidayat --- In [email protected], "Belajar Office" <belajaroff...@...> wrote: > > Bpk saya belum mencoba encrypt data gaji, menurut saya tidak perlu di encrypt, gaji umumnya berupa number, menjadi repot bilamana dijumlah harus didecrypt dulu, akan memakan proses lebih lama. > > Thank's > ----- Original Message ----- > From: aksankurdin > To: [email protected] > Sent: Thursday, 11 February 2010 9:50 PM > Subject: [belajar-access] Re: Encrypt Password > > > > tanya BO dah, yang punya ide die .... :) > > aksan kurdin > > --- In [email protected], "tau_fik_hidayat" <selatanjak@> 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 > > > > > > > > > > > > > >
