delphi给字符串的ascii码加或减

来源：百度知道 编辑：UC知道 时间：2024/05/20 20:48:51
我想用delphi 简单地给字符串的ascii码加一或加N,

也就是一个简单的加密,只不过是用delphi来加密,

谁能帮帮? 最好把整段代码贴出!!

function encode(S: string,N:integer): string;
//N表示加多少，假定ASCII码128个
var
i,j:integer;
begin
for i:=1 to length(S) do
begin
Result:=Result+chr(((ord(S[i-1])+N)mod 128));
end;
end;

用成熟的加密算法，看上去好一些。
简单加密就用异或吧
加密B3 := B1 Xor B2 ; B1是源，B2是密码字节，B3是加密后的字节
解密则B4 :=B3 Xor B2 ;解出后B4=B1

那还不如直接 Xor 运算

简单点就 XOR,复杂点就MD5