encrypt.pas

DEILPHI写的QQ安全软件源码!功能全套,该有的全有了,欢迎交流

//南域剑盟  http://www.98exe.com
unit  Encrypt;

interface   

procedure Encode(var Str: string); // 加解密函数

implementation

  // 加解密函数     『要处理的串』
procedure Encode(var Str: string);
const
  XorKey: array[0..7] of Byte = ($4C, $69, $75, $5F, $4D, $61, $7A, $69);//($4D, $75, $6D, $61, $52, $65, $6E);//($4C, $69, $75, $5F, $4D, $61, $7A, $69);
var
  I, J: Integer;
  P: PByte;
begin
  P := @Str[1];
  J := 0;
  for I := 1 to Length(Str) do
  begin
    P^ := P^ xor XorKey[J];
    Inc(P);
    Inc(J);
    J := J mod 8;
  end;
end;

end.