Re: [belajar-access] Encrypt Password

[Belajar Office]

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!