简单的加密、解密方法(摘)

http://edysoftware.com/word/

http://edysoftware.com/word/source/2008/08/14/delphi-simple-encrypt-and-decrypt.html#more-34

function Decrypt(const S: String): String;
var
I: byte;
t:string;
begin
for I := 1 to Length(S)div 2 do begin
t:=t+chr(ord(s[i])-64);
end;
result:=t;
end;

function Encrypt(const S: String): String;
Var
I: byte;
t:string;
begin
for I := 1 to Length(S) do begin
t:=t+chr(ord(s[i])+64);
end;
result:=t+t;
end;