I'm getting this error: "Unrecognized character \x05 at ./rsa line 2." from this script:

#!/usr/bin/perl
print pack"C*",split/\D+/,Echo "16iII*o\U@{$/=$z;[(pop,pop,unpack"H*",<>
)]}\EsMsKsN0[lN*1lK[d2%Sa2/d0<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<J]dsJxp"|dc[

There is a website about this script, but I could find nothing about my specific error. I'll give the site here just in case it might help someone help me out.


http://www.cypherspace.org/adam/rsa/story.html

Any help is greatly appreciated.

Here is a longer version of the same script:

#!/usr/bin/perl -- export-a-crypto-system sig, RSA in 5 lines of PERL:
($s,$k,$n)=@ARGV;$w=length$n;$k="0$k"if length($k)&1;$n="0$n",$w++if$w&1;die
"$0 -d|-e key mod <in >out\n"if$s!~/^-[de]$/||$#ARGV<2;$v=$w;$s=~/d/?$v-=2:
$w-=2;$_=unpack('B*',pack('H*',$k));s/^0*//g;s/0/d*ln%/g;s/1/d*ln%lm*ln%/g;
$c="1${_}p";while(read(STDIN,$m,$w/2)){$m=unpack("H$w",$m);chop($a= Echo
16o16i\U$m\Esm\U$n\Esn$c|dc);print pack('H*','0'x($v-length$a).$a);}

This time I recieve this error: Unrecognized character \x05 at ./rsa2 line 5.

Obviously the same error and problem, just thought someone might be able to help me if the saw a longer version of the same script. Perhaps I'm missing some sort of math module? I know for a fact that both versions of this script do in fact work. Any help is appreciated.

Okay, I can get this version of the script to run:

#!/usr/bin/perl -s
do 'bigint.pl';($_,$n)=@ARGV;s/^.(..)*$/0$&/;($k=unpack('B*',pack('H*',$_)))=~
s/^0*//;$x=0;$z=$n=~s/./$x=&badd(&bmul($x,16),hex$&)/ge;while(read(STDIN,$_,$w
=((2*$d-1+$z)&~1)/2)){$r=1;$_=substr($_."\0"x$w,$c=0,$w);s/.|\n/$c=&badd(&bmul
($c,256),ord$&)/ge;$_=$k;s/./$r=&bmod(&bmul($r,$r),$x),$&?$r=&bmod(&bmul($r,$c
),$x):0,""/ge;($r,$t)=&bdiv($r,256),$_=pack(C,$t).$_ while$w--+1-2*$d;print}

However I get this output:

Out of memory!

Anyone have any ideas at all?

In case anyone cares, it was pointed out to me that there were two backticks in the script that somehow got turned into a capital for me. The script functions and should read:

#!/usr/bin/perl
print pack"C*",split/\D+/,`echo "16iII*o\U@{$/=$z;[(pop,pop,unpack"H*",<>
)]}\EsMsKsN0[lN*1lK[d2%Sa2/d0<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<J]dsJxp"|dc`