Kevin:

I use "something" like this. You could add a checksum at the end...

Cheerio

Function Encrypt()

Lparameters cLine

Local Password, ii

If Empty(cLine)
Return(cLine)
Endif

m.password = ''
For ii=1 To Len(Trim(cLine))
m.password = m.password + Chr(Asc(Substr(cLine, ii, 1))+Int(10*Log(ii+2)))
Endfor

Return (m.password)

Endfunc

Function Decrypt()

Lparameters cLine, ii

Local Password

If Empty(cLine)
Return(cLine)
Endif

m.password = ''
For ii=1 To Len(Trim(cLine))
m.password = m.password + Chr(Asc(Substr(cLine, ii, 1))-Int(10*Log(ii+2)))
Endfor

Return (m.password)

Endfunc