小编C H*_*mon的帖子

我正在尝试加密字符串,但通常只有部分字符串被加密.我没有看到其他人遇到这个问题,所以我可能做错了什么.我在Delphi 2007和2009中遇到了同样的问题.我使用的是Win XP SP3.这是代码:

procedure TForm1.Button1Click(Sender: TObject);
var
  sTestToConvert: ansistring;
  sPassword: ansistring;
begin
  sTestToConvert := trim(Memo1.Text);
  sPassword := trim(Edit1.Text);
  madCrypt.Encrypt(sTestToConvert, sPassword);
  Memo2.Text := sTestToConvert;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  sTextToConvert: ansistring;
  sPassword: ansistring;
begin
  sPassword := trim(Edit1.Text);
  sTextToConvert := trim(memo2.Text);
  madCrypt.Decrypt(sTextToConvert, sPassword);
  Memo1.Text := sTextToConvert;
end;

尝试使用OldEncrypt和OldDecrypt时,我也遇到了同样的问题.关于导致问题的原因是什么？谢谢.