Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
p1 = "AB"
* then, somewhere else in the code
p2 = "CD"
* and somewhere else again
p3 = "EF"
* at the point where you want to use the password
lcPassword = p1 + p2 + p3
LParameters eValue, i, j
j = 1
nValue = 0
For i = 1 to length(alltrim(eValue))
nValue = nValue + ASC(Substr(eValue,i,1))* j
j = j * 2
EndFor
Return nValue
LPARAMETERS cInstring
=RAND(123) && Hard-wired seed to encrypt/decrypt seed
cOutString = ''
************* Get a unique seed each time
nSeed = INT(1000*(SECONDS()-INT(SECONDS()))) && Get a random seed (1-999)
************* Encrypt this seed using hard-wired (constant) seed
cSeed = TRANS(m.nSeed,'@L 999') && Always 3 chars
FOR ii = 1 TO LEN(m.cSeed) && 3 in this case
******** Make this char chr(48-57) to chr(48-255)
newAscii = ASC(SUBSTR(cSeed,m.ii,1)) + INT(199*RAND())
cOutString = m.outString + CHR(m.newAscii)
ENDFOR
************ Encrypt cInstring & add it to 3-char seed
=RAND(m.nSeed) && Using new (unique) seed
FOR ii = 1 TO LEN(m.cInString)
******* Make this char chr(32-126) to chr(161-255)
newAscii = ASC(SUBSTR(m.cInString,m.ii,1)) + INT(129*RAND())
cOutString = m.cOutString + CHR(m.newAscii)
ENDFOR
Nah, not so, you can change bits without complaint.
I simply use SYS(2007) to generate a checksum.
although it goes beyond solving Mandy's immediate problem.