Есть такой сервис, типа как рапидшара.

Есть у него защита - типа скачайте наше п.о. и тогда зайдя по ссылкам через IE вам откроется ссылка на скачивание. Или второй вариант скачайте наше другое П.О и скачивайте через него (http://bitacc.com/lib.php) .

Как оно работает:
Ссылки на файлы этого сервиса имею такой вид - letitbit.net/download/a6fbd7570167/TrSystem106.rar.html,
П.О. предлогаемое сервисом вычисляет контрольную сумму из сылки на фаил, эта сумма (хэш)состоит из 32 символов, и при отправке запроса на сервер летитБита эта сумма отправляется в шапке запроса в качестве параметра "Conrol" - тоесть выглядит примерно так "Control: 81DC0BBF77503FC9616BEDAB701FF8E0"

Когда при запросе по ссылке на файл летитБита отправляется в шапке этот самый параметр Control то сервис
вместо того что бы выдать стандартную надпись типа: "Хоти скачать - установите наше по" выдаст прямую ссылку на скачивание.

Так вот вопрос как узнать по какому алгоритму хэшируется строка? скорее всего алгоритм у них свой.

| Сообщение посчитали полезным:

Берешь OllyDbg, грузишь в неё эту программулину, ловишь момент считывания оригинального url'a (http://letitbit.net/download/a6fbd7570167/TrSystem106.rar.html), и трассируешь до момента преобразования. А там уж смотришь, что к чему.

а вообще похоже на MD5. от TrSystem106.rar MD5-hash = a6fbd7e48cca64908d2f5b21f251afd1

| Сообщение посчитали полезным:

Вероятно первые 6 символов это кусок MD5 а остальное порядковый номер файла на сервере.

Что касается все возможных хэшей со всеми возможными комбинациями URL-a то тут null. Это я в первую очередь испытал.
То что генерируется хэшь по всей строке это тоже проверенный факт.

Мда, так и знал что меня носом ткнут в отладчик , к сожалению не умею им пользоваться.

| Сообщение посчитали полезным:

alexei-s1
Вроде к Universal Share Downloader'у есть плагин для letitbit.net.
Так что можешь не морочиться...

| Сообщение посчитали полезным:

да это я думаю к рапидгету... вот только незнаю кто же это alexei-s1

| Сообщение посчитали полезным:

я Down уже обьяснял какой там алгоритм .... вы сговорились чтоли ?? )


d0wn
Создано: 8 октября 2007 16:33:24 · Поправил: d0wn

1 BitAccelerator v.02
2 Программа для скачивания с обменника Letitbit.net
3 [url=http://bitacc.com/exe/update.php
]http://bitacc.com/exe/update.php
[/url]
4 102 кб
5 Microsoft Visual C++ 6.0
6 При обращении к серверу Letitbit.net посылает строку типа Control:af3f87a14a678512e9e7c4630681bafc.
Каков алгоритм для вычисления этого "Control"? Необходимо для написания плагина для Скрипта PHP RapidGet Pro - http://forum.ru-board.com/topic.cgi?forum=5&bm=1&topic=24768&start=120 http://forum.ru-board.com/topic.cgi?forum=5&bm=1&topic=24768&start=120 #lt.
icq 12361706
спасибо.

41 страница в запросах на взлом
http://forum.ru-board.com/topic.cgi?forum=5&bm=1&topic=24768&start=120 http://forum.ru-board.com/topic.cgi?forum=5&bm=1&topic=24768&start=120 #lt. - ищи его там ) там уже и скрипт есть на скачку
там MD5 с небольшими преобразованиями ))
мне просто интересно с чего вдруг такой ажиотаж ?? ))

| Сообщение посчитали полезным:

Runtime_err0r пишет:
Вроде к Universal Share Downloader'у есть плагин для letitbit.net.
Так что можешь не морочиться...
На сколько знаю это для старой защиты летитбита когда в шапке нужно было указать что твой userAgent IE + какая-то там бодяга.


