暇だったんで、やってみました・・・
てきとぉなんで、バグがあるかもです。
// 暗号化・複合化
// 暗号数値
#const VAL 1
// 文字サイズ
#const SIZE 16000
screen 0,640,480
sdim text,SIZE
sdim code,SIZE
// 暗号化する文字列の為のテキストボックス
pos 0,30
mesbox text,640,400,5,SIZE
pos 120,440
button gosub "暗号化",*sr_code
pos 240,440
button gosub "複合化",*sr_decode
pos 360,440
button gosub "保存",*sr_save
pos 480,440
button gosub "読込",*sr_load
stop
// 暗号化ルーチン
*sr_code
sdim code,SIZE
// 文字列の長さを調べる
len = strlen( text )
// 文字数の分だけ繰り返す
repeat len
// textから1byteずつ読み出し、文字コードに暗号数値を加える
x = peek( text , cnt ) + VAL
// 255より大きいなら255を引く
if x > 255 :x -= 255
// code に書き込む
poke code , cnt , x
loop
// textに代入して、テキストボックスに反映
sdim text,SIZE
text=code
objprm 0,text
return
// 複合化ルーチン
*sr_decode
sdim code,SIZE
// 文字列の長さを調べる
len = strlen( text )
// 文字数の分だけ繰り返す
repeat len
// textから1byteずつ読み出し、文字コードに暗号数値を加える
x = peek( text , cnt ) - VAL
// 0未満なら255を足す
if x < 0 :x += 255
// code に書き込む
poke code , cnt , x
loop
// textに代入して、テキストボックスに反映
sdim text,SIZE
text=code
objprm 0,text
return
// 保存
*sr_save
a = strlen( text )
bsave "text.txt",text,a
dialog "text.txt に保存しました"
return
// 読込
*sr_load
sdim text,SIZE
bload "text.txt",text
objprm 0,text
return
// EOF
暗号化の方法...
