Salam,
Budi
Dari: Aksan Kurdin <[email protected]>
Kepada: [email protected]
Terkirim: Kam, 11 Februari, 2010 09:21:48
Judul: 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
Nama baru untuk Anda!
Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail.
Cepat sebelum diambil orang lain!
