Create User Password

* Filename : USERLIST.prg
* Last Update : 12:20:06 6/21/2001
* Programmer : FIRDAUS MAULANA
* http://www.daoush.net
* Remarks : How to use Encrypt/Decrypt Function in Database

* Database : USERLIST.dbf
* Field Field Name Type Width Dec
* 1 KODEUSER Character 3
* 2 NAMAUSER Character 15
* 3 PASSWORD Character 10
* ** Total ** 29


* Compiled : Clipper USERLIST /m /n /w /a /p
* Linked : rtlink fi USERLIST, ENKRIPSI

memvar getlist, vKODEUSER, vNAMAUSER, vPASSWORD
field KODEUSER, NAMAUSER, PASSWORD

**********************************************************************
function main // Main Function
local pil

set talk off
set stat off
set scor off
set conf on
set color to
set wrap on
clear

* Open Database
use USERLIST
index on KODEUSER to USERLIST


do while .t.

* Menu
clear
@ 2,3 say "Encrypt & Decrypt User Name"
@ 3,3 say "Copyright(c) 2001, Firdaus Maulana"

@ 7,3 prompt " A. New User "
@ 8,3 prompt " B. Edit User "
@ 9,3 prompt " C. Delete User "
@10,3 prompt " D. List User "
@11,3 prompt " E. End "
menu to pil
do case
case pil = 5 .or. pil = 0
@ 7,3 clear to 24,79
@ 6,3 say "End Of Program"
?
exit
case pil = 1
NewUser()
case pil = 2
EditUser()
case pil = 3
DeleteUser()
case pil = 4
ListUser()
endcase
enddo
return nil
***********************************************************************


function NewUser()
local yt:="Y"
private vKODEUSER:=space(3),vNAMAUSER:=space(15),vPASSWORD:=space(10)
do while .t.
@ 15,3 say "User Code : " get vKODEUSER valid C1User(vKODEUSER)
@ 16,3 say "User Name : " get vNAMAUSER
@ 17,3 say "Password : " get vPASSWORD
read
if lastkey() = 27
return nil
endif

@ 19,3 say "Save ? : " get yt pict "!"
read
if lastkey() = 27
return nil
endif

if yt = "Y"
append blank
repl KODEUSER with Encrypt(vKODEUSER)
repl NAMAUSER with Encrypt(vNAMAUSER)
repl PASSWORD with Encrypt(vPASSWORD)
endif
@ 20,3 say "More ? : " get yt pict "!"
read
if lastkey() = 27
return nil
endif
if yt != "Y"
exit
endif
enddo
return nil
***********************************************************************

function C1User(vbl)
seek Encrypt(vbl)
if found()
@ 23,3 say "*** DATA ALREADY EXIST ***"
inkey(0)
return .f.
endif
return .t.
***********************************************************************


function EditUser()
local yt := "Y"
private vKODEUSER:=space(3),vNAMAUSER:=space(15),vPASSWORD:=space(10)
do while .t.
@ 15,3 say "User Code : " get vKODEUSER valid C2User(@vKODEUSER)
@ 16,3 say "User Name : " get vNAMAUSER
@ 17,3 say "Password : " get vPASSWORD
read
if lastkey() = 27
return nil
endif

@ 19,3 say "Save ? : " get yt pict "!"
read
if lastkey() = 27
return nil
endif

if yt = "Y"
repl KODEUSER with Encrypt(vKODEUSER)
repl NAMAUSER with Encrypt(vNAMAUSER)
repl PASSWORD with Encrypt(vPASSWORD)
endif
@ 20,3 say "More ? : " get yt pict "!"
read
if lastkey() = 27
return nil
endif
if yt != "Y"
exit
endif
enddo
return nil
***********************************************************************

function C2User(vbl)
seek Encrypt(vbl)
if ! found()
@ 23,3 say "*** DATA NOT FOUND ***"
inkey(0)
return .f.
endif
vbl := Decrypt(KODEUSER)
vNAMAUSER := Decrypt(NAMAUSER)
vPASSWORD := Decrypt(PASSWORD)
@ 16,3 say "User Name : " + vNAMAUSER
@ 17,3 say "Password : " + vPASSWORD
return .t.
***********************************************************************


function DeleteUser()
local yt := "Y"
private vKODEUSER:=space(3),vNAMAUSER:=space(15),vPASSWORD:=space(10)
do while .t.
@ 15,3 say "User Code : " get vKODEUSER valid C2User(@vKODEUSER)
@ 16,3 say "User Name : " get vNAMAUSER
@ 17,3 say "Password : " get vPASSWORD
read
if lastkey() = 27
return nil
endif

@ 19,3 say "Delete : " get yt pict "!"
read
if lastkey() = 27
return nil
endif

if yt = "Y"
dele
pack
endif
@ 20,3 say "More ? : " get yt pict "!"
read
if lastkey() = 27
return nil
endif
if yt != "Y"
exit
endif
enddo
return nil
***********************************************************************

function ListUser
clear
? "Encrypt & Decrypt User Name"
? "Copyright(c) 2001, Firdaus Maulana"
?
? "DATA DILIHAT SECARA LANGSUNG"
?
go top
do while ! eof()
? KODEUSER + " - "+ NAMAUSER + " - " + PASSWORD
skip
enddo
?
wait
clear
? "Encrypt & Decrypt User Name"
? "Copyright(c) 2001, Firdaus Maulana"
?
? "DATA DILIHAT SETELAH DI DEKRIPT"
?
go top
do while ! eof()
? Decrypt(KODEUSER) + " - "+ Decrypt(NAMAUSER) + " - " + Decrypt(PASSWORD)
skip
enddo
?
wait
return nil

Comments (0) 12.06.2008. 12:39