ひみつのあんごうをつくってみよう!
もじのしょうたいがわかったら
もじをべつのもじにかえてあそんでみよう
10 S="IchigoJam"
40 ?STR$(S)
RUNでじっこうしても、もとの IchigoJam がひょうじされるだけだね。
「もじコード」をいじって、べつのもじにかえちゃおう。
20 K=1
30 FOR I=0 TO LEN(S)-1:?CHR$(ASC(S+I)+K);:NEXT:?
JdijhpKbn とひょうじされたかな?
IchigoJam が JdijhpKbn にあんごうかされたね。
20ぎょうめの K のすうじをかえるとちがうあんごうになるよ。
このすうじがあんごうの「かぎ」だね。ひみつにしておこう。
20 K=150
なぞのあんごうになったかな?
あんごうかされたもじをもとにもどしてみよう。
10 S="JdijhpKbn"
20 K=1
30 FOR I=0 TO LEN(S)-1:?CHR$(ASC(S+I)-K);:NEXT:?
IchigoJam にもどったかな?
30ぎょうめの K のけいさんをべつのものにかえるとどうなるかな?
30 FOR I=0 TO LEN(S)-1:?CHR$(ASC(S+I)^K);:NEXT:?
やってみよう!
1. もとにもどすプログラムをともだちにわたしてあんごうでおはなししてみよう
2. うまくもとにもどらないことがあるよね。どうしたらいいかな?
3. あんごうかと もとにもどすプログラムをおなじプログラムにすることはできるかな?