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

ini adalah sebuah script sederhana yang aku buat untuk memenuhi tugas kuliah Matematika dan Pemrograman Berorientasi Objeck dengan menggunakan bahasa pemrograman C++ dikampusQ 'STMIK ASIA MALANG'.
silahkan anda copy paste source code dibawah ini dan silahkan dipelajari semoga bisa membantu teman2 mahasiswa atau adik2 yang masih duduk dibangku SMK.

untuk tanda petik(') anda ganti dengan menggunakan tanda < >
#include 'iostream.h'
#include 'stdio.h'
#include 'conio.h'
#include 'stdlib.h'

//************************ Menampilkan Bilangan Prima ************************
main(){
clrscr();
int bil,a,i,j,n,ibp,pil=0;
int bp[1000];
while (pil!=3){
clrscr();
printf("Menu Pilihan");
printf("\n1. Jumlah Bilangan Yang ingin Ditampilkan");
printf("\n2. Batas Maksimal Nilai Bilangan Prima");
printf("\n3. Keluar");
printf("\nMasukkan Pilihan Anda=");scanf("%d",&pil);

switch(pil){
//********************** jumlah bilangan prima yang ingin ditampilkan *******************
case 1:
clrscr();
printf("Masukkan Jumlah Bilangan Prima Yang Ingin Ditampilkan=");scanf("%d",&n);
ibp=1;
bil=1;
//******************** proses penentuan bilangan prima ******************
for (j=1;j<=n*n;j++){ a=0; for(i=2;i<=9;i++){ if (bil%i==0){a++;} } if ((a==1 || a==0) && bil <9){bp[ibp]=bil;ibp++; a="="0){bp[ibp]="bil;ibp++;">n+5){
break;}
bil++ ;
//******************** proses menampilkan bilangan prima ******************
}
for (i=1;i<=n;i++){
/* untuk penggunaan gotoxy silahkan anda modifikasi sendiri. karena dalam source code ini perintah gotoxy tidak saya gunakan.*/

/*if (i<=50){gotoxy(0,i);}
else if (i<=101){gotoxy(10,i-49);}
else if (i<=150){gotoxy(20,i-100);}
else if (i<=196){gotoxy(30,i-145);}
else if (i<=245){gotoxy(40,i-195);}
else if (i<=294){gotoxy(50,i-244);}
else if (i<=343){gotoxy(60,i-248);}
else if (i<=392){gotoxy(70,i-342);} */
printf("%d\n",bp[i]);

}
break;
case 2:
printf("\nMasukkan Maksimal Nilai Bilangan Prima Yang Ingin Ditampilkan=");scanf("%d",&n);
bil=1;
/******************** proses penentuan dan menampilkan bilangan prima ******************/
for (j=1;j<=n;j++){
a=0;
for(i=2;i<=9;i++){
if (bil%i==0){a++;}
}
if ((a==1 || a==0) && bil <9){
printf("%d\n",bil);
}
else if (a==0){
printf("%d\n",bil);
}
bil++;
}
break;
//************************ Keluar dari program *******************************
case 3:
exit(0);
/********************************* pesan yang akan tampil jika yang diisikan tidak sesuai yang ditampilkan **********************/
default://konfirmasi pesan kesalahan jika yang dimasukkan/ditekan selain angka 1 sampai angka 3
printf("Masukkan Pilihan Angka 1 sampai Angka 3");
break;
}
getch(); //untuk berhenti sementara sebelum ada penekanan tombol
}

}

Copyright 2010 Belajar IT