Дешифровка по кодовому слову

[1eHuH]

Доброго времени суток читающему это сообщение. перейду сразу к вопросу - нужно найти правильный метод шифрования.
У меня имеется всё, кроме самого метода, имеется оригинальный текст, ключевое слово из 16 символов (4 по 4 через -) и зашифрованный текст.
Пожалуйста, если есть чем помочь, буду очень благодарен.


По заявлению преподавателя тут всё очень просто, неделю разбирался, ничего не могу сделать подходящее, могу выслать свои пробы, но боюсь будете смеятся.

[Sciv]

Высылайте, заинтересовало:

landgrafsd@mail.ru

[gaw4]

ну так выложите тут --- оригинальный текст, ключевое слово из 16 символов (4 по 4 через -) и зашифрованный текст.
и среду прогр. уточните

[gaw4]

[OFF] Переменная "i": 20 лет на рынке счетчиков! 100+ [/OFF]

[1eHuH]

Среда Delphi


Оригинальный текст:
aaaaaaaaaaaaaaaa
ssssssssssssssss
dddddddddddddddd
ffffffffffffffff

Шифрованный:
тттттттттттттттт
ааааааааааааааааћ
ччччччччччччччччћ
ххххххххххххххх


Ключевое слово:
kkkk-kkkk-kkkk-kkkk

Код программы(только не смейтесь):

 unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    pgc1: TPageControl;
    ts1: TTabSheet;
    mmo2: TMemo;
    mmo1: TMemo;
    btn1: TButton;
    edt1: TEdit;
    ts2: TTabSheet;
    mmo3: TMemo;
    mmo4: TMemo;
    edt2: TEdit;
    btn2: TButton;
    lbl1: TLabel;
    lbl2: TLabel;
    tmr1: TTimer;
    lbl3: TLabel;
    tmr2: TTimer;
    lbl4: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TrimWorkingSet;
    procedure tmr1Timer(Sender: TObject);
    procedure edt1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure tmr2Timer(Sender: TObject);
    procedure edt2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
         private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x:Integer=0;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
mmo2.Text:='';
x:=0;
tmr1.Enabled:=True;
end;




procedure TForm1.btn2Click(Sender: TObject);
var
s,pass :string;
i,j,h,b:Integer;
begin
mmo4.Text:='';
x:=36;
tmr2.Enabled:=True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.DoubleBuffered:=true;
TrimWorkingSet;

end;

procedure TForm1.TrimWorkingSet;
var MainHandle: THandle;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID);
SetProcessWorkingSetSize(MainHandle, DWORD(-1), DWORD(-1));
CloseHandle(MainHandle);
end;
end;


procedure TForm1.tmr1Timer(Sender: TObject);
var
s,pass :string;
i,j,h,b:Integer;
begin
X:=x+1;
s:=mmo1.Text;
i:=Length(s);
pass:=edt1.Text ;
j:=Length(pass);
h:=Round(i/j);
for b:=1 to h do
pass:=pass+pass;
pass:=Copy(pass,1,i);
for b:=1 to i do
begin
if ((Ord(s[b])+ord(pass[b])))>255 then
mmo2.text:=mmo2.text+' '+chr((Ord(s[b])+ord(pass[b]))-255+x)
else
mmo2.Text:=mmo2.text+' '+chr((Ord(s[b])+ord(pass[b]))+x);
lbl3.Caption:='X= '+inttostr(x);
end;
end;

procedure TForm1.edt1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=32)and (tmr1.Enabled=True) then
tmr1.Enabled:=False
else
tmr1.Enabled:=True;
end;

procedure TForm1.tmr2Timer(Sender: TObject);
var
s,pass :string;
i,j,h,b:Integer;
begin
X:=x;
s:=mmo3.Text;
i:=Length(s);
pass:=edt2.Text ;
j:=Length(pass);
h:=Round(i/j);
for b:=1 to h do
pass:=pass;
pass:=Copy(pass,1,i);
for b:=1 to i do
begin
if (Ord(s[b])-ord(pass[b]))<1 then
mmo4.text:=mmo4.text+chr((Ord(s[b])-ord(pass[b]))+255-x)
else
mmo4.Text:=mmo4.text+chr((Ord(s[b])-ord(pass[b])-x));
lbl1.Caption:=IntToStr((Ord(s[b])));
lbl4.Caption:='X= '+inttostr(x);
end;
end;

procedure TForm1.edt2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=32)and (tmr2.Enabled=True) then
tmr2.Enabled:=False
else
tmr2.Enabled:=True;
end;

end.

[1eHuH]

Доброе утро)) Есть какие нибудь предложения?

[Sciv]

Есть вопросы. В последней строчке шифровки точно 15 символов? а не 16?

[1eHuH]

Сообщение от Sciv

Есть вопросы. В последней строчке шифровки точно 15 символов? а не 16?

Везде по 16 может просто ошибся, Я могу вам выдать любой зашифрованный текст по любому вашему ключевому слову из 16 символом если это поможет в поиске метода.

[Serge_Bliznykov]

ух ты!
тогда зашифруйте, плиз строчку
ABCDEFGHABCDEFGHABCDEFGH
ключом
1111-1111-1111-1111

потом, эту же строчку:
ABCDEFGHABCDEFGHABCDEFGH
ключом
FFFF-FFFF-FFFF-FFFF


результаты шифрования в студию...

[1eHuH]

Сообщение от Serge_Bliznykov

ух ты!
тогда зашифруйте, плиз строчку
ABCDEFGHABCDEFGHABCDEFGH
ключом
1111-1111-1111-1111

потом, эту же строчку:
ABCDEFGHABCDEFGHABCDEFGH
ключом
FFFF-FFFF-FFFF-FFFF


результаты шифрования в студию...

ух ты на это нужно время, надо к преподавателю идти, он может любые такие комбинации нам давать, чтобы нам проще было найти метод.
P.S. методом подбора у меня ничего не получилось.