Re: [belajar-access] Encrypt Password

[Belajar Office]

Saya setuju sekali dng Bpk Aksan karena dengan mencoba sendiri ilmu lebih cepat 
meresap, meninggalkan bekas yang sulit hilang. Matematika akan mudah dipahami 
dengan sering latihan sambil dicoba-coba teurs dikertas kotretan. Tidak mungkin 
pintar matematika hanya dengan membaca contoh2 soal, walaupun seribu contoh 
dibaca, kalau tidak latihan sama sekali, pas ujian pasti dia akan bingung. 
Makanya metode jawaban saya dimilis ini selalu berusaha sesimple mungkin supaya 
yang berkepentingan berusaha dahulu, itu akan lebih bermanfaat untuknya 
daripada diberi jadi. Bilamana ada kesulitan setelah berusaha 100%, maka baru 
dipandu lagi, sehingga akan saling nyambung, tidak sia-sia jawaban demi jawaban 
yang sudah kita berikan.

"karena setelah kesulitan itu ada kemudahan, setelah malam ada siang, setelah 
tersesat ada petunjuk...."

Thank's
  ----- Original Message ----- 
  From: Aksan Kurdin 
  To: belajar-access@yahoogroups.com 
  Sent: Thursday, 11 February 2010 9:21 AM
  Subject: 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 <belajaroff...@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

<<moz-screenshot-40.png>>

<<moz-screenshot-41.png>>

<<moz-screenshot-42.png>>