|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.05.2010, 16:11 | #1 |
Новичок
Джуниор
Регистрация: 26.04.2010
Сообщений: 2
|
Шифрование AES
День добрый всем.Опыта работы в 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 скрина самой программы с ошибкой,и сам архив программы такой,какой я скачал с интернета. Искренне надеюсь на вашу помощь и понимание. |
09.05.2010, 16:31 | #2 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
а Вы не хотите посмотреть в сторону бесплатной библиотетки.
согласно wikipedia - AES: Цитата:
|
|
10.05.2010, 19:55 | #3 |
Новичок
Джуниор
Регистрация: 26.04.2010
Сообщений: 2
|
Мне хотелось бы исправить эту программу,а не делать заного.Тут код рабочий,надо только исправить кнопку
|
29.10.2011, 18:10 | #4 |
Пользователь
Регистрация: 29.10.2011
Сообщений: 52
|
А можете сказать(желательно детально) как дешифровать в программе которая указана ранее, а то у меня с ошыбкой получаеться, помогите!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
AES для Android | nalysnyk | Безопасность, Шифрование | 1 | 27.05.2010 14:11 |
Шифрование | SnowSin | Помощь студентам | 0 | 13.12.2009 12:14 |
Шифрование AES | SergunchikSK | Общие вопросы Delphi | 13 | 25.08.2009 10:36 |