|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
10.05.2012, 00:31 | #11 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,341
|
Какая версия дельфи?
Код предназначен для старых версий. Я компилировал в дельфи 2006. Шифрование не юникодовое - для символов 0..255.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
Последний раз редактировалось BDA; 10.05.2012 в 00:33. |
10.05.2012, 23:28 | #12 |
Пользователь
Регистрация: 06.05.2012
Сообщений: 22
|
Delphi XE2 4 update
я не особо пока разбираюсь в каком делфи какая кодировка еще есть вопрос не относящийся к кодировке, хотел поставить на прогу пароль, собно что хотел, то и сделал, но пришла в голову еще мысль, а именно: Первое -пароль хранить в нетипизированном файле (походу его прочтешь простым текстовым редактором?) и при запуске проги, пороль вытягивается и файла и сверяется. Второе - Пароль на другой форме можно изменить, Соответственно в едит1 пароль из файла загружается, а после ввода в едит2 и нажатия кнопки загружается в файл и при следуйщем запуске он уже другой. Мы это пока не учили, но хочу реализовать, пока остановился на этом =\ Код:
|
10.05.2012, 23:31 | #13 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,341
|
http://programmersforum.ru/showpost....59&postcount=2
Собственно, примеры запроса пароля перед входом. Вам больше подойдет http://programmersforum.ru/showpost....99&postcount=4. Внимательно изучите unit2 и source code самого project. В методе form.destroy как раз сохраняются логин и пароль. Вы можете это перенести в 1 юнит, и изменять пароль оттуда.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
Последний раз редактировалось BDA; 10.05.2012 в 23:35. |
12.05.2012, 22:40 | #14 |
Пользователь
Регистрация: 06.05.2012
Сообщений: 22
|
BDA спасибо, идея понравилась, тем более я так и не смог осилить нетипизированные файлы :D но буду просто шифровать их в обычный .txt (с запуском форм я разобрался альтернативный методом, а жаль)
А теперь по делу: все еще присутствует проблема с шифрованием\дешифрованием текста, поправить так и не смог =\ вот коды шифрование Код:
Код:
скоро покажу проект и буду ждать критики и советов, мне нужна 5 :О Последний раз редактировалось hauk70; 13.05.2012 в 02:39. Причина: решил проблему с формами |
17.05.2012, 17:04 | #15 |
Пользователь
Регистрация: 06.05.2012
Сообщений: 22
|
Короче вот архив с проектом ТЫК проблему в логике шифрования я не нашел по той причине что ее там нет =\ проблема в кодировках, как с ними бороться я не знаю и не умею, гугл толком не помог. Написано на Delphi XE2. На 1 форме button1click это шифрование, а button2click это дешифрование. Еще в 3 форме есть 2 функции для шифрации и дешифрации в файл, они тоже отказались работать =\ помогите плз
|
17.05.2012, 19:30 | #16 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,341
|
Хм, архив под паролем
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
17.05.2012, 19:50 | #17 |
Пользователь
Регистрация: 06.05.2012
Сообщений: 22
|
та фак, пароль 1111, я же должен был дописать его :О извиняюсь :3
|
17.05.2012, 22:41 | #18 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,341
|
Шифрование 0 работает неправильно по очевидным причинам. Вы написали свое вместо исправленного моего. Ну нету анси символов с кодами выше 255. Соответственно получается полная белиберда. Да и текст в мемо хранится скорее в Unicode, чем в UTF8. У вас вряд ли в задании сказано, что шифрование должно работать с юникодом. Все строки в шифровании заменяем на ansistring, а Memo1 передаем как ansistring(memo1.text). Потом кодируем нормальной функцией шифрования и присваиваем результат memo2.text без перекодировки.
Вот так в моем Delphi 2010 отлично работает (по крайней мере ваш текст из мемо1 шифрует и дешифрует). ПС 6.66 мб - намекает
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
Последний раз редактировалось BDA; 17.05.2012 в 23:23. |
18.05.2012, 23:39 | #19 |
Пользователь
Регистрация: 06.05.2012
Сообщений: 22
|
все оказалось намного намного проще =)
Код:
|
19.05.2012, 00:16 | #20 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,341
|
Раз работает, то поздравляю
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проверка текста Memo | fineleave | Помощь студентам | 4 | 11.06.2011 21:48 |
memo атрибут текста | grom333 | Помощь студентам | 10 | 21.03.2010 20:34 |
Memo - обробка текста | sv2311 | Помощь студентам | 0 | 25.04.2009 17:42 |
Вставка текста в memo | Revan | Общие вопросы Delphi | 2 | 23.05.2008 17:45 |
В Memo сделать так, чтобы текст был разного цвета, разноцветный memo | Artem | Компоненты Delphi | 3 | 07.09.2007 13:40 |