salah satu cara mengacak password yang disimpan kedatabase adalah dengan membuat function sederhana seperti dibawah ini. agar data yang kita masukkan kedatabase untuk passwodnya berubah tidak sesuai dengan kata aslinya dengan menggunakan function passwordq seperti yang ada dibawah.

Function passwordq(kata As String) As String
Dim hrfq As Variant, asli As Variant
Dim i As Integer
Dim hasilq As String
asli = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", " ", "/", ".", ",")
hrfq = Array("5", "6", "7", "8", "9", "0", "1", "2", "3", "4", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", ",", ".", "/", " ")
hasilq = ""
For i = 1 To Len(kata)
hasilq = hasilq + hrfq(InStr("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ /.,", UCase(Mid(kata, i, 1))) - 1)
Next
passwordq = hasilq
End Function

untuk mengembalikan kata yang disimpan kedatabase kedalam kata aslinya maka cukup kita gunakan function yang dibawah ini.

Function passwordkata(kata As String) As String
Dim hrfq As Variant, asli As Variant
Dim i As Integer
Dim hslq As String
asli = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", " ", "/", ".", ",")
hrfq = Array("5", "6", "7", "8", "9", "0", "1", "2", "3", "4", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", ",", ".", "/", " ")
hslq = ""
For i = 1 To Len(kata)
hslq = hslq + asli(InStr("5678901234NOPQRSTUVWXYZABCDEFGHIJKLM,./ ", UCase(Mid(kata, i, 1))) - 1)
Next
passwordkata = hslq
End Function

cara penggunaan kedua function cukup mudah contohnya:
untuk menyimpan kata kedatabase gunakan function passwordq contoh dengan menggunakan perintah sql adalah
sql="insert into user (kodeuser,namauser,passwd,help) values('" & me.tkuser.text & "','" & me.tnuser.text & "','" & passwordq(me.tpass.text) & "','" & me.thlp.text & "'"

terus jalankan perintah sql dengan cara menggunakan nama koneksinya misalkan nama koneksinya conn maka perintahnya :
conn.execute sqlq

untuk membuka ke kata aslinya maka perintahnya adalah:
buka dulu tabel databasenya.
sql="select * from user"
set rs=conn.execute(sql,,adcmdtext)

untuk menampilkan ke textboxt dalam bentuk kata yang asli dengan menggunakan function passwordkata maka caranya adalah :
me.tkuser.text=rs.fields("kodeuser")
me.tnuser.text=rs.fields("namauser")
me.tpass.text=passwordkata(rs.fields("passwd")) ' ini yang digunakan untuk menampilkan kekata aslinya
me.thlp.text=rs.fields("help")

didalam function itu ada variabel asli dan hrfq yang dibuat array maksudnya adalah
asli : digunakan untuk menyimpan karakter asli yang sesuai dengan huruf abjad
hrfq: digunakan untuk menyimpan karakter yang digunakan untuk mengacak kata

jika ada pertanyaan tentang cara ini silahkan tinggalkan comment atau hubungi langsung via Email : imam.dn@gmail.com

0 komentar:

Copyright 2010 Belajar IT