unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, Menus;

type

  { TForm1 }

  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    MainMenu1: TMainMenu;
    Memo1: TMemo;
    Memo2: TMemo;
    MenuItem1: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem15: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    Panel2: TPanel;
    SaveDialog1: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure MenuItem10Click(Sender: TObject);
    procedure MenuItem11Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
    procedure MenuItem7Click(Sender: TObject);
    procedure MenuItem8Click(Sender: TObject);
    procedure MenuItem9Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

var
a,b,c:string;
{$R *.lfm}

{ TForm1 }

procedure TForm1.MenuItem1Click(Sender: TObject);
begin

end;

procedure TForm1.MenuItem2Click(Sender: TObject);
begin
  if savedialog1.execute then
     memo1.Lines.SavetoFile(savedialog1.filename);
end;

procedure TForm1.MenuItem6Click(Sender: TObject);
begin
 if opendialog1.Execute then
    memo1.lines.loadfromFile(opendialog1.Filename);
end;

procedure TForm1.MenuItem7Click(Sender: TObject);
begin
  Halt
end;

procedure TForm1.MenuItem8Click(Sender: TObject);
begin
  if savedialog1.execute then
     memo2.Lines.SavetoFile(savedialog1.filename);
end;

procedure TForm1.MenuItem9Click(Sender: TObject);
begin
  if opendialog1.Execute then
    memo2.lines.loadfromFile(opendialog1.Filename);
end;

procedure TForm1.MenuItem11Click(Sender: TObject);
var i,j,d,f:integer;
begin
  memo2.lines.clear;
  d:=1;
f:=1;
  a:=memo1.lines[d];
memo2.lines.add(inttostr(ord(a[f])));
for i:=0 to memo1.lines.count DO
Begin
b:='';
a:=memo1.lines[i];
for j:=1 to length(a) DO
begin
if ((ord(a[j])>64) AND (ord(a[j])<71) OR (ord(a[j])>71) And (ord(a[j])<88)) then
b:=b+chr(ord(a[j])+3) else Begin
if ((ord(a[j])>87) AND (ord(a[j])<91)) then
b:=b+chr(ord(a[j])-23) else begin
if ((ord(a[j])>96) AND (ord(a[j])<103) OR (ord(a[j])>103) AND (ord(a[j])<120)) then
b:=b+chr(ord(a[j])-29) else begin
if ((ord(a[j])>119) AND (ord(a[j])<123)) then
b:=b+chr(ord(a[j])-55) else begin
if ord(a[j])=32 then
b:=b+chr(74) else begin
if ((ord(a[j])=71) OR (ord(a[j])=103)) then
b:=b+chr(63) else begin
if ord(a[j])=60 then
b:=b+chr(219) else begin
b:=b+chr(ord(a[j])+3);
end;
end;
end;
end;
end;
end;
End;
end;
end;
memo2.lines.add(b);
d:=1;
f:=1;
a:=memo1.lines[d];
memo2.lines.add(inttostr(ord(a[f])));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  memo1.lines.clear;
  memo2.lines.clear;
end;

procedure TForm1.MenuItem10Click(Sender: TObject);
var i,j:integer;
begin
memo1.lines.clear;
for i:=0 to memo2.lines.count DO
Begin
b:='';
a:=memo2.lines[i];
for j:=1 to length(a) DO
begin
if ((ord(a[j])>67) AND (ord(a[j])<74) OR (ord(a[j])>74) And (ord (a[j])<91)) then
b:=b+chr(ord(a[j])+29) else Begin
if ((ord(a[j])>64) AND (ord(a[j])<68)) then
b:=b+chr(ord(a[j])+55) else begin
if ord(a[j])=74 then
b:=b+chr(32) else begin
if ord(a[j])=63 then
b:=b+chr(103) else begin
if ord(a[j])=219 then
b:=b+chr(60) else begin
b:=b+chr(ord(a[j])-3);
end;
end;
end;
end;
End;
end;
end;
memo1.lines.add(b);
end;

end.