20 Августа 2018 01:55 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
19.08.2018
Warhangel
02:18:27
offline
15.08.2018
kills
4 дней
offline
13.08.2018
littledie
6 дней
offline
10.08.2018
krit131
1 неделя
offline
09.08.2018
inomn
1 неделя
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

Вынос трёх пати куполом
Вынос трёх пати куполом
Альбом: Скриншоты



Альбом: Флора

Последние видео
Видео ТРИ СУДЬБЫ - Короткометражный фэнтези-боевик : Короткометражный CGI-фильм, посвященный игре The Elder Scrolls Online.

Игрофильмы:  ТРИ СУДЬБЫ - Короткометражный фэнтези-боевик

Видео Rhine Falls : Rhine Falls Live Camera streeeam

Онлайн камеры:  Rhine Falls

Видео Live Cam, Central Memorial Park, Calgary, Alberta : Central Memorial Park is a park located in central Calgary\

Онлайн камеры:  Live Cam, Central Memorial Park, Calgary, Alberta

Наша кнопочка
FAQ7.ru
Код:
RSS каналы
Комменты
эта ветка
вся категория
Новости
Комменты
Форум
Статьи
Фото
Файлы
Ссылки
Объявления
Реклама
Регистрация сайта в каталогах, раскрутка и оптимизация сайта, контекстная реклама
Топ 10 Статей
Как стать феей? (Переходов: 29970)
Клитор: элементарная анатом... (Переходов: 9519)
Что привезти близким с Изра... (Переходов: 8127)
Одна регистрация на несколь... (Переходов: 6211)
Как успешно пройти проверку... (Переходов: 5783)
Атрибуты - Система Атрибутов (Переходов: 5739)
Half-open limit fix (patch)... (Переходов: 5329)
SSD накопители (Переходов: 4557)
Подарки и сувениры из Грузии (Переходов: 4442)
Афродизиаки (Переходов: 4342)
Почему на Западе боятся роб... (Добавлена: 06/08/2018)
8 вещей, о которых нужно по... (Добавлена: 28/07/2018)
Илья-пророк и его карающий ... (Добавлена: 12/03/2018)
Спиннер: что же это такое и... (Добавлена: 14/11/2017)
Биткоин: способы заработка ... (Добавлена: 14/11/2017)
Как работает система биткойн (Добавлена: 14/11/2017)
Криптовалюты (Blockchain). ... (Добавлена: 14/11/2017)
«Из грязи в князи» или как ... (Добавлена: 21/01/2017)
10 вопросов по регистрации ... (Добавлена: 20/01/2017)
Пушкин не был убит на дуэли (Добавлена: 30/09/2016)

Исследование генератора случайных чисел Delphi
Статью написал: Bad_guy
Статья создана: 26.07.03

Ещё одна оригинальная статья от меня ждёт своих читателей, но на этот раз это будет не о крэкерстве, а о высокоуровневом языке программирования Delphi. Давайте рассмотрим генератор случайных чисел, который частенько мельком называют генератором псевдослучайных чисел, не поясняя всей глубокой сути этой приставки "псевдо". На самом же деле, когда речь заходит о компьютерах, процессорах и вычислительных системах о "случайности" можно забыть, потому как все процессы происходящие в компьютере являются результатом строгих математико-логических операций, происходющих в процессоре и других вспомогательных микросхемах компьютера (контроллер прерываний, таймер, сопроцессор,...).

Есть в Delphi две интересные функции: Randomize и Random, а также переменная RandSeed. Надеюсь, что вы знаете об их использовании. Но, наверняка, редко используете переменную RandSeed (dword), а вот с ней то я и захотел разобраться, а также решил поделиться своим опытом с вами.

Поскольку я всё-таки крэкер, давайте пойдём крэкерским путём - возьмём готовую программу и поглядим как она работает - я взял "Генератор случайных паролей", написанный Цованяном Романом Сейрановичем. Но сначала я посмотрел как же Randomize рандомайзит, на основе чего ? Оказывается, на основе GetSystemTime, которая возвращает текущую дату и точное время (с миллисекундами) но не у нас, а по Гринвичу, для меня это было - на 4 часа меньше, чем на часах. Затем я поглядел алгоритм функции Randomize - он выглядит в Delphi5 следующим образом:

var St: systemtime;
GetSystemTime(St);
RandSeed := ((St.wHour*$3c + St.wMinute)*$3c + St.wSecond)*$3e8+St.wMilliseconds;

