4
:
: .
:
IBM PC/AT.
Windows 2000/XP/2003/Vista/7; Windows 2003 Server.
: .
1.
2.
Dekart Private Disk 2.04
Files Cipher 1.4
Animabilis RS File Encryption 1.2
CryptoFan 2 Lite : build 4
X-EXE 1.5
Easy/Encrypt Decrypt (EED for Windows) 2Final
halcyon 1.6
Text Lock 1.0
Protector 1.0
Hiron 2.9.2.1
3.
Easy/Encrypt Decrypt Hiron 2.9.2.1
4. :
Easy/Encrypt Decrypt .
Hiron 2.9.2.1 . . , .
2 , . ( 1- , ) . . , , . , 3. .
9*. Delphi 7, c .
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
res:String;
i,j:Word;
begin
If Edit1.Text='' then
begin
ShowMessage (' "". !');
|
|
Exit;
end;
If Edit2.Text='' then
begin
ShowMessage (' "". !');
Exit;
end;
SetLength (res,Length (Edit2.Text)); { "Edit2.Text" "res"}
i:=1;
j:=1;
Repeat
Res[i]:=Chr (Ord (Edit2.Text[i])+Ord(Edit1.Text[j]));
Inc (i);
Inc(j);
If j>length (Edit1.Text) then
j:=1;
Until i>Length (Edit2.Text);
Edit3.Text:=res;
end;
procedure TForm1.Button2Click(Sender: TObject);
Var
text:String;
i,j:Word;
begin
If Edit1.Text='' then
begin
ShowMessage (' "". !');
Exit;
end;
If Edit2.Text='' then
begin
ShowMessage (' "". !');
Exit;
end;
SetLength (text,Length (Edit2.Text));
i:=1;
j:=1;
Repeat
text[i]:=Chr(Ord (Edit2.Text[i])-Ord (Edit1.Text[j]));
Inc(i);
Inc(j);
If j>Length (Edit1.Text)then
j:=1;
Until i>Length (Edit2.Text);
Edit4.Text:=text;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
: .