Kalo ada, share file yang sudah jadi dong, bingung nih mau prakteknya Trims
On 2/10/10, Belajar Office <[email protected]> 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] blog : ud13en.blogspot.com
