そのやり方でもできるかもしれませんが、暗号化してから保存というのはどうでしょうか?
(このやり方しかわからなくてすみません。)
//----変数の初期化
sdim moz1 ;基の文字列
sdim moz2 ;暗号化した文字列
sdim moz3 ;復号化した文字列
moz1="この文字を暗号化します(^^)"
nagasa=strlen(moz1) ;文字の長さ
key=100 ;(1〜255までの適当な値)
//----暗号化
repeat nagasa
poke moz2,cnt,peek(moz1,cnt)^key ;暗号化
loop
//----復号化
repeat nagasa
poke moz3,cnt,peek(moz2,cnt)^key ;暗号化
loop
//----結果
mes "基の文字 :"+moz1
mes "暗号化した文字:"+moz2
mes "復号化した文字:"+moz3
このプログラムでは、元の文字を暗号化し、暗号化したものを復号化させるものです。
暗号化では、排他的論理和(Xor)を使用しています。
また、moz2 をvsave等で保存すると、暗号化されたデーターがそのまま保存されます。
復号化させたい時は、Xorを使っているので、暗号化した時と同じ動作をすればできます。