ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
04.01.2008, 17:43
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
Есть код
Код:
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;
use HTTP::Cookies;
...............................
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new('GET', 'https://mysite.com');
my $res2 = $ua->request($req);
$res2 = $res2->as_string;
Перл пишет в ответ
500 Can't locate object method "new" via package "LWP::Protocol::https::Socket"
Пытаюсь поставить OpenSSL, пишет
Can't use string ("SSL.pm") as a HASH ref while "strict refs" in use at C:/Perl/
lib/ExtUtils/Install.pm line 996.
Что делать? |
|
|
05.01.2008, 23:28
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796
Репутация:
1095
|
|
>> Что делать?
установить модуль Crypt::SSLeay
|
|
|
|
08.01.2008, 17:28
|
|
Moderator - Level 7
Регистрация: 22.09.2006
Сообщений: 531
Провел на форуме:
3818187
Репутация:
369
|
|
вот чекер прокси
sub testProxy
{
$env="http://nntime.com/textenv.pl";
#$env="http://samair.ru/cgi/textenv.pl"
$s=getPage($env,"http://".$_[0]);
($adr,$port)=split(/:/,$_[0]);
if($s!~/REMOTE_ADDR=$adr/) {return 0}; #bad or transparent proxy
if($s=~/HTTP_VIA/) {return 0;} #anonymous or transparent proxy
if($s=~/HTTP_X_FORWARDED_FOR/) {return 0;} #anonymous or transparent proxy
return 1; #eleet proxy
}
sub getPage
{
use LWP::UserAgent;
$ua=LWP::UserAgent->new;
#$ua->proxy(http=>$_[1]);
$ua->timeout(10);
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");
$req=HTTP::Request->new(GET=>$_[0]);
$res=$ua->request($req);
if($res->is_success)
{
#print($res->content);
return $res->content;
}
else
{
#print "Error!\n";
}
}
sub getPage а мне нужно что б он чекел соксы 4 и 5 и https и разбрасывал по отдельным файлам все что начекал да еще и многопоточный был
как я могу это сотворить еси можно плизз готовое решение я не силен в перле только регулярки написать могу и больше ничего 
Последний раз редактировалось satana8920; 08.01.2008 в 17:46..
|
|
|
|
13.01.2008, 02:50
|
|
Постоянный
Регистрация: 03.03.2005
Сообщений: 351
Провел на форуме:
1120282
Репутация:
112
|
|
Ночи доброй! Думаю что перл =/ Но не уверен. Сам перл полностью не знаю.
Не усовершенствуете скриптик, до того что бы определённому нику не слалось "/ctcp"
Код:
massctcp {
var %i = 1
while (%i <= $nick(#,0)) {
set %nick $nick(#,%i)
/timer $+ %i 1 %i /ctcp %nick /msg $me version
unset %nick
inc %i
} } }
|
|
|
|
15.01.2008, 22:46
|
|
Moderator - Level 7
Регистрация: 22.09.2006
Сообщений: 531
Провел на форуме:
3818187
Репутация:
369
|
|
Народ ваще как вот сокс организовать? например по джабберу
|
|
|
|
16.01.2008, 00:04
|
|
Флудер
Регистрация: 18.01.2005
Сообщений: 2,298
Провел на форуме:
13936387
Репутация:
1844
|
|
Сообщение от vorishka
Ночи доброй! Думаю что перл =/ Но не уверен. Сам перл полностью не знаю.
Не усовершенствуете скриптик, до того что бы определённому нику не слалось "/ctcp"
Код:
massctcp {
var %i = 1
while (%i <= $nick(#,0)) {
set %nick $nick(#,%i)
/timer $+ %i 1 %i /ctcp %nick /msg $me version
unset %nick
inc %i
} } }
Это не перл... Это скорее скриптовый язык какой-нибудь проги, наверное Mirc...
В Mirc скриптах разбираюсь очень-очень плохо... Но думаю (наподобии Си), что нужно условие добавить в цикл:
Код:
if (%niсk = нужный ник) {
вот тут надо написать что не надо слать
}
Лучше-бы в тему языка Си запостил... Что-то схожее у Mirc скриптов с ним есть... while есть, это цикл...
Последний раз редактировалось dinar_007; 16.01.2008 в 14:08..
Причина: Т.к. в условии %nick, то заменил if ($niсk = нужный ник) { на if (%niсk = нужный ник) {
|
|
|
|
27.01.2008, 02:11
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 413
Провел на форуме:
1301036
Репутация:
1334
|
|
Какие права нужно выставлять файлам pl, cgi?
|
|
|
|
27.01.2008, 02:12
|
|
Members of Antichat - Level 5
Регистрация: 09.10.2006
Сообщений: 1,698
Провел на форуме:
9098076
Репутация:
4303
|
|
755
-rwxr-xr-x
|
|
|
|
27.01.2008, 10:44
|
|
Banned
Регистрация: 06.06.2006
Сообщений: 944
Провел на форуме:
3986705
Репутация:
1403
|
|
Можно и 777 :d
|
|
|
|
27.01.2008, 12:31
|
|
Members of Antichat - Level 5
Регистрация: 09.10.2006
Сообщений: 1,698
Провел на форуме:
9098076
Репутация:
4303
|
|
Когда ты запускаешь в браузере как cgi скрипт он может ругаться на такие права =\
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
