Metode pembelajaran yang transparan, praktek langsung, belum bisa tanya lagi dan gratis, sungguh ibarat nikmat sangat luar biasa.
Sumiyanto
--- On Thu, 2/11/10, Belajar Office <[email protected]> wrote:
From: Belajar Office <[email protected]>
Subject: Re: [belajar-access] Encrypt Password
To: [email protected]
Date: Thursday, February 11, 2010, 9:52 AM
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 -----
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 <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
|