ValdikSS пишет:
да это я думаю к рапидгету... вот только незнаю кто же это alexei-s1
Это ни к рапид гету, и отношения к подобным просьбам подобных людей не имею.

Halt
Нашёл там у них плагин, естесно не опен сорс , но в плагине красуется надпись -
"за алгоритм генерации хеша спасибо ru-board member D()wn и cracklab member - Hash"

Теперь вопрос как связаться с Hash ?

| Сообщение посчитали полезным:

Halt ты предлогал исходник на delphi + ASM - не откажусь

| Сообщение посчитали полезным:

ыыы уже связался ;)

а я думал они сам скрипт дают... или там через их сервак как то .... хз в общем мне пофиг я в пхп чуть чуть совсем

а на счет делфей его уже нет.. . там нааисать не сложно.. есть Md5 на асме... сам из какой то проги как то выдирал... я точно алгоритм не помню выложи хэш (control) и ссылку я точно скажу.. там заменяется несколько цифр вот точно сколько я уже и не помню... я и битакселератор или как его уже тоже 100 лет как грохнул.. мне этот control неоткуда взять

PS дык зачем этот летибиего всем понадобился ?? )

| Сообщение посчитали полезным:

у нас таких нету

| Сообщение посчитали полезным:

да он там с ником запарил ;))) на форуме подправил а в плагине так и висит... ) работы там не много было так что фих с ним )

| Сообщение посчитали полезным:

Вот такие вот контрольные суммы генерятся по ссылке -
[url=http://letitbit.net/download/a6fbd7570167/TrSystem106.rar.html
]http://letitbit.net/download/a6fbd7570167/TrSystem106.rar.html
[/url]

Control: bb83aacf9417d715dcfd6b10ec56a91b
Control: b013c79f941b671becf28b40ec62a115
Control: bb8b0a3f2417d7d87cf28b48ec6db51e

Вот MD5 для делфей который нашёл, не асм но может сгодится


Function GEtmd5(s:string):string;
var a:array[0..15] of byte;
i:integer;
LenHi, LenLo: longword;
Index: DWord;
HashBuffer: array[0..63] of byte;
CurrentHash: array[0..3] of DWord;
procedure Burn;
begin
LenHi:= 0; LenLo:= 0;
Index:= 0;
FillChar(HashBuffer,Sizeof(HashBuffer),0);
FillChar(CurrentHash,Sizeof(CurrentHash),0);
end;
procedure Init;
begin
Burn;
CurrentHash[0]:= $67452301;
CurrentHash[1]:= $efcdab89;
CurrentHash[2]:= $98badcfe;
CurrentHash[3]:= $10325476;
end;
function LRot32(a, b: longword): longword;
begin
Result:= (a shl b) or (a shr (32-b));
end;
procedure Compress;
var
Data: array[0..15] of dword;
A, B, C, D: dword;
begin
Move(HashBuffer,Data,Sizeof(Data));
A:= CurrentHash[0];
B:= CurrentHash[1];
C:= CurrentHash[2];
D:= CurrentHash[3];
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 B) + 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 B) + 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 B) + 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 B) + 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);
Index:= 0;
FillChar(HashBuffer,Sizeof(HashBuffer),0);
end;
procedure Update(const Buffer; Size: longword);
var
PBuf: ^byte;
begin
Inc(LenHi,Size shr 29);
Inc(LenLo,Size*8);
if LenLo< (Size*8) then
Inc(LenHi);
PBuf:= @Buffer;
while Size> 0 do
begin
if (Sizeof(HashBuffer)-Index)<= DWord(Size) then
begin
Move(PBuf^,HashBuffer[Index],Sizeof(HashBuffer)-Index);
Dec(Size,Sizeof(HashBuffer)-Index);
Inc(PBuf,Sizeof(HashBuffer)-Index);
Compress;
end
else
begin
Move(PBuf^,HashBuffer[Index],Size);
Inc(Index,Size);
Size:= 0;
end;
end;
end;
procedure Final(var Digest);
begin
HashBuffer[Index]:= $80;
if Index>= 56 then Compress;
PDWord(@HashBuffer[56])^:= LenLo;
PDWord(@HashBuffer[60])^:= LenHi;
Compress;
Move(CurrentHash,Digest,Sizeof(CurrentHash));
Burn;
end;
begin
if s='' then
begin
result:='';
exit;
end;
Init;
Update(s[1],Length(s));
Final(a);
result:='';
for i:=0 to 15 do
result:=result+IntToHex(a[i], 2);
Burn;
end;

