一个C加密算法换成delphi怎么写呢 ?

[udnui]

Const unsigned uint32_t M1 =A;
Const unsigned uint32_t IA1 =B;
Const unsigned uint32_t IC1 =C;
Void encrypt(uint32_t key, unsigned char* buffer, uint32_t size )
{
uint32_t idx = 0;
if( 0 = = key )
{
key = 1;
}
uint32_t mkey = M1;
if (0 = = mkey )
{
mkey = 1;
}
while( idx < size )
{
key = IA1 * ( key % mkey ) + IC1;
buffer[idx++] ^= (unsigned char)((key>>20)&0xFF);
}
}

[sololie]

const
  M1:Cardinal = $fffa;
  IA1:Cardinal = $fffb;
  IC1:Cardinal = $fffc;

procedure encrypt(key:Cardinal; buffer:PChar; size:Cardinal);
var
  idx, mkey:Cardinal;
begin
  idx:=0;
  if 0=key then key:=1;
  mkey:=M1;
  if 0=mkey then mkey:=1;

  while idx < size do
  begin
     key:= IA1*(key mod mkey)+IC1;
     buffer[idx]:= Char(Byte(buffer[idx]) xor ((key shr 20) and $ff));
     Inc(idx);
  end;
end;

// 测试，放个memo上去
// 点一次加密，再点一次还原
procedure TForm1.btn1Click(Sender: TObject);
var
 s:string;
 I, len: Integer;
begin
  s:='abc0123哈喽';
  len:= Length(s);
  encrypt(3453543121,PChar(s),len);

  mmo1.Clear;
  for I := 1 to len do
    mmo1.Lines[0]:= mmo1.Lines[0] + (IntToStr(ord(s[i])) + ' ')
end;

[sololie]

代码俺在d2007上编译通过，也测试过，没有你说的内存出错之类的。自己研究研究吧，看球了

[udnui]

buffer[idx]:= Char(Byte(buffer[idx]) xor ((key shr 20) and $ff)); 这行提示内存出错?