Альтернативный Форум

Альтернативный Форум (https://af.net.ru/index.php)
-   Технический (https://af.net.ru/forumdisplay.php?f=41)
-   -   Скриптоводство (https://af.net.ru/showthread.php?t=2872)

Crystal 25.01.2007 21:50
Скриптоводство
 
ищу модуль для Dephi 7
IdContext.dcu


и как правильно реализовать md5

Код:
                        begin
                                MD5Key      := TMD5String.Create;
                                MD5Key.Key  := MakeRNDString( Random(10)+1 );
                                MD5Len      := Length(MD5Key.Key);
                                AClient.Data := MD5Key;
                                WriteBufferWord(0,$01DC,Buffer);
                                WriteBufferWord(2,MD5Len+4,Buffer);
                                WriteBufferString(4,MD5Key.Key,MD5Len,Buffer);
                                SendBuffer(AClient,Buffer,MD5Len+4);
                        end;
но помойму что то нето.. рандом нерулит


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

Powered by vBulletin® Version 3.8.11 PL4;
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd;
Оператор обработки ПДн - ИП Алексеев А.С.;
ИНН: 333411310227; ОГРН: 307333419200050;
тел. +7 (4922) 49-42-22, legal@smalta.net