Как видите, всё очень просто. А сама функция Random уже использует только переменную RandSeed, берёт на основе неё случайное число, а потом меняет RandSeed, причём строго математически, то есть если при каждом запуске программы заносить в RandSeed одинаковую переменную, то набор "случайных" чисел, полученных с помощью Random при том же диапазоне будет такой же.

Я решил провести небольшой опыт по взлому пароля, сгенерированного с помощью программы "Генератор случайных паролей". Запустил программу, взял длинный не взламываемый перебором пароль и запаковал с этим паролем в ZIP архив какой-то файл. На следующий день я "захотел" взломать этот архив и сделал следующим образом - посмотрел время создания архива и понял, что пароль был сгенерирован где-то в течение 2-3 минут до создания архива, и написал я небольшую программку, которая эмулировала Randomize, но я использовал не GetSystemTime, чтобы заполнить структуру St: Systemtime, а сам заполянял её с шагом одна миллисекунда и начиная от 3 минут до создания архива, не забывая также, что час взят по Гринвичу. Кроме того, я подглядел алгоритм создания пароля в программе "Генератор случайных паролей". То есть, я создал лист паролей. Для каждой миллисекунды я сделал не один пароль, а несколько (я "забыл" длину пароля, но помнил, что она где-то от 4 до 16 символов). То есть у меня получился внушительный лист паролей на почти 30 мегабайт. Затем я взял программку Advanced ZIP Password Recovery и поручил ей мой запароленный архив и дал в помощь свой 30 мегабайтный "словарик", через 3 секунды пароль был найден, надо же...

Теперь давайте прикинем: если мы не знаем время генерации ключа, но знаем, что некто любит генерировать "трудновзламываемые" пароли с помощью "Генератора случайных паролей", то что мы будем делать ? Теперь посчитаем сколько миллисекунд в сутках 1000*60*60*24 = 86'400'000. Допустим, что пароль длинной от 4 до 20 символов, то есть каждую миллисекунду мы получим по 17 паролей, значит за сутки у нас будет 86400000*17 = 1'468'800'000 - всего то полтора миллиарда паролей. А программка Advanced ZIP Password Recovery перебирает, на моём не слишком крутом компьютере, по 520000 паролей в секунду. Значит любой пароль, сгенерированный в любой день, в любое время с помощью программы "Генератор случайных паролей" будет найден за 1468800000/520000 = 2824 секунды, то есть примерно за 50 минут. Единственной проблемой является, то что Advanced ZIP Password Recovery не поддерживает внешний плагин, который бы "давал" пароли для перебора, поэтому придётся создавать гигабайтные словари паролей, что не очень удобно, но весьма реально.

Таким образом создавать "Генератор случайных паролей" на основе стандартных функций Delphi весьма глупо. "А как тогда не глупо ?" - спросите вы. Вообще, сейчас серьёзные организации пароли любят генерировать на основе белого шума. Нам же до этого шума далеко - брать нам его негде. А вот пользователя, сидящего за компьютером мы вполне можем использовать, а именно его замечательный человеческий фактор - аналоговую случайную функцию: запустим программу и заметим время, а потом, когда пользователь нажмёт "Генерировать пароль" - заметим время ещё раз - вот и одна случайность, можно также "последить" за траекторией мыши - вот вам вторая случайность. Теперь ещё можно поиcпользовать всякие хитрые функции GetDiskFreeSpace, также можно использовать хэш функции для замедления процесса создания листа паролей, то есть если ваша функция Randomize будет работать хотя бы 100 миллисекунд - уже потребуется 100 суток, чтобы создать весь лист паролей. Но тут ведь ещё одна проблема RandSeed - dword, то есть 32 бита, а это 2^32 = 4294967296. Поделим ка мы его на количество миллисекунд в сутках 4294967296/86'400'000 = 50, то есть потребуется 50*50 = 2500 минут в нашем случае, чтобы найти пароль от любого RandSeed, значит надо брать в качестве RandSeed переменную длинее 32 бит, мне приходит на ум лишь Int64 - вот тогда ваш пароль уже никто не взломает за разумное время.

Вы скажете: что за фигня - зачем крэкеру это знать ? Может, и не надо, но по-моему уважающему себя крэкеру, а также "продвинутому" программисту полезно знать о вот таком нестандартном подходе к обыденным вещам, понять суть происходящего, познать основы криптоанализа и глубину возможностей крэкерства и недостатков высокоуровневого программирования, а не только снимать аспр, да и то через раз...

