Шифрование AES

[Samara]

День добрый всем.Опыта работы в Delphi практически нету.Так получилось,что тема моей курсовой работы "Разработка программы шифрования AES ",и я стал искать саму программу + исходник в интернете,нашел то что мне нужно на сайте

http://www.kursovik.com/programming/...70f87a8dc85f4b

Только денег на нее у меня нету

После долгих поисков я нашел демо-версию этой программы + исходник к ней,сама демо версия рабочая,но немного не сделанная до конца.

Суть этой программы такая,что она зашифровывает любой текст и расшифровывает(извините за КЭПа).

Там есть перключатель Шифрование/Дешифрование,при включенном шифровании программа использует файл EncodedFile.txt
А при включенном Дешифровании программма должна использовать DecodedFile.txt,но этого не происходит ,и сама программа продожает использовать EncodedFile.txt,что очень огорчает

я предполагая что ошибка может быть в этом месте,но я могу быть неправ,ибо опыта работы нету.

procedure TForm1.Button1Click(Sender: TObject);
var stpath,stext : string;
begin
if OpenDialog1.Execute then
begin
Edit1.Text := OpenDialog1.FileName;
MemoIn.Lines.LoadFromFile(Edit1.tex t);
Fpath := Edit1.Text;
stpath := ExtractFileDir(Fpath);
stExt := ExtractFileExt(FPath);
If CBOpt.Text = 'Шифрование' then
begin
LName.Caption := 'Имя зашифрованого файла:';
Fpath := stpath + '\EncodedFile'+stExt;

LPath.Caption := FPath;
end
else
begin
LName.Caption := 'Имя дешифрованого файла:';

Fpath := stpath + '\DecodedFile'+stExt;
LPath.Caption := FPath;
end;
end;
end;


Я присоединю к своему посту 2 скрина самой программы с ошибкой,и сам архив программы такой,какой я скачал с интернета.

Искренне надеюсь на вашу помощь и понимание.

[Serge_Bliznykov]

а Вы не хотите посмотреть в сторону бесплатной библиотетки.

согласно wikipedia - AES:

Advanced Encryption Standard (AES), также известный как Rijndael

а в библиотеке Delphi Encryption Compendium Part I-III есть 40 алгоритмов шифрования, в том числе Rijndael... библиотека полностью в исходных текстах, думаю, что выдрать оттуда нужное будет возможно...

[Samara]

Мне хотелось бы исправить эту программу,а не делать заного.Тут код рабочий,надо только исправить кнопку

[Євгеній Бєлік]

А можете сказать(желательно детально) как дешифровать в программе которая указана ранее, а то у меня с ошыбкой получаеться, помогите!!!