Dinedi.ru

Editor.Dinedi.NET — Gravity Defied Online Levels Editor

Admin — Thu, 06 Feb 2014 14:39:47 GMT

Открыто тестирование редактора уровней для Gravity Defied for Android — Editor.Dinedi.NET. Разработка велась периодически с июня 2011 года. Изначально редактор планировался для mrg файлов java версии игры, но структура уровней вышедшей в марте 2012 года GDfA гораздо проще, что повлияло на более ранний выход именно версии для Android.
На данный момент реализованы следующие функции:

Загрузка архива уровней по URL;
Загрузка архива уровней с локального компьютера;
Сохранение и загрузка по session ID хранящихся на сервере левелпаков;
Редактирование/переименование/удаление уровня из левелпака;
Сохранение и выгрузка уровней в архив. Архив содержит папку с файлами, расположенными в том порядке, в котором они будут видны в списке уровней игры;
Возможность переключения между цветовыми схемами при редактировании уровня. Возможность отображения уровней в стиле GDTE (режим "simple view");
Установка старта путём перемещения байка курсором по плоскости уровня и путём ручного введения координат;
Установка финишного флажка путём ручного редактирования координат;
Перемещение финишного флажка курсором;
Создание/перемещение/удаление точек на треке;
Установка зачётного времени прохождения трека на одну, две и три звезды;
Создание новых уровней внутри левелпака;
Режим создания левелпака с нуля;

Планируется включить по ходу тестирования:

Перемещение уровня внутри левелпака ("Drag and Drop");
Улучшение интерфейса;

Пример работы: http://editor.dinedi.net/#http://dinedi.net/?get=gdlvl&id=1

В этой теме принимаются вопросы и предложения по онлайн редактору. При описании ошибки следует описывать, какие действия привели к её появлению.

Новости об обновлениях публикуются тут и в твиттере: https://twitter.com/EditorDinediNET

ConKey

hx — Tue, 09 Jul 2013 13:24:52 GMT

ConKey

Версия: 0.1 Final.
Автор: hx.
Платформа: все телефоны с поддержкой J2ME, полная поддержка сенсорных экранов.

Программа определяет вызов системных функций и выводит их параметры:

keyPressed(keyCode) - нажатие клавиши, параметр - код клавиши;
keyRepeated(keyCode) - удерживание клавиши, параметр - код клавиши;
keyReleased(keyCode) - отпускание клавиши, параметр - код клавиши;
pointerPressed(x,y) - нажатие на сенсорный экран, параметр - координаты;
pointerDragged(x,y) - перетаскивание на сенсорном экране, параметр - координаты;
pointerReleased(x,y) - отпускание на сенсорным экране, параметр - координаты.

Программа очень полезна программистам (для узнавания кодов клавиш и времени вызова системных функций, реализации консольного интерфейса). Для выхода жмите зелёную кнопку.
Исходники выложу, если кому-то понадобятся.

Интерфейс выполнен в виде консоли.

Скачать: http://upwap.ru/756922 (3 Kb).

На каких языках вы программируете?

hx — Wed, 12 Jun 2013 14:06:12 GMT

Форум: hx Software
Автор темы: hx
Автор последнего сообщения: Shevron
Количество ответов: 9

GDmod.RU - обсуждение

Admin — Tue, 28 Aug 2012 12:45:06 GMT

Адрес конструткора: http://dinedi.net/

События:

