HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #1511  
Старый 20.04.2010, 20:47
eLWAux
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568

Репутация: 2399


Отправить сообщение для eLWAux с помощью ICQ
По умолчанию

Цитата:
Сообщение от SeNaP  
Всем привет.
Помогите составить регулярное выражение
<b><a class=link1 href="subkat.php?type=showsubkat&type2=1">ТЕКСТ1</a></b>
Нужно, чтобы ТЕКСТ1 вернуло.
Код:
if ($page =~ /<b><a class=link1 href=".+?">(.+?)<.a><.b>/i) { .. };
Цитата:
Сообщение от L!S  
}{@I{er'Ы
Найдите пожалуйста ошибку в скрипте PERL(для взлома стрпниц вконтакте)

#!/usr/bin/perl
....
ато у меня не сохраняются правильный пороль в good.txt
ошибки нету, скрипты старый. для вк и других соц. сетей есть другой раздел на этом форуме.

Последний раз редактировалось eLWAux; 20.04.2010 в 20:52..
 
Ответить с цитированием

  #1512  
Старый 21.04.2010, 14:15
mazaxaka
Участник форума
Регистрация: 16.02.2008
Сообщений: 177
Провел на форуме:
883446

Репутация: 82
По умолчанию

как заставить перk работать с https \ssl
 
Ответить с цитированием

  #1513  
Старый 21.04.2010, 15:20
Kaimi
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311

Репутация: 1676


Отправить сообщение для Kaimi с помощью ICQ
По умолчанию

IO::Socket::SSL поставить
 
Ответить с цитированием

  #1514  
Старый 25.04.2010, 18:03
Vlad&slav
Участник форума
Регистрация: 01.01.2009
Сообщений: 138
Провел на форуме:
817404

Репутация: 82
Отправить сообщение для Vlad&slav с помощью ICQ
По умолчанию

где ошибко?
PHP код:
# perl
$a=3
$b=5
my $aaa $b%$a;
print 
$aaa;
sleep (123); 
 
Ответить с цитированием

  #1515  
Старый 25.04.2010, 18:41
Fepsis
Постоянный
Регистрация: 17.09.2008
Сообщений: 562
Провел на форуме:
6962560

Репутация: 536


По умолчанию

Цитата:
Сообщение от Vlad&slav  
где ошибко?
Результат в консоли ждёшь..?!
Код:
# perl 
$a=3;  
$b=5;  
my $aaa = $b%$a; 
print $aaa."\n"; 
sleep (123);
 
Ответить с цитированием

  #1516  
Старый 01.05.2010, 12:47
Mr.Replica
Участник форума
Регистрация: 18.05.2010
Сообщений: 215
Провел на форуме:
2972711

Репутация: 92
По умолчанию

Пишу авторег,не могу выставить функцию чтоб ключ AC выдирал из файла Key.txt
PHP код:
 #antigate 
my $AC_HOST 'antigate.com'
 
#AC key     
my $AC_KEY 'key.txt'
Где ошибка??
 
Ответить с цитированием

  #1517  
Старый 02.05.2010, 00:23
.Slip
Leaders of Antichat - Level 4
Регистрация: 16.01.2006
Сообщений: 1,966
Провел на форуме:
21768337

Репутация: 3486


По умолчанию

Ошибка вероятней всего в авторе кода, который не хочет/не может прочитать элементарный материал и уже начинает "программировать".
 
Ответить с цитированием

  #1518  
Старый 05.05.2010, 21:55
Vlad&slav
Участник форума
Регистрация: 01.01.2009
Сообщений: 138
Провел на форуме:
817404

Репутация: 82
Отправить сообщение для Vlad&slav с помощью ICQ
По умолчанию

Помогите исправить ошибки в функции

PHP код:
#!/usr/bin/perl

use Socket;

sub anti_num_capcha
{
    
$_[0] =~/Время на раздумье 1 минута\: (.+) \=/;

    
my($ch1,$ch2) = split(/+/, $1);
    
    print 
$ch1;
    print 
$ch2;
    
    
$host 'iiii.eu5.org';
    
$doc  '/anc/index.php?text='.sh1;
    
$conn IO::Socket::INET->new(Proto => 'tcp',
                                  
PeerAddr => $host,
                                  
PeerPort   => "http(80)");
    || die 
"Can’t connect\n"
    
    if (!
$conn);
    
$conn->autoflush(1);
    print 
$sock join(
    
"GET / HTTP/1.0",
    
"Host: 127.0.0.1",
    
"User-Agent: Agent v 1.0",
    
"""");
    
my $res1;
    while (<
$sock>) { $res1 $res1.<$sock>; }
    
close $sock;
    
    
$doc  '/anc/index.php?text='.sh2;
    
$conn IO::Socket::INET->new(Proto => 'tcp',
                                  
PeerAddr => $host,
                                  
PeerPort   => "http(80)");
    || die 
"Can’t connect\n"
    
    if (!
$conn);
    
$conn->autoflush(1);
    print 
$sock join(
    
"GET / HTTP/1.0",
    
"Host: 127.0.0.1",
    
"User-Agent: Agent v 1.0",
    
"""");
    
my $res2;
    while (<
$sock>) { $res1 $res2.<$sock>; }
    
close $sock;    
    
    return 
$res1 $res2;
    
}

print 
anti_num_capcha('Для подтверждения того что вы человек, напишите ответ на несложный пример. Время на раздумье 1 минута: сорок пять  + шестнадцать =');

sleep(123); 
 
Ответить с цитированием

  #1519  
Старый 06.05.2010, 07:01
krypt3r
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186

Репутация: 905


По умолчанию

use strict;
use warnings;
perldoc -f join
print и снифер для отладки
 
Ответить с цитированием

  #1520  
Старый 09.05.2010, 23:39
Kaimi
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311

Репутация: 1676


Отправить сообщение для Kaimi с помощью ICQ
По умолчанию

Это варнинг, который намекает, что ты использовал массив results только один раз в коде.
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[c/c++] Новичкам: задаем вопросы _Great_ С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 5421 21.04.2026 07:37
[php] Новичкам: задаем вопросы _Great_ PHP 16396 17.06.2010 21:19
Вопросы по Ipb 2.0 Voodoo_People Уязвимости CMS / форумов 26 15.02.2005 22:57



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