我正在使用Lua编写RSA加密脚本，借助于BigNumbers（http://oss.digirati.com.br/luabignum/bn/index.htm），现在基本上已经有一个可用的代码。然而，我遇到了麻烦，因为在一小部分情况下，加密后的原始消息无法解密为原始消息，我无法找出原因。请注意，这将处理非常大的数字（例如1.08e107）。下面是我编写的完整代码，但这里是它应该执行的步骤。
以下函数是确定该消息的方法：
最后，为了使这更易于管理，我必须将其分解成段。为了节省时间和代码，我已将实际加密与将明文转换为数字格式的加密相结合，尽管出于调试目的添加了解密功能。该代码还考虑在消息中添加0以确保每个分组中有4位数。这就是我的问题所在；消息和解密应该是相同的。
print(rsa_getkey())
p: 83
q: 23
n: 1909
e: 19
d: 1899
phi: 1804
上述代码设置了关键值，其中公钥由[n，e]表示，私钥由[n，d]表示。以下是相应的代码：
function rsa_getkey()
rsa_e = 0
local primes = {2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 57, 71, 73, 79, 83, 89, 97}
math.randomseed = os.time()
rsa_p = primes[math.random(5,#primes)]
rsa_q = rsa_p
while rsa_q == rsa_p do
math.randomseed = os.time()
rsa_q = primes[math.random(5,#primes)]
end
rsa_n = rsa_p*rsa_q
rsa_phi = (rsa_p-1)*(rsa_q-1)
while rsa_e == 0 do
local prime = primes[math.random(1,10)]
if rsa_phi%prime > 0 then
rsa_e = prime
end
end
for i = 2, rsa_phi/2 do
if ((i*rsa_phi)+1)%rsa_e == 0 then
rsa_d = ((i*rsa_phi)+1)/rsa_e
break
end
end
return "p: ",rsa_p,"\nq: ",rsa_q,"\nn: ",rsa_n,"\ne: ",rsa_e,"\nd: ",rsa_d,"\nphi: ",rsa_phi,"\n"
end
在确定了密钥之后，您可以加密消息。为了将纯文本（“Hello world”）转换为数字系统，我创建了一个函数，它并不完全，但以最基本的形式工作：
print(rsa_plaintext("Hello_world"))
1740474750625850534739
以下函数是确定该消息的方法：
function rsa_plaintext(x)
local alphanum = {A=10, B=11, C=12, D=13, E=14, F=15, G=16, H=17, I=18, J=19, K=20, L=21, M=22, N=23, O=24, P=25, Q=26, R=27, S=28, T=29, U=30, V=31, W=32, X=33, Y=34, Z=35, a=36, b=37, c=38, d=39, e=40, f=41, g=42, h=43, i=44, j=45, k=46, l=47, m=48, n=49, o=50, p=51, q=52, r=53, s=54, t=55, u=56, v=57, w=58, x=59, y=60, z=61, _=62}
rsa_cipher = ""
for i = 1, #x do
local s = x:sub(i,i)
rsa_cipher = rsa_cipher .. alphanum[s]
end
return rsa_cipher
end
最后，为了使这更易于管理，我必须将其分解成段。为了节省时间和代码，我已将实际加密与将明文转换为数字格式的加密相结合，尽管出于调试目的添加了解密功能。该代码还考虑在消息中添加0以确保每个分组中有4位数。这就是我的问题所在；消息和解密应该是相同的。
print(rsa_group("Hello world"))
Msg: 1740
Encrypted: 1560
Decrypted: 1740
Msg: 4747
Encrypted: 795
Decrypted: 929
Msg: 5062
Encrypted: 1659
Decrypted: 1244
Msg: 5850
Encrypted: 441
Decrypted: 123
Msg: 5347
Encrypted: 429
Decrypted: 1529
Msg: 3900
Encrypted: 1244
Decrypted: 82
这可以通过以下两个函数实现：
function rsa_group(str)
local cipher = {}
local str = rsa_plaintext(str:gsub(" ","_"))
local len = #str
local fillin = ""
if len%4 ~= 0 then
fillin = string.rep(0,(4-len%4))
end
str = str..fillin
for i = 1, #str, 4 do
local s,e = i, i+3
local part = str:sub(s,e)
print(rsa_encrypt(part))
end
end
function rsa_encrypt(msg)
bnrsa_e = BigNum.new(rsa_e)
bnrsa_n = BigNum.new(rsa_n)
bnmsg = BigNum.new(msg)
result = 0
quo = BigNum.new()
rsa_c = BigNum.new()
result = BigNum.pow(bnmsg, bnrsa_e)
BigNum.div(result, bnrsa_n, quo, rsa_c)
bnrsa_c = BigNum.new(rsa_c)
bnrsa_d = BigNum.new(rsa_d)
result = 0
quo = BigNum.new()
rsa_C = BigNum.new()
result = BigNum.pow(bnrsa_c, bnrsa_d)
BigNum.div(result, bnrsa_n, quo, rsa_C)
return "Msg:",msg,"\nEncrypted:",rsa_c,"\nDecrypted:",rsa_C,"\n"
end
现在，我知道这是一个很长的问题，并且问题本身有许多组成部分。我只是不知道如何找出我的问题所在。我是否遗漏了什么？一双新的眼睛可能是我的解决方案。
M与模数互质，但是指数必须与phi(n)互质。 - Iridium