简单字符加密

简单字符加密    2010-11-27 14:10?

function E_code(S: string): string;
var
  n, i: integer;
  str: string;
begin
  n := length(s);
  str := '';
    
  for i := 1 to n do
  begin
    str := str + char(Ord(s[i]) + 2);
  end;
    
  E_code := str;
end;


function D_code(s: string): string;
var
  n, i: integer;
  str: string;
begin
  n := length(s);
  str := '';
    
  for i := 1 to n do
  begin
    str := str + char(ord(S[i]) - 2);
  end;
    
  D_code := str;
end;