代码高尔夫: Diffie-Hellman密钥交换

Question

在ITAR时代，有一个popular sig that performed Diffie-Hellman key exchange

#!/usr/bin/perl -- -export-a-crypto-system-sig Diffie-Hellman-2-lines
($g,$e,$m)=@ARGV,$m||die"$0 gen exp mod\n";print`echo "16dio1[d2%Sa2/d0<X+d
*La1=z\U$m%0]SX$e"[$g*]\EszlXx+p|dc`

使用现代数据中心，这可以简化为：

dc -e '16dio???|p'

虽然使用模幂运算命令的现代dc形式('|‘通过有效的指数倍增来计算g^e%m)可能是除APL之外无与伦比的形式，但原始形式是否可以改进？请记住，e和m值将非常大；出于加密安全性的考虑，它们都在1024位的数量级上。

Answer 1

我非常怀疑有什么东西能超过现代dc版本！下面是Python：

def f(g,x,m):
 def h(n):return int(`n`,16)
 return h(g)**h(x)%h(m)

它在Python3.0中不会像我们的phased out reverse quotes那样工作。