インフラエンジニアbacchiのわかったことまとめ

bacchi.me

Perl

PerlでROT13暗号文の復号

更新日:

某サイトで以下の問題が出題されたのでPerlで解いてみた。

解法

この問題の暗号方式?はROT13という単純な暗号で

のように各文字をアルファベット順に13後の文字に置き換える。

trで置換してやればOK

ソース

実行結果

government of the people, by the people, for the people, shall not perish from the earth

が答え。

リンカーンのゲティスバーグ演説の名文ですね。

Sponsor Link

スポンサーリンク

Sponsor Link

スポンサーリンク

-Perl

Copyright© bacchi.me , 2018 AllRights Reserved.