home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / random / util.prg < prev   
Encoding:
Text File  |  1989-11-02  |  1.1 KB  |  44 lines
  1. *THE FOLLOWING PROGRAMS ARE IN THIS PROCEDURE FILE:
  2. *RANDOM   -FINDS RANDOM NUMBER FOR PASSWORD PROTECTION
  3. *
  4. *
  5. procedure RANDOM
  6. *random = prg to get a random number from the system clock
  7. *random number is based on    mo,day,hr,min,sec.
  8. * each of these counts for 2 digits or 10 total so the random
  9. * number will have up to 9,999,999,999 combinations
  10. *
  11. PARAMETER RANDOM,MAXNUM
  12. SET SAFETY OFF
  13. SET TALK OFF
  14. *MAXNUM SETS NUMBER OF DIGITS THAT SHOULD BE IN RANDOM NUMBER
  15.  
  16. NUMDIGT = MAXNUM
  17. * GET SEED NUMBER FROM FILE OR CREATE IT IF NO FILE EXISTS
  18. * RANDBASE.MEM STORES SEED FOR NEXT RANDOM NUMBER
  19. IF FILE('RANDBASE.MEM')
  20.   RESTORE FROM RANDBASE ADDITIVE
  21.  ELSE
  22. *CREATE NUMBER FROM SYSTEM CLOCK
  23.  
  24. SET DECIMAL TO 8
  25. DATECHAR = DTOC(DATE())
  26. MO = SUBST(DATECHAR,4,2)
  27. DAY = SUBST(DATECHAR,7,2)
  28. HR  = SUBST(TIME(),1,2)
  29. MIN = SUBST(TIME(),4,2)
  30. SEC = SUBST(TIME(),7,2)
  31. BASE = VAL(SEC+'.'+MIN+HR+MO+DAY)
  32. ENDIF
  33. T= (BASE+3.1415926)**3
  34. BASE = T - INT(T)
  35. RND = BASE
  36. RANDOM = INT(NUMDIGT*RND) + 1
  37. SAVE ALL LIKE BASE TO RANDBASE
  38. SET SAFETY ON
  39. RETURN
  40. *
  41.  
  42.  
  43.  
  44.