I found a way, but now i have a logic error...im going crazy, can someone please respond with SOMETHING?
;fix decryption
Func normalize($character)
Select
Case (asc($character)-31) <= 31
msgbox(0, "3", "debug")
Return(Chr(asc($character)-31))
Case (asc($character)-128) >= 128 and (asc($character)-161) <= 161
msgbox(0, "4", "debug")
Return(Chr(33-$character))
;meta tags
Case $character = "²"
Return ">"
Case $character = "³"
Return "<"
;meta tags
EndSelect
EndFunc ;==>normalize
;fix encryption
Func unnormalize($character)
Select
Case asc($character) <= 31
msgbox(0, "1", "debug")
Return(Chr(31+asc($character)))
Case asc($character) > 128 and asc($character) < 161
msgbox(0, "2", "debug")
Return(Chr(33+asc($character)))
;meta tags
Case $character = ">"
Return "²"
Case $character = "<"
Return "³"
;meta tags
EndSelect
Return $character
EndFunc ;==>unnormalize
edit: this works with the rest of my script, but doesnt decrypt correctly (for all i know, it doesnt encrypt correctly either...)