pl- 시저의 암호
평 문 a b c d e f g h i j k l m n o p q r s t u v w x y z 암호문 D E F G H I J K L M N O P Q R S T U V W X Y Z A B C 다음과 같이 암호화를 하면 된다. use strict; use warnings; my @alphabet=(a..z); my $diff=3; foreach (split//,){ my $word=$_; my $i=0; foreach(@alphabet){ print $alphabet[($i+$diff)%26] if $_ eq $word; $i++; } } 암호화만,,,,,,,,,, 해독은.............음.........어떻게 하지...
2009. 5. 16.