暗号化ソフトのバグ？

これは、某サンプルとかを集めたやつです。



*main
	p=0
	screen 0,300,480
	sdim MOJI
	MOJI = ""
	mesbox MOJI ,300,400
	objsize 300,30
	button "暗号化" , *an
	button "復号化",*hg
	stop
*an
repeat strlen(MOJI)
	a = peek(MOJI,cnt) //読み込む
	a++ //aを1増やす
	poke MOJI, cnt, a //書き込む
loop
	cls
	mesbox MOJI,300,400
	objsize 300,30
	button "戻る" , *main
	button "復号化",*hg
	stop
*hg
repeat strlen(MOJI)
	a = peek(MOJI,cnt) //読み込む
	a-- //aを1増やす
	poke MOJI, cnt, a //書き込む
loop
cls
mesbox MOJI,300,400
objsize 300,30
button "戻る" , *main
stop

なんか、ローマ字で入力するときにnを含むひらがながＤになります。
文字コードが一周しているか、３ケタになってずれているのではないかと思ってます。
どうすればいいのでしょうか？

HSPTV!掲示板