| Сообщение посчитали полезным:

Halt пишет:
PS дык зачем этот летибиего всем понадобился ?? )

Пользователи не хотят с него качать через офф софт, говорят AdWare и чёрт знает что ещё в нём ..

| Сообщение посчитали полезным:

bb830a5f9417d7107cf28b40ec62a11b - это MD5
bb83aacf9417d715dcfd6b10ec56a91b control

во точно.. берется 10 произвольных символов из MD5 и заменяется на 10 произвольных символов из строки 0123456789ABCDEF

MD5 берется от /download/a6fbd7570167/TrSystem106.rar.html

вот и весь алгоритм
ну думаю сам напишешь тут ничего сложного

в аттаче на асме unit

6145_19.10.2007_CRACKLAB.rU.tgz - crypt2.zip

| Сообщение посчитали полезным:

там функция inttohex у меня отдельно была запихнута.... но она стандартная так что подключи Sysutils и все будет нормально

unit для md5 а не для всего

| Сообщение посчитали полезным:

Halt - Ты мозг !!!

Огроменное тебе спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!

| Сообщение посчитали полезным:

Вот если кому в будущем понадобится ->


Function GetControlStr(s:string):string;
var a:array[0..15] of byte;
i:integer;
LenHi, LenLo: longword;
Index: DWord;
HashBuffer: array[0..63] of byte;
CurrentHash: array[0..3] of DWord;
//_tmp:string;
procedure Burn;
begin
LenHi:= 0; LenLo:= 0;
Index:= 0;
FillChar(HashBuffer,Sizeof(HashBuffer),0);
FillChar(CurrentHash,Sizeof(CurrentHash),0);
end;

Function f7iqb_(sx : string): string;
const Chr9 = '0123456789ABCDEF';
var g7 : array [1..10] of integer;
i,n : integer;
str,str2 : string;
begin
randomize;
for i:=1 to 10 do g7[i]:=-1;
for i:=1 to 10 do
begin
n:= Random(31)+1;
repeat n:= Random(31)+1; until not (n in [g7[1],g7[2],g7[3],g7[4],g7[5],g7[6],g7[7],g7[8],g7[9],g7[10]]);
g7[i]:=n;
end;
str2:=sx;
for i:=1 to 10 do
begin
Str:= Chr9[ random(15)+1 ];
while str2[ g7[i] ] = Str[1] do Str:= Chr9[ random(15)+1 ];
str2[ g7[i] ] := Str[1];
end;
Result:=str2;
end;

