シーザー暗号的なやつです。 A$を暗号化し、B$にし、B$を復号するとC$になります。B$を別のスロットに出力すれば暗号として使えます。 SHI=1 の部分がシフトする数なので値を増やせば、わかかりにくくなります。 ただしシンプルなので、別の法則を付け加えれることで、より複雑にすることができると思います。