[Crystal]

ищу модуль для 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;

но помойму что то нето.. рандом нерулит