home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
DATABASE
/
DB3RAND.ZIP
/
UTIL.PRG
< prev
Wrap
Text File
|
1989-11-02
|
1KB
|
44 lines
*THE FOLLOWING PROGRAMS ARE IN THIS PROCEDURE FILE:
*RANDOM -FINDS RANDOM NUMBER FOR PASSWORD PROTECTION
*
*
procedure RANDOM
*random = prg to get a random number from the system clock
*random number is based on mo,day,hr,min,sec.
* each of these counts for 2 digits or 10 total so the random
* number will have up to 9,999,999,999 combinations
*
PARAMETER RANDOM,MAXNUM
SET SAFETY OFF
SET TALK OFF
*MAXNUM SETS NUMBER OF DIGITS THAT SHOULD BE IN RANDOM NUMBER
NUMDIGT = MAXNUM
* GET SEED NUMBER FROM FILE OR CREATE IT IF NO FILE EXISTS
* RANDBASE.MEM STORES SEED FOR NEXT RANDOM NUMBER
IF FILE('RANDBASE.MEM')
RESTORE FROM RANDBASE ADDITIVE
ELSE
*CREATE NUMBER FROM SYSTEM CLOCK
SET DECIMAL TO 8
DATECHAR = DTOC(DATE())
MO = SUBST(DATECHAR,4,2)
DAY = SUBST(DATECHAR,7,2)
HR = SUBST(TIME(),1,2)
MIN = SUBST(TIME(),4,2)
SEC = SUBST(TIME(),7,2)
BASE = VAL(SEC+'.'+MIN+HR+MO+DAY)
ENDIF
T= (BASE+3.1415926)**3
BASE = T - INT(T)
RND = BASE
RANDOM = INT(NUMDIGT*RND) + 1
SAVE ALL LIKE BASE TO RANDBASE
SET SAFETY ON
RETURN
*