13.09.2009 - начало разработки конструктора. Дизайн будет выполнен в стиле GDDE2.2.
14.09.2009 - создание пошаговой системы сборки. Создание базы данных.
23.09.2009 - завершено создание панели управления.
25.09.2009 - завершено создание функциональной части пошаговой системы сборки. Удаление отладочной информации, создание читабельной версии. (alpha версия)
14.10.2009 - открытие тестовой версии, предоставляющей лишь базовые возможности будущего конструктора
Внимание!! Срочно нужны моды на различных языках!!!
20.10.2009 - из-за полной неработоспособности конструктора (на хостинге проблемы с сессиями) конструктор закрыт до следующего тестирования.
6.11.2009 - закрытое альфа-2 тестирование. Каждому тестеру выдаётся пригласительный код, который можно использовать один раз.
Ведётся набор тестеров! ( http://www.dinedi.ru/forum/36-663-1 )
8.11.2009 - исправлено 7 багов, обнаруженных пользователями
30.11.2009 - исправлена ещё пара багов
05.01.2010 - изменил дизайн
06.01.2010 - теперь информер работает без ошибок + исправлен загрузчик -при добавлении новых файлов ошибок возникнуть не должно
07.02.2010 - стадия открытого тестирования
21.02.2010 - добавлена возможность выбора цвета трека + постраничное разбиение таблиц (пока в ограниченном режиме)
Вы можете помочь с переводом игры на свой язык, предварительно оставив заявку в этой теме. Для перевода файлов с русского языка на свой используйте файлы в прикреплённом архиве

Wiki.Dinedi.NET - Gravity Defied wiki

Admin — Sat, 11 Aug 2012 23:04:33 GMT

http://imod.z-c.lv/wikigd/index.php/Заглавная_страница - предлагаю принять участие в заполнении

http://imod.z-c.lv/index.p....temid=2 - обсуждение на своём форуме

УПД: http://wiki.dinedi.net/

УПД 2: http://wiki.gdmod.ru/

Теперь оффициальный™ форум тут.

Gravity Defied Online Track Editor

Admin — Sun, 18 Mar 2012 20:31:39 GMT

Форум: GDmod.RU - онлайн конструктор Gravity Defied
Автор темы: Admin
Автор последнего сообщения: Shevron
Количество ответов: 4

Предложения по конструктору

Admin — Fri, 16 Mar 2012 22:03:59 GMT

Пишите здесь, что бы вы хотели видеть в конструкторе. Что-то новое прикрутить хочется, а идей нету

Плохое сообщение

hx — Mon, 10 Jan 2011 15:01:23 GMT

Зашёл на динеди.нет и такая вот фигня.

BugTracker

Admin — Tue, 28 Dec 2010 20:37:55 GMT

Здесь тестерами описываются найденные баги в конструкторе
Просьба для каждого бага создавать отдельное сообщение.
В этой теме описываются ТОЛЬКО БАГИ. Всё остальное связанное с тестированием писать в созданную для этого тему: http://www.dinedi.ru/forum/36-663-1

UP.Dinedi.NET - файлообменный сервис

Admin — Mon, 19 Apr 2010 17:37:50 GMT

http://up.dinedi.ru/ - наш собственный файлообменный сервис, некоторе подобие так горячо любимого упвапа
Проект ещё тестируется
В скором времени ожидается выход PC (hx Uploader) и Java клиента

Delphi на флэшке

hx — Sun, 07 Feb 2010 17:58:02 GMT

Компилятор Delphi на флэшке.

Я расскажу вам, как поместить ПОЛНОЦЕННЫЙ Delphi компилятор на флэшке.
На самом деле это предельно просто.
Для этого необходим установленный обычный Delphi на компьютере. Конечно, я могу выложить нужные файлы сюда, но не сделаю это, так как Delphi - платный продукт.
В статье я буду использовать обозначение %DELPHIDIR% - это папка, в которою установлен Delphi и %RESDIR% - папка на флэшке, куда всё ставим.

1). Скопируйте файл %DELPHIDIR%\bin\dcc32.exe на флэшку - это сам компилятор Delphi (~1,2 Mb).
2). Скопируйте файлы %DELPHIDIR%\lib\SysInit.dcu и %DELPHIDIR%\lib\System.dcu на флэшку - это необходимые стандартные библиотеки (~0,5 Mb).
3). Скопируйте файл самые важные библиотеки из %DELPHIDIR%\lib\ , их количество зависит от размера флэшки. Настоятельно рекомендуется скопировать SysUtils.dcu , а если вы будете компилировать приложения с окнами, то и Windows.dcu, ActiveX.dcu, Classes.dcu, Controls.dcu, Dialogs.dcu, ExtCtrls.dcu, Forms.dcu, Graphics.dcu, HelpIntfs.dcu, Messages.dcu, StdCtrls.dcu, Types.dcu, Variants.dcu (от 0,3 - 3 Mb).

