Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Masking a password
Message
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
00675544
Message ID:
00676759
Views:
14
To all,

Isn't there a crypt and Decrypt utility in Foxtools for writing out the string in encrypted form? Something like:

DECRYPT(UserProp->PassWord, m.lc_UserName)

Regards,

Jim Smith
>Here is how we do it in FPD26:
>
>
>		*---Get Password
>		hideword = ""
>		password = ""
>		mkey     = ""
>
>
>		DO WHILE .T.
>			hideword = LEFT(hideword+SPACE(8),8)
>			@  2,22 GET hideword PICTURE "XXXXXXXX"
>			CLEAR GETS
>			hideword = RTRIM(hideword)
>			
>			mkey = INKEY(0,"H")
>			
>			DO CASE
>			CASE mkey < 0
>				LOOP
>			CASE mkey = 13 .OR. mkey = 10
>				EXIT
>			CASE mkey = 27
>				*---IF [Esc] was hit start over
>				producer = "   "
>				EXIT
>			CASE mkey = 127
>				*---BACKSPACE
>				IF LEN(password) > 1
>					hideword = LEFT(hideword,LEN(hideword)-1)
>					password = LEFT(password,LEN(password)-1)
>				ELSE
>					hideword = ""
>					password = ""
>				ENDIF
>			OTHERWISE
>				hideword = hideword + "*"
>				password = password + CHR(mkey)
>			ENDCASE
>		ENDDO
>wait WINDOW hideword
>wait WINDOW password
>
>
>>Hi all,
>>A quick one: in VFP it is easy to mask a password.
>>Any idea of how to do the same in a text box in FPW26?
>>Thanks in advance
>>Jonathan
Previous
Reply
Map
View

Click here to load this message in the networking platform