unit1.pas

来自「理论考试程序,可以自由下载,学习,请多多指点,批评」· PAS 代码 · 共 60 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    function pass(pstr:string):string;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 function Tform1.pass(pstr:string):string;
var str,str1:string;
i,j:integer;

begin
str:=pstr;
for i:=1 to length(str) do begin
//进行第一次变换
j:=(i*i*i mod (i+20))+(i*i mod (i+10))+i*2+1;
str1:=str1+chr(ord(str[i])+j); //第二次变换
j:=(i*i*i mod (i+10))+(i*i mod (i+20))+i*2+1;
str1:=str1+chr(ord(str[i])+j);
end;
pass:=str1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 edit2.Text:=pass(Trim(edit1.Text));
 listbox1.Clear;
 //listbox1.Items.LoadFromFile('c:')
 listbox1.Items.Add(trim(edit1.Text));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.Items.SaveToFile('c:\单机版\jm.dat');
end;

end.