Thanks for the tip Eric. I'll try for our next release.
>>Anyone know of a routine or algorithm that would generate a new maybe unique 1-8 position value based on date?
>>
>
>I do this to be able to give users a single day password to a protected website. All you need is a hardcoded formula to calculate a password based on the date, and to make sure that the formula is not known. Here is a simplified version of my formula:
>
>PROCEDURE CalcPassWord
> LPARA tdSeedDate
> lcCheckString = SYS(2007,DTOC(tdSeedDate) )
> lcPassWord = ""
> FOR i = 1 TO LEN(lcCheckString)
> lcPassWord = lcPassWord + CHR(VAL(SUBS(lcCheckString,i,1)) + 100)
> ENDFOR
> RETURN lcPassWord
>ENDPROC
Ernie Veniegas
Micro System Solutions
... sensible software by design