>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