home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / database / informix / 2949 < prev    next >
Encoding:
Internet Message Format  |  1993-01-12  |  1.7 KB
  1. Path: sparky!uunet!elroy.jpl.nasa.gov!swrinde!emory!emory!not-for-mail
  2. From: dave.snyder@snide.com (Dave Snyder)
  3. Newsgroups: comp.databases.informix
  4. Subject: Re: hidden password entry
  5. Date: 12 Jan 1993 22:33:04 -0500
  6. Organization: Mailing List Gateway
  7. Lines: 38
  8. Sender: walt@mathcs.emory.edu
  9. Distribution: world
  10. Message-ID: <1j02hgINNnnm@emory.mathcs.emory.edu>
  11. Reply-To: dave.snyder@snide.com (Dave Snyder)
  12. NNTP-Posting-Host: emory.mathcs.emory.edu
  13. X-Informix-List-ID: <list.1778>
  14.  
  15. Quoting System Admin...
  16. } 
  17. } Two questions:
  18. } 
  19. } One is any one keeping the archive of this news group and so where is it located ?
  20. } 
  21. Yes, there is an archive of all informix-list stuff kept on mathcs.emory.edu.
  22. This is an anonftp site.
  23.  
  24. } Secondly: I remember someone posted a routine a while ago which lets you do
  25. } hidden password entry.  Con somone repost it or sent me the sample ??
  26. } 
  27. I did, it's short so here it is again...
  28.  
  29. Here --------- Snip Here --------- Snip Here --------- Snip Here --------- Snip
  30. MAIN
  31.     DEFINE  c CHAR(1)           # Get character
  32.     DEFINE  psw CHAR(8)         # Store the password
  33.     DEFINE  i SMALLINT          # Counter
  34.  
  35.     OPTIONS PROMPT LINE 22
  36.     FOR i = 1 TO 8
  37.         PROMPT "Enter password: " FOR CHAR c
  38.         IF (c IS NULL) THEN     # Check for space or return
  39.             EXIT FOR
  40.         ELSE
  41.             LET psw = psw CLIPPED, c
  42.         END IF
  43.     END FOR
  44. END MAIN
  45. Here --------- Snip Here --------- Snip Here --------- Snip Here --------- Snip
  46.  
  47. DAS
  48. -- 
  49. David Snyder @ Snide Computer Services - Folcroft, PA          Current Release
  50.                                                                is db4glgen-3.9
  51. UUCP:  ..!uunet!das13!dave   INTERNET:  dave.snyder@snide.com
  52.  
  53.