Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
MyDC.ru _ Отдельные боты _ perl Net::DirectConnect
Автор: pro 29.1.2010, 0:11
Постепенно на перле пилится такая библиотека Net::DirectConnect.
сейчас умеется nmdc, adc, и даже микро-для-тестов- adc хаб .
в текущей версии - умеет раздавать файло и делать файллисты. в планах - раздавать не хуже и вместо microdc2
в examples/stat - такая собиралка статистики
свежайшая версия - svn://svn.setun.net/dcppp/trunk
прошлые релизы -
работает в windows, linux, freebsd, и наверно везде где есть перл. (в венде в mingw пока не собирается XS для tth - пока только cygwin)
в планах - доделать, оптимизировать, web морда, cli управление, авто сбор файллистов, встроенная статистика,итд
и много мыслей про децентрализацию, безхабную работу в пределах сегмента сети, [любые] другие хеши кроме tth итд.
а еще эта штука тоже на нем работает
может кому пригодится.
Автор: SAG 29.1.2010, 18:06
А что это за штука? Как она работает и к чему она прикручивается?
(а то я не в курсе )
Автор: pro 30.1.2010, 4:41
это библиотека, с которой можно сделать какого-нибудь бота.
тут типо была фраза, но думаю лишняя
Все зависит от фантазии 8)
Автор: mariner 30.1.2010, 9:13
эх, во написал бы кто пингер на перле 
Автор: pro 30.1.2010, 14:29
что надо от него?
зайти, выйти и вернуть сколько юзеров-байт ?
минут за 10 можно сделать..
Автор: Jaska 30.1.2010, 14:51
Набросай тогда если нетрудно будем очень благодарны
Автор: Saymon 30.1.2010, 15:21
Разобраться бы ещё как перл на винде заставить работать 
Долго мучался - не вышло 
Автор: pro 30.1.2010, 16:02
Автор: Saymon 30.1.2010, 16:06
эт я копал уже)) не вышло(
Автор: pro 30.1.2010, 16:29
зачем копать?
поставить любой из - и все работает..
а еще -
Автор: Saymon 30.1.2010, 16:32
проблема та что я поставил, но скрипты в браузере открывает так как будто нет поддержки перла
Автор: mariner 30.1.2010, 17:22
pro, просто есть скрипт WebStats
У него пингер на php - а это редкостное Г
Посему и реквест на написание
Автор: PomanoB 30.1.2010, 20:26
В WebStats скоро будет обходчик на C, уже почти доделал, так что все будет быстро и легко
Автор: mariner 30.1.2010, 21:22
а память у него не течет? Я проверю.
Автор: pro 31.1.2010, 2:13
взять последнее с svn - там
examples/pinger.pl
и оч древний countub.pl
за $BotINFO птока зачем-то выкидывает, но и без нее работает.
и покажите мне на php хоть что-нибудь не редкостное ;)
Автор: PomanoB 31.1.2010, 15:31
Нет конечно)
Автор: mariner 31.1.2010, 20:33
а valgrind проверял?
Автор: PomanoB 1.2.2010, 12:49
Нет, я еще не доделал полностью, как доделаю, проверю, но утечек быть не должно
Автор: mariner 1.2.2010, 14:10
Юзай talloc =)
Автор: pro 9.2.2010, 4:14
сочинен вариант автоматически скачивающий самое популярное файло - examples/get.pl
сам алгоритм скачивания пока сырой, для лучшести рекомендуется перезапускать скрипт напрмиер каждый час.
Автор: Otshelnik-Fm 9.2.2010, 20:20
Самое популярное файло - порево... имхо.
Автор: mrsir 10.2.2010, 15:36
сам алгоритм скачивания пока сырой, для лучшести рекомендуется перезапускать скрипт напрмиер каждый час.
Спасибо за модуль. Только жаль документации нет.
Пытаюсь написать бота, столкнулся с некоторыми проблемами:
При создании объекта указываю myport = 41111, но он все равно затирается тем, что по умолчанию прописан в модуле DirectConnect.pm
такая же фигня с атрибутом auto_connect. В перле я не очень хорошо разбираюсь, поэтому прошу помочь решить проблему.
код:
use 5.10.0;
use strict;
eval { use Time::HiRes qw(time sleep); };
use lib '../lib';
use Net::DirectConnect; #::clihub;
use Data::Dumper;
$Data::Dumper::Sortkeys = $Data::Dumper::Useqq = $Data::Dumper::Indent = 1;
my $dc = Net::DirectConnect->new(
'host' => 'dchub://192.168.186.10:411',
'M' => 'A',
'myport' => 41111,
'Nick' => "spy",
'Pass' => '123',
'S' => 20,
'O' => 0,
'lock' => 'EXTENDEDPROTOCOLABCABCABCABCABCABC Pk=DCPLUSPLUS0.668ABCABC',
'cmd_sep' => ' ',
'sharesize' => 1000000000000,
'client' => 'dc++',
'V' => '0.777',
'description' => 'spy',
'connection' => 'LAN(T3)',
'email' => '',
'flag' => 1,
'log' => sub(){},
'auto_GetINFO' => 0,
);
print 'myport='.$dc->{'myport'}."\n";
exit 0;
Автор: pro 11.2.2010, 2:48
Исправлено.
'auto_connect' => 0, - теперь работает.
и любой myport.
svn up
Документацию пока рано делать и некогда, еще много переделывать-переименовывать..
по поводу примера - 'cmd_sep' => ' ', - лучше вообще не трогать, поломается протокол.
Автор: mrsir 12.2.2010, 9:15
еще неплохо было бы добавить в метод search дополнительные параметры поиска - тип файлов, размер и тип поиска по размеру (больше, меньше, равно), а то сейчас приходится юзать sendcmd
и еще вопрос у меня такой - я юзаю бота в сети за NATом, использую порт форвардинг, настройки бота следующие:
M = A
myport = 5556
myport_udp = 5556
myip = 10.0.0.2 (IP файервола с порт форвардингом)
нужно ли какие-либо дополнительные параметры настраивать для использования за NATом? Дело в том, что результаты на поисковые запросы приходят, но их мало. Например, Linuxdc++ при поиске по слову russia возвращает ~800 результатов, а бот всеголишь ~400. Возможно остальное теряется из-за бага, но может я что-то забыл добавить?
Автор: pro 13.2.2010, 3:14
доделал search -
$dc->search( 'lost', undef, 409483264 ); # F?T?409483264?1?lost !! search params in REVERSE order, second value - search type, autodetect if undef
что равно
$dc->search( 'lost', undef, 409483264, 'T', 'F' );
по поводу ната - вроде все похоже, почему так - надо дебажить.
например найти запрос с 10 результаттами и смотреть как и что принимает нормальный клиент, и сравнивать с ботом.
Автор: KenGuru 16.2.2010, 11:24
Скажите, а умеет ли этот бот проводить поиск по tth?
т.е. есть файловый сервер, надо сделать так чтобы бот сканировал хаб на заданный tth и выводил статистику, что данный файл есть у таких-то юзеров в DC. Может кто-нить сталкивался.
Автор: mrsir 16.2.2010, 13:01
Библиотека Net::DirectConnect позволяет делать поиск по ттх, достаточно при поиске в методе search указать искомый TTH
я так рассчитываю банить юзеров за порнушку
Автор: KenGuru 16.2.2010, 13:17
А можно подробнее, если не трудно?
ситуация какова, у меня фряшка, я на ней распаковал библиотеку. Захожу в папку, запускаю stat.pl, он соединяется с нашим хабом, и вот тут вопрос, что дальше, как заставить его искать нужный tth?
P.S.: извините за настойчивость, я пока только учусь работать с unix'ами, буду крайне признателен за помощь=)
Автор: mrsir 16.2.2010, 14:14
вот пример моего простого бота, который делает запрос по TTH и печатает результаты ответов
use 5.10.0;
use strict;
use IO::Socket::INET;
eval { use Time::HiRes qw(time sleep); };
use lib '../lib';
use Net::DirectConnect; #::clihub;
use Data::Dumper;
$Data::Dumper::Sortkeys = $Data::Dumper::Useqq = $Data::Dumper::Indent = 1;
my $dc = Net::DirectConnect->new(
'host' => 'dchub://example.ru:411',
'Nick' => "Spy",
'Pass' => '*****',
'M' => 'A',
'reconnects' => 500,
#следующие три параметра указывать если бот за NATом, на нате включить портфорвардинг
'myport' => 4444,
'myport_udp' => 4444,
'myip' => '10.0.0.2',
################################
'S' => 20,
'O' => 0,
'sharesize' => 1000099800000,
'client' => 'dc++',
'V' => '0.777',
'description' => 'spy',
'connection' => 'LAN(T3)',
'email' => '',
'flag' => 1,
'log' => sub(){},
'auto_GetINFO' => 0,
);
#эта функция вызывается тогда когда к боту приходит поисковый запрос
$dc->{'handler'}{'Search'} = sub
{
my $dc = shift;
my $s = shift;
#print $s."\n" if !($s =~ m/tth:/i);
};
#эта функция вызывается тогда когда к боту приходит результат на его(бота) поисковый запрос
$dc->{'handler'}{'SR'} = sub
{
my $dc = shift;
my %s = %{ $_[1] || return };
if ($s{tth} ne '')
{
print $s{nick}.':::'.$s{filename}."\n";
}
};
my $i = 0;
while ($dc->active())
{
if ($i == 1000)
{
$dc->search('6U4DTAKUXPXNUXNS366T5CS7ALJZWRQ2PH4ZSMI');
}
$dc->work();
$i++;
}
$dc->wait_finish();
$dc->disconnect();
exit 0;
Автор: mrsir 25.2.2010, 12:04
Привет.
Хочу сделать еще одно предложение по расширению функционала:
Сейчас метод "get" загружает файл полностью, было бы неплохо реализовать частичную загрузку с указанного места в файле и указанное кол-во байт. Такая возможность нужна для получения информации о видео, аудио файле и т.д. Скачал первые 10 Кб - и все стало ясно))
Автор: pro 20.7.2010, 3:29
.. не прошло и пол года, но теперь ->get умеет дополнительные параметры начала и размера файла.
не проверял.
в trunk.
Автор: omen 3.8.2010, 18:30
А как настроить его под сервер хаба ?И что нужно делать,люди помогите
Автор: Saymon 9.8.2010, 20:24
Вопрос таковой, где прописывать адреса хабов, на которых нужно искать файлы??
Автор: HackFresse 10.8.2010, 8:33
вроде как в параметрах запуска, типа
perl crawler.pl dchub://hub.mydc.ru dchub://coolhub.sytes.net dchub://pashahub.ru