Re: [belajar-access] Encrypt Password

Wed, 10 Feb 2010 18:32:36 -0800

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 :
> 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...@gmail.com
blog : ud13en.blogspot.com


Kirim email ke