Примерный размер среднего комплекта всего скопированного - 4,5 Mb.

Вот и всё. Компилируется это так: заходите в командную строку (Пуск>Выполнить...>cmd или Пуск>Программы>Стандартные>Командная строка) и пишете:

Code

%RESDIR%\dcc32 [файл]

Где [файл] - главный файл вашего проэкта (его расширение - *.dpr).

P.S.: лично я, когда ставил, просто набрал в командной строке несколько команд:

Code

cd %DELPHIDIR%\bin\
copy \bin\dcc32.exe %RESDIR%
copy SysInit.dcu %RESDIR%
copy bin\System.dcu %RESDIR%
copy bin\SysUtils.dcu %RESDIR%
. . .

P.P.S.:

Quote (hx)

Конечно, я могу выложить нужные файлы сюда, но не сделаю это, так как Delphi - платный продукт.

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

Статья полностью написана мной (hx'ом). Копирование разрешено только с указанием автора.

Набор тестеров конструктора

Admin — Sun, 07 Feb 2010 05:32:24 GMT

Внимание! Запущено закрытое тестирование конструктора!
Каждому желающему тестеру будет выдан инвайт, который можно использовать лишь один раз. Всего инвайтов 10. Заявки на тестирование оставляем здесь.
Тестер должен:
Полностью исследовать систему, придиратья к любому недостатку
При нахождении любой ошибки сообщить в специальную тему-БагТрекер
Пополнять базу треками и скинами

Тестирование является закрытым, так как в системе ещё имеются недоработки (например, в комментах ещё нет капчи и премодерации, следовательно и защиты от спама)
Администратор вправе заблокировать инвайт.

http://dinedi.net/

--------------------------------------------------------------------------------
Список тестеров:
1.hx
2.z-kzn-z
3.Felix
4.forum40
5.[Gun$lingeR]
6.Tosh_72
7.camel97
8.Darkgrava
9.mishany

Набор завершён!

Предложения по созданию совместных проектов

hx — Thu, 28 Jan 2010 17:13:28 GMT

Предлагаю сделать небольшой портальчик о паскале и делфи (больше о паскале ) pascal.dingoedition.ru . Ну что, Dingo?

hx Uploader

Admin — Mon, 04 Jan 2010 17:57:19 GMT

Форум: hx Software
Автор темы: Admin
Автор последнего сообщения: hx
Количество ответов: 31

Общие вопросы по Delphi

Admin — Fri, 25 Dec 2009 00:21:59 GMT

Задаём вопросы по программингу пользователю hak48

Начну я : почему дельфи "дырявый"???
Скриншот:

PHP - Устранение строковых уязвимостей

hx — Sat, 14 Nov 2009 07:42:06 GMT

Для почти полного устранения строковых уязвимостей вы можете использовать эту функцию:

Code

У функции следующие параметры:
1). Строка для обработки;
2). Максимальная длина (необязательный параметр, по умолчанию не ограничено - 0);
3). Разрешать ли переводы строк (необязательный параметр, по умолчанию нет).
Добавьте её в ваш скрипт и используйте при файловых операциях, получении данных от пользователя методами GET и POST и т.п..
Действие функции следующее:
1). Замена html тегов их сущностями;
2). Преобразование переводов строк в тег
;
3). Если надо, обрезание строки до максимальной длины;
4). Если надо, уничтожение переводов строк и тегов
.

Добавлено (13.11.2009, 12:08)
---------------------------------------------
P.S.: функция написана X-3me и доработана мной.

PHP - Простейший файл-менеджер

hx — Fri, 13 Nov 2009 07:07:23 GMT

Часть 1.

Code

