Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 11.06.2012, 22:41
Аватар для Hbrekk
Hbrekk Hbrekk вне форума
Прохожий
 
Регистрация: 10.05.2012
Адрес: Екатеринбург
Сообщения: 19
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Шифрование пароля - диплом

Ребят, привет всем! Дело такое сегодня был на предзащите диплома сказали все отлично, но сказали что в БД надо зашифровать пароли, так что бы их не вытащили)

база в BDE , работа в Delphi 7
15 числа защита диплома , надеюсь на вашу помощь, так как в защите информации плохо разобрался((

надо зашифровать
таблица
Users
id - автоинкрементное ключевое поле
login - A на 15 символов
passwd - A на 6 символов
Ответить с цитированием
  #2  
Старый 11.06.2012, 23:02
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Я бы не шифровал пароли, а посчитал их хеши (MD5 например) и хранил хеши, т.к. восстановить из хеша пароль очень трудно, особенно если пароль длинный и малоосмысленный. Сравнивал бы при авторизации тоже хеши.
И ограничение в 6 символов на пароль весьма странное: многие сервисы сейчас вообще не позволяют делать пароли меньше 8.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 11.06.2012 в 23:04.
Ответить с цитированием
  #3  
Старый 11.06.2012, 23:10
Аватар для Hbrekk
Hbrekk Hbrekk вне форума
Прохожий
 
Регистрация: 10.05.2012
Адрес: Екатеринбург
Сообщения: 19
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Дело в том что у меня защита диплома через 4 дня (пт), и я не успею разобраться со всем этим)

Помню на 3 курсе у нас была безопасность доступа к информации, и мы шифровали данные на С++ , но я забыл это все) а щас мне надо хоть самый простой способ , чтобы шифровать.
Ответить с цитированием
  #4  
Старый 11.06.2012, 23:51
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
 
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
По умолчанию

passwd - это твой пароль в базе.(6 символов).

longkey- секретный пароль базы.

longkey,passwd,toto :string;
Код:
ik := 1;
longkey:='GQ$%9s';
for i := 1 to length(passwd) do
  begin
    // шифр XOR алгоритм, шифр ксор
    toto := chr((ord(passwd[i]) xor ord(longkey[ik])));
    inc(ik);
    if ik>length(longkey) then ik := 1;
    result := result + toto;
  end;
__________________
Помогаю платно.
Помогаю иногда бесплатно.

Последний раз редактировалось @Rafa3L, 12.06.2012 в 00:45.
Ответить с цитированием
  #5  
Старый 12.06.2012, 00:07
Аватар для Hbrekk
Hbrekk Hbrekk вне форума
Прохожий
 
Регистрация: 10.05.2012
Адрес: Екатеринбург
Сообщения: 19
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

блин видать я вообще чайник( и как я написал АИС контрля успеваемости хз(((осталось понять как шифровать определнный столбец в базе , а я даже понять не могу что за шифрование XOR
Ответить с цитированием
  #6  
Старый 12.06.2012, 00:22
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

XOR - логическая операция, выполняющаяся по битам. Обладает замечательным свойством:
A xor B = C
C xor B = A
Пример в двоичной системе счисления:
1001 xor 1100 = 0101
0101 xor 1100 = 1001
Шифрование с использованием этой операции - одна из вариаций т.н. "Шифра Цезаря". Самый просой способ шифрования. Заключается в том, что применяется XOR первого символа текста с первым символом ключа, второго - со вторым, ... Когда в ключе кончатся символы - возвращаемся снова к первому. Для расшифровки делаем то же самое.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 12.06.2012 в 00:24.
Ответить с цитированием
  #7  
Старый 12.06.2012, 00:51
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
 
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
По умолчанию

У человека через 2,5 дня защита диплома, а он спать пошел. Задавал бы лучше вопросы.
__________________
Помогаю платно.
Помогаю иногда бесплатно.
Ответить с цитированием
  #8  
Старый 12.06.2012, 14:38
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Сообщения: 339
Версия Delphi: 10.4
Репутация: 429
Сообщение

Цитата:
Я бы не шифровал пароли, а посчитал их хеши (MD5 например) и хранил хеши
Отличный совет! А здесь добрые люди уже целый модуль написали
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
Ответить с цитированием
  #9  
Старый 12.06.2012, 20:35
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
 
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
По умолчанию

Цитата:
Сообщение от Kailon
Отличный совет! А здесь добрые люди уже целый модуль написали
Та вы чё? Ему через 2 дня защищать, и что он скажет когда спросят что такое к примеру
Код:
utput[i] := UINT4(input[j]) or (UINT4(input[j + 1]) shl 8) or
      (UINT4(input[j + 2]) shl 16) or (UINT4(input[j + 3]) shl 24);
    Inc(j, 4);
    Inc(i);
Скажет - "я на сайте скачал"?


Ему нужно решение, которое он сможет "понять, реализовать, описать, и защитить на дипломе".

Решение, немного "слабовато", и чё?
__________________
Помогаю платно.
Помогаю иногда бесплатно.

Последний раз редактировалось @Rafa3L, 12.06.2012 в 20:38.
Ответить с цитированием
  #10  
Старый 13.06.2012, 03:21
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Сообщения: 339
Версия Delphi: 10.4
Репутация: 429
Сообщение

Цитата:
Ему нужно решение, которое он сможет "понять, реализовать, описать, и защитить на дипломе".
Мне кажется шифр Цезаря проще всего как в понимании так и в реализации.
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
Ответить с цитированием
  #11  
Старый 14.06.2012, 21:05
Аватар для Hbrekk
Hbrekk Hbrekk вне форума
Прохожий
 
Регистрация: 10.05.2012
Адрес: Екатеринбург
Сообщения: 19
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

всем спасибо за помощь.
Ответить с цитированием
  #12  
Старый 15.06.2012, 00:20
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
 
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
По умолчанию

Цитата:
Сообщение от Hbrekk
всем спасибо за помощь.
Защитил? Диплом готов? Что выбрал?
__________________
Помогаю платно.
Помогаю иногда бесплатно.
Ответить с цитированием
  #13  
Старый 15.06.2012, 13:52
Аватар для Hbrekk
Hbrekk Hbrekk вне форума
Прохожий
 
Регистрация: 10.05.2012
Адрес: Екатеринбург
Сообщения: 19
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

честно так и не разобрался )))
решил не делать) прокатило на 5 ))))
Ответить с цитированием
  #14  
Старый 15.06.2012, 18:24
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
 
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
По умолчанию

Ну вот, а вы говорите мд5,мд5)

Терь только бы работу найти, в городе Букиных.
__________________
Помогаю платно.
Помогаю иногда бесплатно.
Ответить с цитированием
  #15  
Старый 16.06.2012, 03:06
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Сообщения: 339
Версия Delphi: 10.4
Репутация: 429
Сообщение

Цитата:
прокатило на 5
Давай проставляйся за диплом
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:09.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter