How To Generate Random Strings

   *-- Code begins here.
   SET TALK OFF
   ON ESCAPE CANCEL
   DO WHILE .T.  && Press the escape key to quit
       WAIT WINDOW RandomString(65,122,1,15)
   ENDDO
   SET TALK ON

   *----------------------------------------------------------
   *-- Function:   RandomString()
   *-- Summary:    Generates a string of random characters
   *-- Usage:      RandomString(nLboundAscii, nUboundAscii,
   *--               nLBoundLength, nUBoundLength)
   *-- Parameters: nLBoundAscii - Lowest ASCII value to use.
   *--             nUBoundAscii - Highest ASCII value to use.
   *--             nLBoundLength - Shortest string to generate.
   *--             nUBoundLength - Longest string to generate.
   *-- Example:    lsReturn = RandomString(65,122,1,15)
   *----------------------------------------------------------
   FUNCTION RandomString
   PARAMETERS liLowerBAscii, liUpperBAscii, ;
     liLowerBLength, liUpperBLength

   *-- Initialize variables.
   lsString = ""
   liLength = 0
   liCounter = 0

   *-- Check for valid parameters and correct if needed.
   IF liLowerBAscii < 0
      liLowerBAscii = 0
   ENDIF
   IF liLowerBAscii > 255
      liLowerBAscii = 255
   ENDIF
   IF liUpperBAscii < 0
      liUpperBAscii = 0
   ENDIF
   IF liUpperBAscii > 255
      liUpperBAscii = 255
   ENDIF
   IF liLowerBLength < 0
      liLowerBLength = 0
   ENDIF
   liLength = INT((liUpperBLength - liLowerBLength + 1) ;
     * RAND(-1) + liLowerBLength)

   FOR liCounter = 1 TO liLength
      lsString = lsString + CHR(INT((;
          liUpperBAscii - liLowerBAscii + 1) ;
        * RAND() + liLowerBAscii))
   ENDFOR
   RETURN lsString
   *-- Code ends here.