7

J. Hoffstein 等人的《数学密码学概论》一书。谈到了 RSA 算法在 Perl 中的三行实现，人们用它来抗议美国政府对密码学的审查：

为了抗议政府的政策，人们用一种名为 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*', $_);
}

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

4

0 回答 0