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++;

}

}

암호화만,,,,,,,,,,

해독은.............음.........어떻게 하지...