ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
04.07.2008, 00:59
|
|
Постоянный
Регистрация: 25.08.2007
Сообщений: 365
Провел на форуме:
1289173
Репутация:
39
|
|
perl помогите
если я не ошибаюсь то этот файл XXX.pl это перл скрипт ,,
я не умею запускать перл скрипты может кто поможет
|
|
|
04.07.2008, 01:02
|
|
Познавший АНТИЧАТ
Регистрация: 31.03.2006
Сообщений: 1,167
Провел на форуме:
4072944
Репутация:
1550
|
|
скачай с офф сайта актив перл..установи... в кмд пишешь
c:\perl exploit.pl
http://www.activestate.com/Products/activeperl/index.mhtml
eto dlya windows
v linux perl interpretator esti i tak
Последний раз редактировалось Gorev; 04.07.2008 в 01:05..
|
|
|
|
04.07.2008, 01:03
|
|
Постоянный
Регистрация: 25.08.2007
Сообщений: 365
Провел на форуме:
1289173
Репутация:
39
|
|
и ещё одно как создать icq бота на для анекдот типа посылаешь сообщение !anekdot он выдаёт случайный из базы если можно то из какого нибудь текстового файла типа base.txt может кто знает (лучше на классе WebIcqPro.class.php-
|
|
|
|
04.07.2008, 01:24
|
|
Постоянный
Регистрация: 24.12.2007
Сообщений: 574
Провел на форуме:
3186852
Репутация:
316
|
|
WebIcqPro.class.php и .pl чуешь разницу?
|
|
|
|
04.07.2008, 01:26
|
|
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
Как то так:
PHP код:
<?
set_time_limit(0);
require_once('WebIcqPro.class.php');
$file = 'anek.txt';
$icq = new WebIcqPro();
$uin = 1234567;
$pwd = 123456;
$anek = file($file);
if($icq->connect($uin,$pwd)) { echo "Connected";}
else { echo $icq->error; exit();}
while($icq->isConnected()) {
$msg = $icq->readMessage();
if(preg_match('/!anekdot/', $msg['message'], $trash))
{
$icq->sendMessage($msg['from'], $anek[rand(0,sizeof($anek)-1)]);
}
}
?>
|
|
|
|
04.07.2008, 01:34
|
|
Постоянный
Регистрация: 25.08.2007
Сообщений: 365
Провел на форуме:
1289173
Репутация:
39
|
|
а как в anek.txt должны делится анекдоты а то мне всё сразу пришлёт
|
|
|
|
04.07.2008, 01:35
|
|
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
Новая строка - новый анекдот
|
|
|
|
04.07.2008, 01:39
|
|
Постоянный
Регистрация: 25.08.2007
Сообщений: 365
Провел на форуме:
1289173
Репутация:
39
|
|
а ну это хорошо
|
|
|
|
04.07.2008, 01:46
|
|
Постоянный
Регистрация: 25.08.2007
Сообщений: 365
Провел на форуме:
1289173
Репутация:
39
|
|
on у меня не пашет пишет ошибку login.icq.com:порт time out
|
|
|
|
04.07.2008, 01:47
|
|
Постоянный
Регистрация: 25.08.2007
Сообщений: 365
Провел на форуме:
1289173
Репутация:
39
|
|
при запуске
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
