ASC REverse

[jester4281]

How can I convert the results back to the original. I am using the following code I nabbed off on one of the forums, but need to know how to generate the opposite for display purposes. This gives me a string of text, I need to save that in the database, but later I need to display the actual value on a form.


VUsername = ALLTRIM(Thisform.Username_Box.Value)
UsernamecString = Vusername

n = LEN(UsernamecString)
cNewStr = ''
FOR I = 1 TO n
SaveUsername = cNewStr+CHR(ASC(SUBSTR(UsernamecString,i,1))+123)
ENDFOR
Thisform.Save_Username.Value = SaveUsername

 

[rgbean]

Assuming you weren't using any ASCII characters above 132, just change the +123 to -123.

Rick