谁有什么好的加,解 密函数?哪来参考一下,谢谢!(50分)

  • 主题发起人 主题发起人 board
  • 开始时间 开始时间
B

board

Unregistered / Unconfirmed
GUEST, unregistred user!
谁有什么好的加,解 密函数?哪来参考一下,谢谢!
 
?字符串?
 

//RSA的加密和解密函数,等价于(m^e) mod n(即m的e次幂对n求余)
function Encrypt_Decrypt(m: Int64; e: Int64=$2C86F9; n: Int64=$69AAA0E3): Int64;
var
a, b, c: Int64;
begin
a:=m;
b:=e;
c:=1;
while b<>0 do
if (b mod 2)=0
then begin
b:=b div 2;
a:=(a * a) mod n;
end
else begin
b:=b - 1;
c:=(a * c) mod n;
end;
Result:=c;
end;
 
to WRainbug!
是的,string型的
 
to wjames
Encrypt_Decrypt函数是加解密一块的吗?
 
wjames那个加解密函数是int型的,请问
怎样转换将string型的转换成int64型?
 
不是有个IntToStr和StrToInt吗
 
to 天空还下着沙
用StrToInt转换提示出错
 
后退
顶部