如何使用用 Perl 编写的“RSA 算法的三行版本”？

Question

J. Hoffstein 等人所著的“数学密码学简介”一书。谈到了用 Perl 实现的 RSA 算法的三行实现，人们用它来抗议美国政府对密码学的审查：

为了抗议政府的政策，人们用一种名为 perl 的编程语言编写了 RSA 算法的三行版本，并将其印在 T 恤和汽水罐上，从而将这些产品制成军需品。原则上，在从纽约飞往欧洲的航班上穿着“支持 RSA”的 T 恤会被处以巨额罚款和 10 年监禁。

我在网上查找了实际的 Perl 程序，并在这里找到了它：http : //www.cypherspace.org/rsa/story.html。

#!/bin/perl -s-- -export-a-crypto-system-sig -RSA-3-lines-PERL
$m=unpack(H.$w,$m."\0"x$w),$_=`echo "16do$w 2+4Oi0$d*-^1[d2%Sa
2/d0<X+d*La1=z\U$n%0]SX$k"[$m*]\EszlXx++p|dc`,s/^.|\W//g,print
pack('H*',$_)while read(STDIN,$m,($w=2*$d-1+length$n&~1)/2)

以上等价于以下内容：

#!/bin/perl -s --

$w = ( 2 * $d - 1 + length($n) ) & ~1;

while (read(STDIN, $m, $w/2)) {
   $m = unpack(H.$w, $m.("\0"x$w));
   $_ = `echo "16do$w 2+4Oi0$d*-^1[d2%Sa2/d0<X+d*La1=z\U$n%0]SX$k"[$m*]\EszlXx++p | dc`;
   s/^.|\W//g;
   print pack('H*', $_);
}

我的问题是：我将如何使用这个程序来加密和解密一段数据？该程序是否也支持密钥生成，或者我是否需要已经拥有密钥？