|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.03.2011, 16:01 | #1 | |
Форумчанин
Регистрация: 02.09.2008
Сообщений: 340
|
Шифровка и Дешифровка
Всем доброго времени суток........делаю шифроку текста вроде все правильно
Код:
Не получается дешифровать текст в чем проблема скажите плиииз Код:
Цитата:
Последний раз редактировалось Claster; 26.03.2011 в 16:27. |
|
26.03.2011, 23:44 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
на редкость "неопрятный" код. Да и ошибок хватает.
1) цикл по строчкам мемо1 нельзя крутить до Count нужно до Count-1 Код:
ну и ещё то, что бросилось в глаза: вместо Ord(s[0]) гораздо правильнее использовать Length(s) p.s. процедуру дешифрации я даже не смотрел, хватило процедуры шифрации... |
27.03.2011, 00:42 | #3 | |
Форумчанин
Регистрация: 02.09.2008
Сообщений: 340
|
мне и не надо что бы он был печатный.......дело в том что в текстовых файлах я храню базу вопросов для теста и их надо сделать нечитабельными
над шифровкой по шаманил спасибо вроде все нормально шифрует: Код:
а вот с дешифровкой мне бы очень помогла ваша помощь, ошибок не выдает и в memo не добавляет ((( Код:
Цитата:
|
|
27.03.2011, 03:39 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Не, Вы всё таки не хотите меня слушать...
Поймите, как только в строке появляются НЕПЕЧАТНЫЕ символы, то для записи и, особенно, для ЧТЕНИЯ текстовые файлы перестают подходить. Потому что текстовый файл - это файл содержащий текст. Бинарный файл (в общем случае) текстовым НЕ ЯВЛЯЕТСЯ! Поэтому для работы с Вашим файлом используйте TFileStream. почитайте тему вот эту - StringList(Delphi) там, в этом сообщении я привёл пример шифрующий и расшифровающий Memo. Рекомендую воспользоваться этим кодом (можете ключевую фразу MKey заменить на свою. Желательно такую, чтобы она состояла из множества разнообразных символов и не бросалась в глаза при просмотре EXEшника). |
27.03.2011, 12:30 | #5 | |
Форумчанин
Регистрация: 02.09.2008
Сообщений: 340
|
ОК спасибо большое буду разбираться
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дешифровка нескольких переменных(delphi) | CAMOBAP | Помощь студентам | 1 | 19.01.2011 02:20 |
GnuPG decrypt - дешифровка файла | Veroonya | Общие вопросы по Java, Java SE, Kotlin | 0 | 18.06.2010 10:30 |
шифровка и дешифровка текста паролем | s2dentishe | Помощь студентам | 3 | 21.12.2009 09:41 |
Дешифровка файла в Делфи | Аретмий | Помощь студентам | 3 | 19.11.2009 21:55 |
Дешифровка | zvyagin1 | Фриланс | 3 | 02.12.2008 20:40 |