procedure Init;
begin
Burn;
CurrentHash[0]:= $67452301;
CurrentHash[1]:= $efcdab89;
CurrentHash[2]:= $98badcfe;
CurrentHash[3]:= $10325476;
end;
function LRot32(a, b: longword): longword;
begin
Result:= (a shl b) or (a shr (32-b));
end;
procedure Compress;
var
Data: array[0..15] of dword;
A, B, C, D: dword;
begin
Move(HashBuffer,Data,Sizeof(Data));
A:= CurrentHash[0];
B:= CurrentHash[1];
C:= CurrentHash[2];
D:= CurrentHash[3];
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 B) + 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 B) + 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 B) + 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 B) + 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);
Index:= 0;
FillChar(HashBuffer,Sizeof(HashBuffer),0);
end;
procedure Update(const Buffer; Size: longword);
var
PBuf: ^byte;
begin
Inc(LenHi,Size shr 29);
Inc(LenLo,Size*8);
if LenLo< (Size*8) then
Inc(LenHi);
PBuf:= @Buffer;
while Size> 0 do
begin
if (Sizeof(HashBuffer)-Index)<= DWord(Size) then
begin
Move(PBuf^,HashBuffer[Index],Sizeof(HashBuffer)-Index);
Dec(Size,Sizeof(HashBuffer)-Index);
Inc(PBuf,Sizeof(HashBuffer)-Index);
Compress;
end
else
begin
Move(PBuf^,HashBuffer[Index],Size);
Inc(Index,Size);
Size:= 0;
end;
end;
end;
procedure Final(var Digest);
begin
HashBuffer[Index]:= $80;
if Index>= 56 then Compress;
PDWord(@HashBuffer[56])^:= LenLo;
PDWord(@HashBuffer[60])^:= LenHi;
Compress;
Move(CurrentHash,Digest,Sizeof(CurrentHash));
Burn;
end;
begin
if s='' then
begin
result:='';
exit;
end;
Init;
Update(s[1],Length(s));
Final(a);
result:='';
for i:=0 to 15 do
Result:=Result+IntToHex(a[i], 2);
Burn;
Result:=f7iqb_(Result);
end;

| Сообщение посчитали полезным:

я вообще не знаю, как бесплатно с этого г0вна качать. Лучший способ его игнорировать.

Я знаю, некоторые люди (даже наши мемберы,но не будем показывать пальцем) выкладывают некоторые игры, креки и проче на этот г0вносервис , потому как имеют какие-то небольшие деньги за закачки, так вот - заявляю - делая это, вы руководствуетесь своими низменными инстинктами побольше захапать бабла, а на тех, кто качает , Вам наплевать, ну и соответсвенно призываю всех не качать с этой новомодной хрени, уж лучше рапида с ее ограничениями по времени, чем эта фуйня !

Не качайте файлы оттуда , те, кто выложил их - хотят только на Вас заработать. (ИМХО)

| Сообщение посчитали полезным:

Soft_Ice
Эмм... да чеж так нервничать то? Если у человека такой склад ума, то его не изменить скорей всего. Пускай пробует зарабатывает копейки на этих сервисах. Проще найти нормальную работу и заработать гораздо больше. imho.

Ну и немножко рекламы hexcsl.com/upload/ и всем будет счастье! Сервис очень сырой и не дописаный до конца, но впринципе юзать можно. Залив один раз все будут счастливы

-----
Computer Security Laboratory

| Сообщение посчитали полезным:

Хекс, дафай дописывай сервис, буим им пользоваться =)

-----
Флэш, ява, дотнет - на завтрак, обед и ужин. Unity3D на закуску.

| Сообщение посчитали полезным:

Нашёл там у них плагин, естесно не опен сорс
омг base64 тяжко снять?)

| Сообщение посчитали полезным:

Вот написал утилиту на тему, юзаем в обход говняного летит бита :D
forum.ru-board.com/topic.cgi?forum=55&topic=8057

| Сообщение посчитали полезным:

alexei-s1
плагин , как и скрипт был и остается опен-сорсм. Нефига бочку катить. Читай форум для рапидгета там все есть - "Автор: kamyshew, Отправлено:12:36 14-10-2007

плагин лет ит би скачать тут
немного закодировал, надеясь что проживёт подольше чем прошлый. Кому оооооочень надо раскодируют, потратят время. Если кому нужны исходные коды - обращаемся в ПМ, с нормальным объяснением для чего,в другом случае - раскодируйте сами."

еще раз спасибо Halt за отзывчивость. ..и в плагине ник поправим.

| Сообщение посчитали полезным:

d0wn Что за нападки с твоей стороны? что тут что на борде....
Быть может тебе девушку пора найти?

| Сообщение посчитали полезным:

дык ведь 'летитбитщит' вроде есть ребята!!!

| Сообщение посчитали полезным:

летитшит

| Сообщение посчитали полезным: