很流行的一个加密算法,也很安全
procedure EnCode(var strSrc:string;strMima:string)
var i,j,lenSrc,lenMima:integer;
begin
lenSrc:=length(strSrc);
lenMima:=length(strMima);
j:=1;
for i:=1 to lensrc do
begin
strSrc[i]:=PAnsiChar(strSrc[i]) xor Pansichar(strMima[j]);
if j>lenMima then j:=1;
end;
end;