$cyphertext = <>;
    $len = length($cyphertext)-1;
    @array = split(//, $cyphertext);
    for ($i=0;$i<$len;$i++) {
       $char = chr((ord(@array[$i])...