Password Mask

[rivet]

Based on David Graham’s Spotlight Filter, here is a

way to mask a field entry.

This solution required FMP10

password_mask_fmp10.zip

[Fenton]

I wonder if this would be a useful tweak. I added a test to see if someone had deleted characters from the end. It doesn't work if they reposition the cursor before deleting, but it works if someone just typed the wrong letter, then deleted it.

If [ Length ( account::password ) > Length (account::mask) ]

Set Field [ account::password;

Case ( IsEmpty ( account::mask ) ; "" ; Left ( account::password; Length ( account::mask )) ) ]

Else

Set Field [ account::password; Case (

IsEmpty ( account::mask ) ; "" ; account::password & Right ( account::mask ; 1 ) ) ]

Set Field [ account::mask; Left ( "••••••••••••••••••••••••••••••••••••••••••••••••••••" ; Length ( account::password ) ) ]

End If

Edited March 4, 2009 by Guest

[rivet]

Thanks Fenton, Here is the update.

Rivet_password_mask_fmp10.zip