$a='($#ARGV+1)or
print"$0 <key>\n"and die;($p=
shift)=~s/[^a-zA-Z]//g;@q=map{$_<=
90?(91-$_)%032:$_-97}unpack"C*",$p||"a";
for($b=26;$b--;){foreach(0..255){$d{$_}{$b}=
$_;}for($o=26;$o--;map{$d{$_+$o}{$b}=$_+($o+$b)
%26}(97,65)){}}for($o=0;$i=<>;){foreach(unpack"C*"
,$i){($c=chr$d{$_}{$q[$o]})=~/[a-zA-Z]/&&$o++;$o%=$#q
+1;print$c;} }';$p='mjh{o/a-nA-I//ut;pfiwl}<>;frwnc
"\f";';$i=' gma Ahewdyoq::Sdpn;($x=\'I>)OF4]EUT M`
0_99A)O4G-Q U+ *76<1YC/V&.*(GACP`42V+3=Yl[[QVT HH
XDIF(8\]<^ ;, ^hI`7Q=-6 5H6.URBR/7+xSDNE^]!Q? L)
@T7LA],3]U VU $2SE G k^;I >K?H;>S9K*ML:\/Y 3,
;JV!$9BW% > Y2 _ 49* GIP](LH=2C.=S0: :&
@Z\(YIA[#E Z A .O IGYiNHF-C8>Y4Z /M
6R1S6k^@=)O<S SD]PNN1 4 PV0AP:DZVQ6! ^M
7D>52EMB=G60E H+ 5 -RB4`,4$E12@ 18
8:>)P`_<]\/X0G W; I #)O N&]< 5#!75E0F @_ %
RKJD^&^4[-&^O5N P N*S1QBC C#V ?=JORR.C ?9 KZ
,C-]+D)!)AHJ,S$< 2]<782 ) 2 GX D61B%T 4H 6
MX+&(P*3<)L`Ci\/I. \X( +XK.$ B` YI\#0B) D$ S
- LBB (9,Z)98KYR\2 2988H oU -J\V0Z -+ O
< $^ *(3D)3(8XE+T ,]/ )0%L7:@8 U-0 S
@ E: 1\/O%A[BT*QQ[Q LPYJ;Z `O D4
H 5I/BA36S_@K0+l@^ S3.`9]K @hD
,G5*,FM`/+IMT@0ZSD I=?%[RjBOA DD1
HF+= \=3;4`6SX+<_(M=- 6 # 43&N\N(Q4Mi F&;[
`97_%@`%4bUI.,5Ti _@];9( h058\H/<13XGQE WJ
&Y )P:V+6>L?nY!T C RFXD\(D\9BF>NT]5`IB !^
;P N7 7 =[#%Y(!M8 M 74Qo@<JD$Z,H=ZJ\3+=%><AN (,
N # _ ]$9@XJkW == </FF\LxLR:88/Y[&B7FXG!B/!1F.B_=L EU
4x$*b&UP (OO;V]L75APV0 CP4ZM# ARD=UQ;RW%EEF;
;<+ RK6.Y8O/<3M &_\7VUI \!> D)h+O`
\')=~ e/\m//oe; $w=~ q/wc/\'"/
;{; }yrye muoiinkwze(ojntur(\'g*\'
,$x ) );';'a'=~/c(?{ {;
;} xnhx ($v )
; })|o[ '
," ]*(?{
( eesb$b
) })|a[
]*(?{
eval (
($a) )
})/; |