FiveTech Software tech support forums

Code: Select all | Expand

// The example shows a typical scenario for GetSecret().
// The user must enter a password which is not displayed on
// the screen

   PROCEDURE Main
      LOCAL cPassword := Space(20)
      CLS
      SET CONFIRM ON

      cPassWord := ;
        GetSecret( cPassword, 10, 10, .T., "Enter your password: ")

      IF cPassWord <> "xHarbour"
         Alert( "Access denied" )
         QUIT
      ENDIF

      Alert( "Access granted" )
   RETURN

Code: Select all | Expand

   snh := getsecret( SPACE( 11 ), 5, 5, .T., "Digite a senha:" )
	 
   alert( snh )