delphi简单文本加密算法

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

const

  c1=52845;

  c2=22719;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

  i:integer;

  sSTR,sResult:string[100];

  sPWS:word;

begin

  sSTR:=edit2.Text;

  sPWS:=strtoint(edit1.Text);

  sResult[0]:=sSTR[0];

  for i:=1 to length(sSTR) do

  begin

    sResult[i]:=char(byte(sSTR[i]) xor (sPWS shr 8));

    sPWS:=(byte(sResult[i])+sPWS)*c1+c2;

  end;

  edit2.Text:=sResult;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  i:integer;

  sSTR,sResult:string[100];

  sPWS:word;

begin

  sSTR:=edit2.Text;

  sPWS:=strtoint(edit1.Text);

  sResult[0]:=sSTR[0];

  for i:=1 to length(sSTR) do

  begin

    sResult[i]:=char(byte(sSTR[i]) xor (sPWS shr 8));

    sPWS:=(byte(sSTR[i])+sPWS)*c1+c2;

  end;

  edit2.Text:=sResult;

end;

end.