ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
09.02.2009, 10:55
|
|
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме:
292722
Репутация:
71
|
|
Сообщение от or1
------------------------------------------------------------------
а вот хотел тебя еще раз спросить ,конечно в том случае если ты конечно запускал этот скрипт
что за слова эти тебе они не знакомы?
вроде как не на русском и не англиском
inicirisci Mail Viltima
inicirisc Mitento Falso
inicirisc Messaggio
нет. я его не запускал.
|
|
|
09.02.2009, 15:45
|
|
Познающий
Регистрация: 08.04.2008
Сообщений: 60
Провел на форуме:
111221
Репутация:
2
|
|
Помогите плиз
$smth =~/title"\svalue\="(.*)">/
У меня в переменной $smth много есть участков, которые удовлетворяют вышенаписанному условию.
Но как сделать, чтобы перл присваивал переменной $1 значение из последнего совпавшего участка текста в переменной $smth?
|
|
|
|
09.02.2009, 16:33
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
Помогите плиз
$smth =~/title"\svalue\="(.*)">/
У меня в переменной $smth много есть участков, которые удовлетворяют вышенаписанному условию.
Но как сделать, чтобы перл присваивал переменной $1 значение из последнего совпавшего участка текста в переменной $smth?
Можно например так сделать:
Код:
$text = "value=1 value=2 value=3 value=4";
$m = ( $text =~ /=(\d+)/g )[-1];
print $m;
|
|
|
|
09.02.2009, 19:08
|
|
Новичок
Регистрация: 09.11.2008
Сообщений: 13
Провел на форуме:
399578
Репутация:
40
|
|
Всем привет. Помогите в спамере по одноклассникам от Каими сделать что б он спамил по онлайн пользователям только с Украины, России и Казахстана.
Вот сам скрипт:
http://kaimi.ru/wp-content/uploads/2009/01/pack.rar
|
|
|
|
10.02.2009, 02:32
|
|
Познающий
Регистрация: 08.04.2008
Сообщений: 60
Провел на форуме:
111221
Репутация:
2
|
|
Kaimi, спасибо.
Вот хочу я, чтобы ко всем новостям сайта (двиг - ДЛЕ 7.3) были сделаны ключевые слова и описание. В ДЛЕ есть генератор этот находится в http://domain/engine/ajax/keywords.php
Делаю туда пост запрос аналогично браузеру, а он мне возвращает только слова на английском(те, что латиницей). Очень странно. Когда я жму на кнопку "Сгенерировать ключевые слова" в одминке через браузер - генерирются, к примеру, слова
Nokia, Темы, 6275i, телефонов, download.
А результат пост запроса, сделанный через LWP таков:
Никак не могу понять в чем проблема. Какие у Вас возникают мыслишки по этому поводу? Мне что то не понять - почему такое происходит((?
|
|
|
|
11.02.2009, 23:40
|
|
Постоянный
Регистрация: 11.03.2008
Сообщений: 347
Провел на форуме:
2075230
Репутация:
462
|
|
Скрипт юзает прокси, как перейти к сделующей прокси в списке при опред. условии?
|
|
|
|
11.02.2009, 23:56
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
ph1l1ster, скрипт покажи
|
|
|
|
12.02.2009, 00:03
|
|
Постоянный
Регистрация: 11.03.2008
Сообщений: 347
Провел на форуме:
2075230
Репутация:
462
|
|
eLWAux, Что там показывать то?? обычный скрипт с LWP::UserAgent
Код:
$url="ссылко";
$start=LWP::UserAgent->new or die;
if($proxy)
{
$start->proxy('http',"http://".$proxy."/");
print "## Using proxy ".$proxy."\n";
}
$browse = $start->get($url) or die ;
$cont = "контент";
if (index($browse->content,$cont)>-1)
{
print "Next proxy!";
}
и вот когда нашёл $cont надо перейти на другую проксю и опять его искать.))
|
|
|
|
12.02.2009, 12:44
|
|
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме:
292722
Репутация:
71
|
|
ph1l1ster, вызови еще раз метод proxy(), только с другими параметрами! Только сам поиск надо в цикл запихнуть.
|
|
|
|
13.02.2009, 12:58
|
|
Постоянный
Регистрация: 11.03.2008
Сообщений: 347
Провел на форуме:
2075230
Репутация:
462
|
|
есть скрипт:
Код:
open(PASS,"pass.txt")
$pass=<PASS>
$url="ссылка".$pass."ссылка";
$br = LWP::UserAgent->new( ) or die;
$a = $br->get($url);
if (index($a->content,$index)>-1)
{
print $pass;
}
как реализовать многопоточность, чтобы в каждом новом потоке бралась новая строчка из $pass
Последний раз редактировалось ph1l1ster; 13.02.2009 в 13:31..
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
