lazarus：使用DCPrc4進行字符串加密

lazarus默認沒有安裝DCPcrypt控件，需要從Package-online Package manager進行安裝，安裝速度很快。

字符串加密：

procedure TForm1.ButtonEnCryptClick(Sender: TObject);
var
  i: integer;
  Cipher: TDCP_rc4;
begin
  if EditKey.Text<>'' then begin
    Cipher:= TDCP_rc4.Create(Self);
    Cipher.InitStr(EditKey.Text,TDCP_sha1);
    EditEncrypted.Text:=Cipher.EncryptString(EditClear.Text);
    Cipher.Burn;
    Cipher.Free;
    EditClear.Clear;
  end;
end;  

解密代碼：

procedure TForm1.ButtonDeCryptClick(Sender: TObject);
var
  i: integer;
  Cipher: TDCP_rc4;
begin
  if EditKey.Text<>'' then begin
    Cipher:= TDCP_rc4.Create(Self);
    Cipher.InitStr(EditKey.Text,TDCP_sha1);
    EditClear.Text:=Cipher.DecryptString(EditEncrypted.Text);
    Cipher.Burn;
    Cipher.Free;
    EditEncrypted.Clear;
  end;
end; 

加密：

解密：