Dinedi.ru

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

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'ом). Копирование разрешено только с указанием автора.

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
Остальное всё сам придумал.

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

Система авторизации

hx — Sun, 13 Sep 2009 13:43:04 GMT

Не знаю, где там динго, но сообщаю ему что он со своей системой жёстко тормозит и опоздал, так как мы с X-3me за 2 недели разработали мощную систему авторизации с бд, превосходящую (вроде бы) по функциям дингину. Так что просьба динге ответить мне, и, если что, присоединится к разработке системы от X-3me. Мой PHP сайт с установленной и адаптированной системой от X-3me: http://hxs.tu2.ru

hx Messenger 2 - после прекращения поддержки

Admin — Fri, 14 Aug 2009 05:41:41 GMT

Все сообщения о прекращении поддержки перенеснеы сюда

ЗЫ: Собственно, чат всё ещё работает, все аккаунты и логи на сервере сохранены. Но только прекращён выпуск новых версий, а всякая техническая поддержка старых прекращена.

Open Source Day

hx — Sun, 21 Jun 2009 08:58:40 GMT

Я хочу начать Open Source Day (День Открытого Исходного кода).
Сегодня я выложу исходники следующих проектов:
- hx Messenger, версии 2.1.0 (скажу также, что есть версия 2.1.1 Alpha, но из-за применения в ней моих новых технологий защиты и шифрования я её исходники не выкладываю).
- hx File Transfer, версии 1.0.0 и 1.0.1 .
Для компиляции этих проектов понадобится Delphi не ниже 7 версии, библиотека CoolTray (она в комплекте) и изменение серверов на свои.

Скачать: http://upwap.ru/452890 .
Пароль: fghj .

Потом я выложу чо нить ещё, а вы тоже чо нить выкладывайте.

ETE Mobile

hx — Mon, 15 Jun 2009 06:30:57 GMT

Последняя версия ETE Mobile - в последних постах!

==============================

Я решил начать новый проект - текстовый редактор для мобильников (Admin, разреши использовать название :), если не разрешиш - переименуй тему в "Текстовый редактор для мобильных телефонов"). Думаю прога будет популярной, так как аналогичных редакторов нет, а редакторы в файл-менеджерах не присутствуют, или глючные и малофункциональные.
Будет реализована сначала поддержка txt, в дальнейшем - html, rtf и doc . Также будет поддерживаться собственный формат - etm .
Сначала текст будет редактироваться в обычном textBoxе, однако потом будет сделан графический редактор, даже с поддержкой изменения шрифта, стиля, гарнитуры и размера.

Добавлено (13.06.2009, 11:23)
---------------------------------------------
Кстати, исходники буду периодически выкладывать на Open Source Day .

hx Internet Kit 2009

hx — Sat, 13 Jun 2009 05:52:58 GMT

Стартовала разработка програмного пакета для работы в интернете от hx Programming Studio!

Пакет будет включать в себя такие программы, как:

- hx Messenger 2.2.0 - новая версия программы с возможностью общения в любых сетях (ICQ и т.д.) с помощью подключения доп. плагинов в виде dll.

- hx Site Builder 1.0.0 - программа для создания сайтов: FTP - доступ, встроенный html-редактор, сайты будут размещаться по адресу http://hx.do.am/users/Ваш логин/ , возможно прикрепление доменов (не автоматизировано).

- hx Downloader 1.0.0 - менеджер закачек.

- hx File Transfer 1.0.0 - программа для размещения файлов в интернете.

hx Messenger 2

hx — Sun, 12 Apr 2009 13:32:41 GMT

Последняя версия - hx Messenger 2.1.0
Дальнейшее обсуждение: http://dinedi.ru/forum/32-605-1

Аська

hx — Sat, 31 Jan 2009 09:21:47 GMT

Вот я нашёл такую вещь:

21.01.2009 после обеда большая часть пользователей клиентов альтернативных ICQ не смогли ими воспользоваться после перезагрузки. Вместо этого контакт под номером 1 уведомил их, что ICQ не поддерживает используемую ими версию клиента. В сообщении также предлагалось скачать авторизованную версию ICQ с официального сайта.

На портале icq.com, официальном ресурсе мессенджера, тем временем появилось объявление о том, что ICQ осуществляет поддержку только авторизованных версий программ. В частности, предлагается скачать ICQ 6.5 или облегченный клиент ICQ Lite.

На отключение от сети уже пожаловались пользователи таких программ как QIP Infium, Miranda, Adium. Отключения альтернативных клиентов происходят регулярно. Последний раз их пользователи не могли войти в сеть ICQ в декабре 2008 года, когда AOL прекратила поддержку ICQ-протокола 5.1. До этого отключения происходили в октябре и июле.
Пользователи, которые уже находились в сети, никаких изменений не почувствовали и не были отключены от сервера.
У тех, кто пытался подключиться в первые час-полтора это получалось с переменным успехом: это объясняется тем, что что сеть icq распределенная и состоит из множества серверов, и даже после входа вас могут перебросить на другой, и судя по всему изменения применялись на них по очереди.

