ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
22.11.2007, 23:13
|
|
Banned
Регистрация: 23.07.2007
Сообщений: 87
Провел на форуме:
2147329
Репутация:
613
|
|
Парни! Есть массив, состоящий из девяток (ну, 9*). Как из этого массива выбрать только xyz'ы ???
|
|
|
23.11.2007, 00:21
|
|
Постоянный
Регистрация: 05.06.2007
Сообщений: 335
Провел на форуме:
4319431
Репутация:
677
|
|
ну чтение и запись в файл я думаю ты сам сможешь сделать
$osika = '438884348';
@IN = split(//, $osika);
@IN = grep{!$_{$_}++} @IN;
if (@IN < 4)
{
print $osika."\n";
}
|
|
|
|
26.11.2007, 02:21
|
|
Познающий
Регистрация: 19.09.2007
Сообщений: 38
Провел на форуме:
424313
Репутация:
2
|
|
Народ, подскажите пожалуйста... Есть база мыл - весит 100 мб (тхт) , есть фильтр весит 700 мб (тхт) . Как можно сделать так что бы из первого файла были удалены быстро и качественно совпадения по фильтру.А результат записан в другой какой то файл.
|
|
|
|
26.11.2007, 03:18
|
|
Постоянный
Регистрация: 05.06.2007
Сообщений: 335
Провел на форуме:
4319431
Репутация:
677
|
|
что из себя представляет фильтр?
|
|
|
|
26.11.2007, 04:11
|
|
Banned
Регистрация: 06.06.2006
Сообщений: 944
Провел на форуме:
3986705
Репутация:
1403
|
|
что из себя представляет фильтр?
Думаю просто список мыльников...
Фильтрация тут имхо сравнение - Т.е. если мыльник, из первого файла совпадает с мыльником из вторга файла, то его пропускают, если не совпадает пишем в файл... и. т.д.
|
|
|
|
26.11.2007, 17:03
|
|
Познающий
Регистрация: 19.09.2007
Сообщений: 38
Провел на форуме:
424313
Репутация:
2
|
|
Угу. Второй файл - просто список абузных мыл. Которых не должно быть в итоговом файле.
|
|
|
|
02.12.2007, 16:41
|
|
Познающий
Регистрация: 03.06.2007
Сообщений: 31
Провел на форуме:
163026
Репутация:
3
|
|
Есть такой сайт getfirelink.net отправляет файлы на почту. Так вот на этом сайте за ежедневное посещение сайта бесплатно добавляется 5Мб.
Собсна ниже приведен скрипт который при запуске должен заходить на сайт и ароходить авторизацию, но чет не работает, помогите пожалуйста исправить скрипт.
Код:
#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Cookies;
$url = "http://getfirelink.net/";
$login = "";
$password = "";
$xpl = LWP::UserAgent->new() or die;
$cookie_jar = HTTP::Cookies->new();
$xpl->cookie_jar( $cookie_jar );
$res = $xpl->post($url.'index.php',
[
"user" => "$login",
"password" => "$password",
]);
$cookie_jar->extract_cookies($res);
$xpl->get($url.'cabinet/files/index.php');
|
|
|
|
02.12.2007, 17:26
|
|
Banned
Регистрация: 12.01.2007
Сообщений: 113
Провел на форуме:
4094601
Репутация:
495
|
|
Код:
#!perl
use warnings;
use strict;
use LWP::UserAgent;
my ( $ua,$id,$pwd ) = ( LWP::UserAgent->new,"demonoid","JIAPOJIb" );
my $res = $ua->post( "http://getfirelink.net/index.php?user=".$id."&passwd=".$pwd."&submit_login=%D0%92%D0%BE%D0%B9%D1%82%D0%B8" );
# тут проверку сделай удалась авторизация или нет
# ...$res->as_string;
Последний раз редактировалось demonoid; 02.12.2007 в 17:32..
|
|
|
|
02.12.2007, 17:53
|
|
Познающий
Регистрация: 03.06.2007
Сообщений: 31
Провел на форуме:
163026
Репутация:
3
|
|
А можно довести скрипт до ума, а то я практически ни чего не понимаю в перле
|
|
|
|
HTTP::Cookies - логин в админку вордпресса |
02.12.2007, 18:55
|
|
Новичок
Регистрация: 20.06.2007
Сообщений: 3
Провел на форуме:
50953
Репутация:
4
|
|
HTTP::Cookies - логин в админку вордпресса
Камрады! Не могу одолеть wordpress движок, перл начал изучать недавно.
Вот у меня написан скрипт логина в юзерскую админку вордпресса - всё работает.
PHP код:
#usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
#-- USER AGENT
my $user_agent = LWP::UserAgent->new;
$user_agent->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7');
$user_agent->cookie_jar( {} );
$user_agent->timeout(7);
$user_agent->default_headers->push_header(
'Accept-Charset' => 'iso-8859-1,*,utf-8'
);
$user_agent->default_headers->push_header(
'Accept' => 'text/xml,application/xml, application/xhtml+xml, text/html, text/plain, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*'
);
$user_agent->default_headers->push_header(
'Accept-Language' => 'en-US'
);
#-- BLOG DATA
my $url = "http://localhost/tst2/wp2/";
my $usr = "user1";
my $pwd = "qazwsx";
#-- LOGIN
my $req = HTTP::Request->new( POST => $url . 'wp-login.php' );
$req->content_type('application/x-www-form-urlencoded');
$req->content( sprintf('log=%s&pwd=%s&wp-submit=Login »&redirect_to=wp-admin/',$usr,$pwd) );
my $res = $user_agent->request( $req );
#-- USER WP-ADMIN
$req = HTTP::Request->new( GET => $url . 'wp-admin');
$req->content_type('application/x-www-form-urlencoded');
$res = $user_agent->request( $req );
print $res->as_string;
Далее, я бы хотел немного переделать скрипт.
В лисе с помощью расширения EDIT COOKIES я продляю срок действия вордпрессовских кукисов, в результате чего в мозилловском файле cookies.txt появляется следующая запись:
PHP код:
localhost FALSE /tst2/wp2/ FALSE 1227897800 wordpresspass_c7e1d058c6b9ded5cfeaa99ec2ae0c85 ef4ddf645aa223c0b2b1356fbb4fd90a
localhost FALSE /tst2/wp2/ FALSE 1227897800 wordpressuser_c7e1d058c6b9ded5cfeaa99ec2ae0c85 user1
Теперь, в следующий раз в браузере можно сразу попасть в админку вордпресса.
А вот скриптом не получается, редериктит на wp-login.php:
PHP код:
#usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
#-- USER AGENT
my $user_agent = LWP::UserAgent->new;
my $cookie_jar = HTTP::Cookies::Netscape->new( file=> 'firefox_cookies.txt', );
$user_agent->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7');
$user_agent->cookie_jar( $cookie_jar );
$user_agent->timeout(7);
$user_agent->default_headers->push_header(
'Accept-Charset' => 'iso-8859-1,*,utf-8'
);
$user_agent->default_headers->push_header(
'Accept' => 'text/xml,application/xml, application/xhtml+xml, text/html, text/plain, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*'
);
$user_agent->default_headers->push_header(
'Accept-Language' => 'en-US'
);
#-- BLOG DATA
my $url = "http://localhost/tst2/wp2/";
#-- USER WP-ADMIN
my $req = HTTP::Request->new( GET => $url . 'wp-admin');
$req->content_type('application/x-www-form-urlencoded');
my $res = $user_agent->request( $req );
print $res->as_string;
Где вкралась ошибка?
Попробовал тоже самое с гуглом - подставил кукисы англоязычного профайла, чтоб редериктело сразу на англоязычную версию, а не на локальную - с гуглом работает. |
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