Удачи вам в вашей деятельности, чем бы вы ни занимались, Bad_guy.
Программирование: Исследование генератора случайных чисел Delphi
Опубликовал Warhangel 22.09.2010 · В Программирование · 0 Комментариев · 2302 Прочтений · Печать
Комментарии
  • Комментарии с сайта
  • ВКонтакте
  • Социальные и гостевые
Нет комментариев.
Добавить комментарий

Пожалуйста, авторизуйтесь или зарегистрируйтесь для добавления комментария.
Рейтинги
Нет данных для оценки.

Рейтинг доступен только для пользователей.

Пожалуйста, авторизуйтесь или зарегистрируйтесь для голосования.


Последние объявления
ФотоЗаголовокГородРазмещено
ООО «Центр горизонтального бурения» реализует запчасти к буровому оборудованию
• Хозяйство - Оборудование Цена: 1 1
ОренбургВчера в 20:12:37
(на 1 месяц)
АО «Карельский окатыш» предлагает к реализации ТМЦ
• Хозяйство - Сырье и материалы Цена: 1 1
Другой18.08.2018
(на 1 месяц)
ООО «Ставролен» продает неликвиды
• Хозяйство - Оборудование Цена: 1 1
Ставрополь11.08.2018
(на 1 месяц)
Группа «Илим» реализует неликвиды своих предприятий
• Хозяйство - Оборудование Цена: 1 1
Санкт-Петербург23.07.2018
(на 1 месяц)
Купим автоматическую систему газового пожаротушения
• Хозяйство - Оборудование Цена: 1 1
Красноярск24.04.2018
(на 6 месяцев)
Облако тегов тем форума
Обзор Техномага в City of Transformers, Информация от onlinewelten.com о пвп, БГ, крафте, маунтах, Квест на профессию Elemental Master для Elemental Summoner, Интересные факты, Трансформации в Lineage II, Быстрая доставка препаратов для борьбы с ВГС, И снова неделя двойного опыта на EU/NA серверах, Купить ООО в Москве, Гайд по Монаху в Mists of Pandaria, Гайд для начинающих Рейд Лидеров, 24.09, клуб 1Rock, ЭПИДЕМИЯ, КОRSИКА, ЧЕРНЫЙ ОБЕЛИСК, ЛЕГИОН, Новый закон о защите детей и мультфильмы., О подарках, Квест на Artisan, Терминатор 5 и 6 – первая информация.
Гость
Входите
Имя

Пароль


[L]


Не можете войти?
[R] Зарегистрироваться
[L] Утерян пароль

Войти через соц.сеть

Регистрация через соц.сеть
Миничат
Только пользователи могут отправлять сообщения.

Warhangel
OfflineAdmin
· 30-03-2018 15:20
Починили раздел скачивания видео с различных сайтов Cool

Warhangel
OfflineAdmin
· 30-03-2018 15:07
Газпромбанк планирует проведение пилотных сделок с криптовалютой в Швейцарии

Warhangel
OfflineAdmin
· 30-03-2018 15:07
Российская ассоциация криптовалют и блокчейна (РАКИБ) инициирует проект национального майнингового пула MineRussia

Warhangel
OfflineAdmin
· 23-01-2018 18:25
Анатолий Аксаков: законопроект о криптовалютах не предусматривает льготы по майнингу

Warhangel
OfflineAdmin
· 01-12-2017 16:28
Состоялся официальный релиз VR-шутера DOOM VFR

Warhangel
OfflineAdmin
· 01-12-2017 16:28
ОБТ китайской версии God Slayer стартует в середине декабря

Warhangel
OfflineAdmin
· 19-11-2017 12:59
Немного интересных [ ссылка скрыта ] ( регистрация | вход )

snpr
Offline
· 28-06-2017 12:27
очень полезная информация

Warhangel
OfflineAdmin
· 06-05-2017 17:37
Запустили [ ссылка скрыта ] ( регистрация | вход )

Warhangel
OfflineAdmin
· 08-03-2017 06:12
League of Legends - Riot Games подали в суд на владельца сайта по продаже украденных аккаунтов от игры

Реклама
RU CLICKSРусский трафик
etxt.ru
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Поиск по торрентам Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2018 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.