if($_GET['dir']==''&&$_GET['file']==''){$_GET['dir']='.';}
if($_GET['dir']!=''){
    $dh = opendir($_GET['dir']);
    while($filename = readdir($dh)){
      if(is_file($_GET['dir'].'/'.$filename)){
        echo ''.$filename.' a>
';}else{
        if($filename!='.'){
          echo ''.$filename.'/
';}}}}else
if($_GET['file']!=''){
    if(file_exists($_GET['file'])){
      $ftx=file_get_contents($_GET['file']);
      $ftx=str_replace('', '', $ftx);
    }else{$ftx="File doesn't exists!";}
    echo '';}
?>

Перед вами код простейшего файл-менеджера. Он умеет удобно "ходить" по папкам и смотреть текстовые файлы.
Рассмотрим его код подробнее.

Code

if($_GET['dir']==''&&$_GET['file']==''){$_GET['dir']='.';}

Здесь мы обрабатываем случай, когда нет параметров вызова файла. В этом случае он открывает текущий каталог (.).

Code

if($_GET['dir']!=''){
$dh = opendir($_GET['dir']);

Здесь мы узнаём, что включён режим просмотра папок (а не файлов) и открываем нужную папку.

Code

while($filename = readdir($dh))

Запускаем цикл чтения имён файлов.

Code

{if(is_file($_GET['dir'].'/'.$filename)){
echo ''.$filename.'
';}else{
if($filename!='.'){
echo ''.$filename.'/
';}}}}

Проверяем, файл это или каталог. Если файл, выводим ссылку для просмотрщика, если папка и её имя не . (не текущая), добавляем к имени слэш и выводим ссылку для открытия.

Code

else
if($_GET['file']!=''){
if(file_exists($_GET['file'])){

Иначе если включён режим просмотра текстового файла, проверяем его существование.

Code

$ftx=file_get_contents($_GET['file']);
$ftx=str_replace('', '', $ftx);
}else{$ftx="File doesn't exists!";}
echo '';}

Получаем его содержимое, в нём меняем завершающий тег поля текста на его видимый эквивалент, если файла не существует вместо текст файла заменяем текстом "File doesn't exists!".

Code

echo '';}

И выводим результат в большом текстовом поле.

Вот и всё! Более сложные операции в файл-менеджере будут рассмотрены позже.

Добавлено (12.11.2009, 12:46)
---------------------------------------------
P.S.: статья и код полностью написаны мной. Копирование статьи разрешено только с указанием автора, использование кода свободно.

hx Translator Suite

Admin — Thu, 24 Sep 2009 15:54:15 GMT

hx Translator Suite

Платформа: Win 2k/XP/Vista.
Тип: Free.
Последняя версия: 1.0.0.
Состояние: разработка.
Скриншоты:
нет.
Утилита для перевода программ.
Перевести любую программу, извлечь строки и адреса - теперь это легко можно сделать с помощью этой программы.
Просто запустите её, откройте необходимый файл, замените строки и сохраните.
Также присутствует функция поиска строк в одном и нескольких файлах.
Рекомендации по тонкой настройке есть здесь.

Копираст by hx Software

Gravity Defied Track Editor 3.1

Admin — Thu, 24 Sep 2009 09:07:07 GMT

Форум: hx Software
Автор темы: Admin
Автор последнего сообщения: hx
Количество ответов: 1

Всё об MD5

hx — Tue, 22 Sep 2009 11:29:58 GMT

Что такое MD5

Этот алгоритм был разработан в 1991 году профессором Рональдом Л. Ривестом. Алгоритм MD5 часто называют алгоритмом шифрования, но на самом деле это утверждение ошибочно. Главным преимуществом MD5 является то, что зашифрованные данные восстановить нельзя. А что это за алгоритм шифрования, который шифрует данные так, что никто их не сможет узнать? MD5 — это хэш-функция. У многих возник вопрос: что же это такое? Остановимся на этом вопросе.

Что такое Хэш-функция

Предположим, у нас есть некоторый набор данных. Для простоты будем рассматривать натуральные числа от 1 до 106. И пусть есть некоторая функция, в которой один параметр — натуральное число от 1 до 106, а возвращаемое значение — натуральное число от 1 до 1000. Нам не важно, что именно делает эта функция, нам важно то, что она каждому натуральному числу от 1 до 106 ставит в соответствие другое натуральное число от 1 до 1000. Для примера рассмотрим одну из самых простых функций, выполняющих это действие:

int hash(long int x){
if (x%1000==0) return 1000;
return (x % 1000);
}

function hash(x:longint):longint;
begin
if (x mod 1000=0) then hash:=1000 else
hash:=x mod 1000;
end;

Это и есть простая хэш-функция. Если мы знаем параметр функции, то однозначно можем сказать, какой будет результат. А если нам известен результат, то можем ли мы узнать однозначно параметр? Конечно, нет. Для числа 234 параметр может быть 234,1234, 2234,3234… Поэтому однозначно восстановить параметр не получится.

Зачем нужен MD5

Для функции из примера, если известен результат, можно легко найти параметр, для которого будет такой же результат. А вот для функции MD5 это сделать не так-то просто. Т.е. если у нас есть только результат функции MD5, то мы не сможем найти параметр, для которого функция выдаст этот же результат (речь даже не идет про однозначное восстановление параметра). MD5 используют для хранения паролей. Приведу пример, когда хранение паролей в открытом виде опасно. Возьмем сайт "Дистанционное обучение". На этом сайте проходят городские олимпиады школьников по информатике, ежедневно обучаются сотни школьников и студентов. Во многих школах доступа в Интернет нет, и школьникам необходимо пользоваться услугами сайта либо дома, либо не в своей школе. Поэтому сайт начали устанавливать в самих школах. Т.е. обучение происходит не на самом сайте, а на его копии, установленной в школе. Проблема в том, что вместе с сайтом школа получала пароли всех пользователей (в том числе и администраторов), и этими паролями любой мог воспользоваться для "администрирования" самого сайта. Было два способа решить эту проблему:

1. Перед созданием копии сайта, которая будет перенесена в школу, удалять все пароли.
2. Зашифровать все пароли так, чтобы никто не смог расшифровать их обратно.

Был выбран второй способ. Сейчас пароли хранятся в зашифрованном виде (при помощи MD5). После того, как пользователь введет свой пароль, от пароля вычисляется хэш-функция MD5. Результат сравнивается со значением, хранящимся в базе. Если значения равны, то пароль верен. Еще MD5 можно использовать в качестве контрольной суммы. Предположим, необходимо куда-то скопировать файл. Причем нет никаких гарантий, что файл будет доставлен без повреждений. Перед отправкой можно посчитать MD5 от содержимого файла и передать результат вместе с файлом. Затем посчитать MD5 от принятого файла и сравнить два результата. Если результаты различные, то это означает, что файл или результат был испорчен при передаче. Последнее время MD5 стали использовать интернет-казино. Перед тем, как сделать ставку, игрок получает хэш от результата игры. Когда ставка сделана, игрок получает результат игры (например, выпало число 26). Посчитав от результата хэш-функцию, можно убедиться, что казино сгенерировало это число до того, как игрок сделал ставку. Но не стоит думать, что выиграть в этом казино очень просто. Весь секрет в том что, вероятность выигрыша подобрана таким образом, что игрок почти всегда будет в проигрыше.

Как работает MD5

Теперь посмотрим, как именно работает MD5. Для обработки MD5 получает некоторую строку. Эта строка преобразуется в последовательность из нулей и единиц. Как это делается? У каждого символа есть свой номер. Эти номера можно записать в двоичной системе счисления. Получается, каждый символ можно записать как последовательность нулей и единиц. Если этим воспользоваться, получим из строки последовательность из нулей и единиц. Пусть q будет длина получившейся последовательности (ровно 64 бита, возможно, с незначащими нулями). К получившейся последовательности приписывается 1. В результате длина последовательности увеличивается на 1. Затем к последовательности приписываются нули, пока длина не станет по модулю 512 равна 448 (length mod 512=448). Далее к последовательности дописываются младшие 32 бита числа q, а затем — старшие. Длина последовательности становится кратной 512. Полученную последовательность назовем S. Для подсчета результата используются четыре двойных слова (32 бита). Эти двойные слова инициализируются следующими шестнадцатеричными значениями, где первым следует самый младший байт:

A: 01 23 45 67
B: 89 ab cd ef
C: fe dc ba 98
D: 76 54 32 10
Также для подсчета результата используются следующие функции:
F(X,Y,Z) = XY v not(X) Z
G(X,Y,Z) = XZ v Y not(Z)
H(X,Y,Z) = X xor Y xor Z
I(X,Y,Z) = Y xor (X v not(Z))

X,Y,Z — это двойные слова. Результаты функций, также двойные слова. Для подсчета используется еще одна функция (назовем ее W). Она хитро обрабатывает данные и возвращает результат (подробно ее описывать не буду, т.к. она выполняет серию простых преобразований). Обработка данных происходит с использованием функций F, G, H, I.

На рисунке схематически изображена функция. Слева — входные данные, справа — выходные.

Все необходимые функции и обозначения рассмотрены. Теперь рассмотрим, как происходит просчет результата:
1. Запоминаем первые 512 бит последовательности S.
2. Удаляем первые 512 бит последовательности S (можно обойтись и без удаления, но тогда на первом шаге надо брать не первые 512, а
следующие 512 бит).
3. Вызываем функцию W. Параметры A,B,C,D — это текущие значения соответствующих двойных слов. Параметр T — это запомненные 512 бит.
4. Прибавляем к A A0.
5. B=B+B0.
6. C=C+C0.
7. D=D+D0.
8. Если длина последовательности 0, выходим.
9. Переходим к шагу 1.

После выполнения этого алгоритма A,B,C,D — это результат (его длина будет 128 бит). Часто можно видеть результат MD5 как последовательность из 32 символов 0..f. Это то же самое, только результат записан не в двоичной системе счисления, а в шестнадцатеричной.

Взлом MD5

В Интернете можно найти много программ, которые обещают найти строку, для которой алгоритм MD5 выдаст заданный результат. Эти программы действительно работают. Ранее отмечалось, что восстановить параметр невозможно. Как же работают эти программы? Они перебирают все возможные строки, применяют к ним алгоритм MD5, а затем сравнивают с образцом. Если значения совпали, это означает, что программа нашла необходимую строку. Но у этих программ есть маленький недостаток. Предположим, известно, что программе придется перебрать все слова длиной в 8 символов, состоящих из маленьких и больших латинских букв. Сколько времени это займет? Сколько всего таких слов? На первом месте может стоять любой из 26*2=52 символов. На 2, 3, 4, 5, 6, 7 и 8 — тоже 52. Значит, всего таких слов будет: 52*52*52*52*52*52*52*52=528=53*1012. А если используются не только латинские буквы? То это еще больше. Перебор всех вариантов на обычном персональном компьютере займет очень много времени. В Интернете можно найти сайты, которые по введенному хэшу выдают строку, для которой будет точно такой же хэш. Эти сайты используют базу данных с заранее просчитанными хэшами. Но в базах хранятся не все хэшы, а только самые используемые. Так что советую использовать в качестве пароля абсолютно случайную последовательность символов.

Добавлено (18.09.2009, 16:16)
---------------------------------------------
Простейшее использование MD5
PHP
Используйте стандартную функцию:

Code

md5(строка)

Delphi & C++Builder
Для начала прилепите к проекту этот модуль:

Code

unit Umd5;
interface
uses Windows, SysUtils;
type
THash = DWord;
function md5 (buf: string): string;
implementation
var HEX: array[Word] of string;
function LRot32 (a, b: LongWord): LongWord;
asm
mov ecx, edx
rol eax, cl
end;
function md5 (buf: string): string;
type
pint = ^Integer;
tdata = array [0..15] of DWORD;
pdata = ^tdata;
tbyte = array [0..15] of byte;
pbyte = ^tbyte;
var
i, Len: Integer;
data: pdata;
CurrentHash: array[0..3] of DWord;
P: array[0..7] of Word absolute CurrentHash;
A, B, C, D: DWord;
begin
Len := Length (buf);
SetLength (buf, 64);
buf[Len+1] := #$80;
FillChar (buf[Len+2], 63 - Len, 0);
pint (@buf[57])^ := Len * 8;
CurrentHash[0] := $67452301;
CurrentHash[1] := $efcdab89;
CurrentHash[2] := $98badcfe;
CurrentHash[3] := $10325476;
A := CurrentHash[0];
B := CurrentHash[1];
C := CurrentHash[2];
D := CurrentHash[3];
data := addr (buf[1]);
A := B + LRot32 (A + (D xor (B and (C xor D))) + data^[ 0] + $d76aa478, 7);
D := A + LRot32 (D + (C xor (A and (B xor C))) + data^[ 1] + $e8c7b756, 12);
C := D + LRot32 (C + (B xor (D and (A xor B))) + data^[ 2] + $242070db, 17);
B := C + LRot32 (B + (A xor (C and (D xor A))) + data^[ 3] + $c1bdceee, 22);
A := B + LRot32 (A + (D xor (B and (C xor D))) + data^[ 4] + $f57c0faf, 7);
D := A + LRot32 (D + (C xor (A and (B xor C))) + data^[ 5] + $4787c62a, 12);
C := D + LRot32 (C + (B xor (D and (A xor B))) + data^[ 6] + $a8304613, 17);
B := C + LRot32 (B + (A xor (C and (D xor A))) + data^[ 7] + $fd469501, 22);
A := B + LRot32 (A + (D xor (B and (C xor D))) + data^[ 8] + $698098d8, 7);
D := A + LRot32 (D + (C xor (A and (B xor C))) + data^[ 9] + $8b44f7af, 12);
C := D + LRot32 (C + (B xor (D and (A xor B))) + data^[10] + $ffff5bb1, 17);
B := C + LRot32 (B + (A xor (C and (D xor A))) + data^[11] + $895cd7be, 22);
A := B + LRot32 (A + (D xor (B and (C xor D))) + data^[12] + $6b901122, 7);
D := A + LRot32 (D + (C xor (A and (B xor C))) + data^[13] + $fd987193, 12);
C := D + LRot32 (C + (B xor (D and (A xor B))) + data^[14] + $a679438e, 17);
B := C + LRot32 (B + (A xor (C and (D xor A))) + data^[15] + $49b40821, 22);
A := B + LRot32 (A + (C xor (D and (B xor C))) + data^[ 1] + $f61e2562, 5);
D := A + LRot32 (D + (B xor (C and (A xor B))) + data^[ 6] + $c040b340, 9);
C := D + LRot32 (C + (A xor (B and (D xor A))) + data^[11] + $265e5a51, 14);
B := C + LRot32 (B + (D xor (A and (C xor D))) + data^[ 0] + $e9b6c7aa, 20);
A := B + LRot32 (A + (C xor (D and (B xor C))) + data^[ 5] + $d62f105d, 5);
D := A + LRot32 (D + (B xor (C and (A xor B))) + data^[10] + $02441453, 9);
C := D + LRot32 (C + (A xor (B and (D xor A))) + data^[15] + $d8a1e681, 14);
B := C + LRot32 (B + (D xor (A and (C xor D))) + data^[ 4] + $e7d3fbc8, 20);
A := B + LRot32 (A + (C xor (D and (B xor C))) + data^[ 9] + $21e1cde6, 5);
D := A + LRot32 (D + (B xor (C and (A xor B))) + data^[14] + $c33707d6, 9);
C := D + LRot32 (C + (A xor (B and (D xor A))) + data^[ 3] + $f4d50d87, 14);
B := C + LRot32 (B + (D xor (A and (C xor D))) + data^[ 8] + $455a14ed, 20);
A := B + LRot32 (A + (C xor (D and (B xor C))) + data^[13] + $a9e3e905, 5);
D := A + LRot32 (D + (B xor (C and (A xor B))) + data^[ 2] + $fcefa3f8, 9);
C := D + LRot32 (C + (A xor (B and (D xor A))) + data^[ 7] + $676f02d9, 14);
B := C + LRot32 (B + (D xor (A and (C xor D))) + data^[12] + $8d2a4c8a, 20);
A := B + LRot32 (A + (B xor C xor D) + data^[ 5] + $fffa3942, 4);
D := A + LRot32 (D + (A xor B xor C) + data^[ 8] + $8771f681, 11);
C := D + LRot32 (C + (D xor A xor + data^[11] + $6d9d6122, 16);
B := C + LRot32 (B + (C xor D xor A) + data^[14] + $fde5380c, 23);
A := B + LRot32 (A + (B xor C xor D) + data^[ 1] + $a4beea44, 4);
D := A + LRot32 (D + (A xor B xor C) + data^[ 4] + $4bdecfa9, 11);
C := D + LRot32 (C + (D xor A xor + data^[ 7] + $f6bb4b60, 16);
B := C + LRot32 (B + (C xor D xor A) + data^[10] + $bebfbc70, 23);
A := B + LRot32 (A + (B xor C xor D) + data^[13] + $289b7ec6, 4);
D := A + LRot32 (D + (A xor B xor C) + data^[ 0] + $eaa127fa, 11);
C := D + LRot32 (C + (D xor A xor + data^[ 3] + $d4ef3085, 16);
B := C + LRot32 (B + (C xor D xor A) + data^[ 6] + $04881d05, 23);
A := B + LRot32 (A + (B xor C xor D) + data^[ 9] + $d9d4d039, 4);
D := A + LRot32 (D + (A xor B xor C) + data^[12] + $e6db99e5, 11);
C := D + LRot32 (C + (D xor A xor + data^[15] + $1fa27cf8, 16);
B := C + LRot32 (B + (C xor D xor A) + data^[ 2] + $c4ac5665, 23);
A := B + LRot32 (A + (C xor (B or (not D))) + data^[ 0] + $f4292244, 6);
D := A + LRot32 (D + (B xor (A or (not C))) + data^[ 7] + $432aff97, 10);
C := D + LRot32 (C + (A xor (D or (not B))) + data^[14] + $ab9423a7, 15);
B := C + LRot32 (B + (D xor (C or (not A))) + data^[ 5] + $fc93a039, 21);
A := B + LRot32 (A + (C xor (B or (not D))) + data^[12] + $655b59c3, 6);
D := A + LRot32 (D + (B xor (A or (not C))) + data^[ 3] + $8f0ccc92, 10);
C := D + LRot32 (C + (A xor (D or (not B))) + data^[10] + $ffeff47d, 15);
B := C + LRot32 (B + (D xor (C or (not A))) + data^[ 1] + $85845dd1, 21);
A := B + LRot32 (A + (C xor (B or (not D))) + data^[ 8] + $6fa87e4f, 6);
D := A + LRot32 (D + (B xor (A or (not C))) + data^[15] + $fe2ce6e0, 10);
C := D + LRot32 (C + (A xor (D or (not B))) + data^[ 6] + $a3014314, 15);
B := C + LRot32 (B + (D xor (C or (not A))) + data^[13] + $4e0811a1, 21);
A := B + LRot32 (A + (C xor (B or (not D))) + data^[ 4] + $f7537e82, 6);
D := A + LRot32 (D + (B xor (A or (not C))) + data^[11] + $bd3af235, 10);
C := D + LRot32 (C + (A xor (D or (not B))) + data^[ 2] + $2ad7d2bb, 15);
B := C + LRot32 (B + (D xor (C or (not A))) + data^[ 9] + $eb86d391, 21);
Inc (CurrentHash[0], A);
Inc (CurrentHash[1], B);
Inc (CurrentHash[2], C);
Inc (CurrentHash[3], D);
Result := StrLower(PChar(HEX[P[0]]));
for i := 1 to 7 do
Result := Concat (Result, StrLower(PChar(HEX[P[i]])));
end;
var DEC, Tmp: Integer;
LH: string;
initialization
for DEC := 0 to $ffff do
begin
Tmp := DEC and $ff;
LH := IntToHex (Tmp, 2);
Tmp := DEC shr 8;
HEX[DEC] := Concat (LH, IntToHex (Tmp, 2));
end;
end.

Не забудьте, что модуль должен называться "umd5.pas" .

Использование функции:

Code

md5(строка)

Добавлено (18.09.2009, 16:18)
---------------------------------------------
Использованные материалы:
http://www.nestor.minsk.by/kg/2006/18/kg61802.html
http://www.slavssoft.ru/articles/?page=md5
Остальное всё сам придумал.

Вопросы сюда.