Немного технических деталей:
Процедура входа проходит вполне обычно: проходит инициализация протокола, отсылка capabilities, загрузка серверного контакт-листа и собственных данных.
Примерно в это время и приходит сообщение от номера один, и после этого получить что-либо с сервера становится невозможно.
Решив, что сегодня повторилась ситуация 8-го декабря, когда клиенты перестали работать из-за того что во время логина идентифицировали себя как icq5.1 и более ранние версии, мы попробовали идентифицировать себя как icq6.5 последней модели.
Это не принесло никаких результатов. Стало понятно, что в этот раз АОЛ пошел путем глубокой защиты — видимо теперь уже стали учитываться отправляемые капсы (capabilities, информация о поддерживаемых клиентом фишках протокола).
Действительно, подмена их набора на тот, что использует icq6 помогла, однако только на время первого входа — если после этого переподключиться, то это уже не поможет. Судя по всему в последовательность входа и начальной инициализации внесли какие то изменения, при невыполнении которых клиент считается альтернативным.
Разработчики QIP высказали предположение о том, что серверу нужен некий дополнительный ключ, который может как просто быть зашит в клиент, так и вычисляться на основе полученной от сервера информации. Они в настоящий момент тоже усиленно работают над поиском причины отказа клиента.

Вот ещё информация из неизвестного источника:
Сегодня ICQ Corp заявила о том, что будет менять свой протокол каждую неделю. (после последней, сегодняшней, смены протокола не работали даже родные старые версии аськи).
В разговоре с одним из разработчиков клиента MDC для протоколов ICQ и Jabber пояснили, что ICQ не желает что бы пользователи заходили с альтернативных клиентов и будет менять протокол еженедельно до тех пор, пока они не исчезнут вовсе.
Пока ни подтвердить ни опровергнуть её никто не может

Это с сайта http://www.qipmobile.ucoz.ru/
Кстати прикольный сайт про аську

Похоже скоро всё грохнется и будем общаться по мессенгеру

exe to dll

hx — Wed, 21 Jan 2009 11:11:45 GMT

В предыдущих темах, таких как Плагины для мобитранса и Плагины-вирусы мы рассмотрели создание dll.
Но хотелось бы поместить в dll целую прогу, а затем уже подгружать её.

Для этого зайдите в нужный exe проект, выберите Project>View Source

Для более простого варианта измените в коде проекта слово project на library.
Всё! Готово! Но тогда длл будет исполняться сразу после загрузки. Чтобы испраить это, измените код проекта на следующий:

Code

library Project1; //Тип проекта

uses //Подключаемые модули
   Forms,
   {Модули ваших форм}
   Unit1 in 'Unit1.pas' {Form1};

{$R *.res} //Подключаемый файл ресурсов

   {Описание переменных и т.п.}

procedure ExecuteDLL; stdcall; export; //Объявление процседуры
   begin
   {Код, исполняемый при вызове процседуры запуска}
   Application.Initialize; //Иниализация приложения
   Application.CreateForm(TForm1, Form1);
   {Создание ваших форм}
   Application.Run; //Запуск приложения
   end;

exports
  ExecuteDLL; //Объявление процседур, доступных основной программе

begin
  {Текст, который будет исполняться сразу при загрузке dll}
end.

В основную программу, в нужный модуль добавьте в раздел interface

Code

procedure ExecuteDLL; external {Имя dll файла};

Далее Вы сможете запускать программу из dll , написав:

Code

ExecuteDLL;

Добавлено (21.01.2009, 16:11)
---------------------------------------------
И ещё - dll НЕ КОМПИЛИРУЕТСЯ НАЖАТИЕМ F9
Для компиляции нажмите Project>Build All Projects

Изменение строк в откомпилированных программах

hx — Sun, 18 Jan 2009 14:04:42 GMT

Для изменения строк в откомпилированных программах (*.exe).
Нам понадобится программа Win Hex.

Запустите Win Hex, откройте нужный exe . В правой части вы видите всякие кривые символы. Постарайтесь найти нужную строку. Далее следует определить тип строки: string или PChar . Щелкните на последнем символе строки. Теперь посмотрите в центр экрана на две выделенные шестнадцатеричные цифры. Если следующие после выделенных цифр цифры - 00 значит это PChar строка, иначе - string . Если это PChar изменяйте строку как хотите, затем сохраните и запустите прогу. Со string всё немного сложнее - после изменения вам следует указать длину строки. Для этого щелкните на первом символе строки. В центре экрана выделится другая цифра. Далее выделите преведущую перед выделенной цифру. Измените эту цифру на длину строки в шестнадцатеричном виде. Десятичное число перевести в шестнадцатеричное поможет стандартный калькулятор.

Плавное сворачивание окна

hx — Tue, 30 Dec 2008 16:02:20 GMT

Для плавного сворачивания окна (как в мессенгере 1.3 тулз>минимизе) вставьте такой код для сворачивания:

Code

for i:=t1 div 5 downto t2 div 5 do
  begin
  Height:=i*5;
  end;

И такой для разворачивания:

Code

for i:=t2 div 5 to t1 div 5 do
  begin
  Height:=i*5;
  end;

А также в начале модуля вставьте следующий код:

Code

const
t1 = {высота развёрнутого окна};
t2 = {высота развёрнутого окна};
//желательно, чтобы t1 и t2 делились на 5