Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
ramani said:3. Whenever the password is accepted, compare for accepting it, by converting the same way.
myInPass=SYS(2007,ALLTRIM(ThisForm.txtLogInPass.Value))
IF myPassFile.myPasswordField = myInPass
** LET THE USER IN
ELSE
** SHOW THE OUT-DOOR
ENDIF
I want to display encrypted password
lcpass=INPUTBOX("Enter password","Password","Secret777",0,"","Secret777")
lcCheckSum=SYS(2007,lcpass)
? "Enocded vwesion for", lcpass,"is", lcCheckSum
FOR lni=1 TO 10*65536
IF SYS(2007,ALLTRIM(STR(lni)))==lcCheckSum
? "Candidate password is ",ALLTRIM(STR(lni))
EXIT
ENDIF
NEXT
lcCheckSum=INPUTBOX("Enter encoded string","Encoded password","34324",0,"","34324")
FOR lni=1 TO 10*65536
IF SYS(2007,ALLTRIM(STR(lni)))==lcCheckSum
? "Candidate password is ",ALLTRIM(STR(lni))
EXIT
ENDIF
NEXT