Displays asterisks for characters entered. Displays extra asterisks
when password is less than seven characters. Enjoy.
rex
SUBROUTINE GET.PASSWD(RESPONSE)
* PASSWORD INPUT ROUTINE
**
EQU BS TO CHAR(8)
EQU CR TO CHAR(13)
BUFFER = SPACE(255)
BUFPTR = 0
PR
u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Mark Eastwood
Sent: Tuesday, August 16, 2011 3:43 PM
To: U2 Users List
Subject: Re: [U2] Simple Masking of Password Input (Universe Basic)
Just a quick sample
PROMPT ''
PW='
Andy -
Simple and right on point. Thanks
Nelson
andy baum-2 wrote:
>
> How about
>
> PASSWD = ''
> LOOP
> CHR = KEYIN()
> UNTIL CHR = CHAR(13) DO
> IF CHR # CHAR(8) THEN
> CRT "*":
> PASSWD := CHR
> END ELSE
>
27;
>> POS+=1
>> REPEAT
>> ECHO ON
>>
>>
>>
>> Israel, John R. wrote:
>>> That's actually pretty good!
>>>
>>>
>>> John Israel
>>> Senior Programmer/Analyst
>>> Dayton Superior Corporation
>&
listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Mark Eastwood
Sent: Tuesday, August 16, 2011 3:43 PM
To: U2 Users List
Subject: Re: [U2] Simple Masking of Password Input (Universe Basic)
Just a quick sample
PROMPT ''
PW=''
ECHO OFF
LOO
@listserver.u2ug.org] On Behalf Of Mark Eastwood
> Sent: Tuesday, August 16, 2011 3:43 PM
> To: U2 Users List
> Subject: Re: [U2] Simple Masking of Password Input (Universe Basic)
>
> Just a quick sample
>
> PROMPT ''
> PW=''
> ECHO OFF
> LOOP
>
SWD[1,LEN(PASSWD)-1]
CASE 1
CRT @SYS.BELL:
END CASE
REPEAT
CRT
CRT PASSWD
Cheers,
Andy
From: Bob Wyatt
To: 'U2 Users List'
Sent: Wednesday, 17 August 2011, 3:59
Subject: Re: [U2] Simple Masking of Password Input (Unive
andy baum
Sent: Tuesday, August 16, 2011 7:09 PM
To: U2 Users List
Subject: Re: [U2] Simple Masking of Password Input (Universe Basic)
Slight amendment in case your positioned in middle of screen.
PASSWD = ''
LOOP
CHR = KEYIN()
UNTIL CHR = CHAR(13) DO
It's not all that simple, but try
http://www.pickwiki.com/cgi-bin/wiki.pl?FieldInput
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
Slight amendment in case your positioned in middle of screen.
PASSWD = ''
LOOP
CHR = KEYIN()
UNTIL CHR = CHAR(13) DO
BEGIN CASE
CASE CHR # CHAR(8)
CRT "*":
PASSWD := CHR
CASE PASSWD # ''
How about
PASSWD = ''
LOOP
CHR = KEYIN()
UNTIL CHR = CHAR(13) DO
IF CHR # CHAR(8) THEN
CRT "*":
PASSWD := CHR
END ELSE
CRT CHAR(8):' ':CHAR(8):
PASSWD = PASSWD[1,LEN(PASSWD)-1]
END
List'
Subject: Re: [U2] Simple Masking of Password Input (Universe Basic)
That's actually pretty good!
John Israel
Senior Programmer/Analyst
Dayton Superior Corporation
1125 Byers Road
Miamisburg, OH 45342
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailt
esday, August 16, 2011 3:43 PM
To: U2 Users List
Subject: Re: [U2] Simple Masking of Password Input (Universe Basic)
Just a quick sample
PROMPT ''
PW=''
ECHO OFF
LOOP
INPUT X,1:
IF X = '' THEN EXIT
IF X THEN PRINT '*':
PW := X
REPEAT
Just a quick sample
PROMPT ''
PW=''
ECHO OFF
LOOP
INPUT X,1:
IF X = '' THEN EXIT
IF X THEN PRINT '*':
PW := X
REPEAT
ECHO ON
PRINT
PRINT PW
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On B
Not exactly what you are asking for but:
PRINT "ENTER YOUR PASSWORD"
HUSH ON
INPUT PWD
HUSH OFF
PRINT "YOU ENTERED:":PWD
Works to hide the input
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of nschroth
Sent: Tuesday
15 matches
Mail list logo