ich möchte eine Passwortabfrage einbauen.
Diese sollte beim Programmstart einmalig am Tag abgefragt werden.
Dazu habe ich bis jetzt folgendes...
Code: Alles auswählen
FUNCTION master_pw
private master_pw := space( 20 )
cls
do while .t.
@ 18,3 say ' Bitte Passwort eingeben: '
@ 18,28 get master_pw
read
memo_pw := memoread( 'master.txt' ) && in der Datei master.txt steht das Passwort
memo_pw := substr( alltrim( memo_pw ) ,1,9) && Alle Leerzeichen am Ende oder Anfang löschen
* memo_pw = substr( ltrim( memo_pw ),4) && war ein Test, der auch nicht funktionierte :-(
@ 10, 5 say len( 'memo_pw' ) && zur Kontrolle, wie lang die Variable memo_pw ist
@ 12, 5 say len( 'master_pw' ) && zur Kontrolle, wie lang die Variable master_pw ist
wait (1)
if memo_pw == master_pw && Gibt falschen Wert aus! :angry4:
cls
setcolor(mbnorm) && würde die Farben wieder auf "normal" setzten
exit
else
cls
k_warn( ' Falsches Passwort ! ' ) && k_warn setzt die Farben auf rot und gelb
cls
do master_pw && wenn's falsch war zurück zum Anfang
return
endif
enddo
Komischerweise übrigens immer 7 und 9, egal was ich als Passwort eingebe???
Hat jemand eine Idee, wie ich das lösen kann?
Bin wie immer für jedweden Tipp dankbar.
Grüße
Jojo
P.S.: Hat jemand eine Idee, wie ich die Tastaureingabe beim get "unsichtbar" mache und in Sternchen umwandle?