对整数加密?(50分)

我想对整数加密,加密后还是整数,效率高的加密强度大的有那些方法?

最简单的加密方式——强度为4×32＝128bit []

function IntEnc(Value: Integer; const K1, K2, K3, K4: Integer):Integer;
begin
Result:=(((Value+K1) xor K2) - K3) xor K4;
end;

function IntDec(Value: Integer; const K1, K2, K3, K4: Integer):Integer;
begin
Result:=(((Value xor K4) + K3) xor K2) - K1;
end;

除了整数运算之外，还可以将整数看成长度为4的字符串，进行字符串加密，只要加密算
法是等长的就成——将加密的4个字节的结果再强制转化为整数就完事了。字符串加密的算
法非常多，在这里，偶自卖自夸——推荐自创的极难破解的算法：
http://www.delphibbs.com/keylife/iblog_show.asp?xid=7088

[]