Rubah Password

* =-=-=
* Kunci dan rubah password
* =-=-=
Procedure Kunci
Private x, Klm, Warna, Layar, Baru, Lagi
Pass("Password lama : ")
Warna= SetColor()
Save Screen To Layar

Do While .T.

Box3D(03,12,08,72)
Shadow(03,12,08,72)

@ 5, 18 Say "Password baru : "
@ 6, 18 Say "Harap diulangi : "
Klm= Col()
Baru= Mengetik(5, Klm, 12)
Lagi= Mengetik(6, Klm, 12)
Read
Set Exact On
If Baru= Lagi
Ketik= "Ok"
xPass= Baru
Set Exact Off
Exit
EndIf
Pesan("Terdapat perbedaan antara keduanya !")
EndDo
Save All Like x* To Password.ini
Restore From Password.ini Additive
SetColor(Warna)
Restore Screen From Layar
Return