home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
rettig.zip
/
TRSOURCE.EXE
/
PASSWORD.C
< prev
next >
Wrap
C/C++ Source or Header
|
1990-10-22
|
647b
|
26 lines
/*********
* PASSWORD.C
*
* by Tom Rettig
*
* Placed in the public domain by Tom Rettig Associates, 10/22/1990.
*
* Syntax: PASSWORD( <expC> )
* Return: 8 to 10 digit <expN> value of <expC>
* Zero if <expC> is less than 3 characters.
* Note..: Cannot be decoded to determine password from <expN>.
* Distinguishes between uppercase and lowercase letters.
* <expC> may contain spaces or any ASCII character.
*********/
#include "trlib.h"
TRTYPE password()
{
if ( PCOUNT == 1 && ISCHAR(1) )
_retnl( _tr_pnum( _parc(1) ) );
else
_retnl( ERRORNEGL ); /* -1 if error */
}