シーザー暗号を作ってみよう(文字のシフト暗号)

このレッスンでは、Rでシーザー暗号を実装する方法を学び、文字をずらして暗号化する仕組みの基本を理解することを目標にします。「R言語シーザー暗号実装」で調べている方向けです。

シーザー暗号は、アルファベットを決まった数だけずらして別の文字に置き換える、古代ローマ発祥のシンプルな暗号です。「50音を3つずつずらして話す暗号ごっこ」のようなイメージです。

サンプルコードでは、utf8ToInt()で文字を文字コード(数値)に変換し、アルファベットの範囲かどうかを確認しながらずらした文字コードを計算し、intToUtf8()で再び文字に戻しています。strsplit(text, "")[[1]]で文字列を1文字ずつのベクトルに分割している点にも注目してみましょう。

初心者がよくつまずくのが、文字コードの計算です。ずらした結果がアルファベットの範囲(A〜Z)を超えてしまうケースを、%% 26で正しく処理する必要があります。

現代の暗号技術に比べると単純ですが、文字コードを操作する考え方は、より高度な暗号化やエンコード処理の基礎になります。

📖 お手本コード

caesar_encrypt <- function(text, shift) {
  chars <- strsplit(text, "")[[1]]
  encrypted <- sapply(chars, function(c) {
    code <- utf8ToInt(c)
    if (code >= 65 && code <= 90) {
      intToUtf8((code - 65 + shift) %% 26 + 65)
    } else {
      c
    }
  })
  paste(encrypted, collapse = "")
}

cat(caesar_encrypt("HELLO", 3), "\n")

✍️ あなたのコード

コードを書いたら「実行する」を押してください

🧪 このサイトではRを直接コンパイル・実行できないため、お手本コードと同じ内容を入力できたかをその場で判定します(採点はブラウザ内だけで行われ、どこにも送信されません)。

🎯

ここまでできればゴール達成!
簡単な暗号化・復号化ができる、シーザー暗号ツールが作れるようになります。