forum.lissyara.su

Код: Выделить всё

#!/usr/bin/perl


use HTTP::Request::Common;
require LWP::UserAgent;
use Getopt::Std;


usage()
   if ($ARGV[0] eq "-h");

getopt("sctln");
$pageshow= $opt_s || 'http://xakepy.ru/index.php';
$pageclick= $opt_c || 'http://top.list.ru/counter?id=953756&t=130&js=13&r=<REF>&j=true&s=<_SW>*<_SH>&d=<_SC>&rand=<RND>';                                                        
$t= $opt_t || 50;
$n= $opt_n || 200;  
$proxylist= $opt_l || 'proxy.txt';
$counter= 0;

sub click{
($p)=@_;
$p=substr($p,0,length($p)-1);
$ua = new LWP::UserAgent;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(30);
$ua->proxy('http',"http://".$p);
$h1 = new HTTP::Headers
Accept => 'application/vnd.ms-excel, application/msword, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-comet, */*',
User_Agent => 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)',
Referer => $pageshow;
$req1 = new HTTP::Request ('GET', "$pageclick", $h1);
$response=$ua->request($req1);
$suc=$response->is_success;
($suc) || print " $p - :".$response->code."\n";
if ($suc) {
open(FH,">>goodproxy.txt");
print FH $p."\n";
close FH;
};
($suc) && print "$p +\n";
sleep(5);
}

print "\n
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Page, we'll show:\n $pageshow\nLink, we'll click:\n $pageclick
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n\n";
open(PROXY, "$proxylist");
@xproxy=<PROXY>;
chomp(@xproxy);
$suc=1;

if ($t>$n) {$t=$n;}
while (1) {
for ($i=1;$i<=$t;$i++) {
if (($xproxy[$counter] == '') or ($counter == $n)) {
killpidz();
print "\nDone !!!\n";
exit;
}
if ($pid=fork()) {
push(@forked,$pid);
} else {
click($xproxy[$counter]);
exit;
}
$counter++;
}
killpidz();
}

sub usage {
print & #34;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++
Usage: perl $0 [options]...\n";
print "Options are:
   -s: Page to show (page with the banner)
   -c: Link to click
   -t: Number of treads(def: 50)
   -n: Number of clicks(def: 200)
   -l: Proxy list (def: pxoxy.txt)
   -h: This help
\nExample:
    perl $0 -s \"site.ru\" -c \"site.ru/banner.php?id=777\" -t 250
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++";
exit;
}


sub killpidz {
 foreach (@forked) {
   chomp;
   waitpid($_,0);
   kill("TERM" => $_)
 }
 undef @forked;
}

exit;

Код: Выделить всё

#!/bin/bash
#
# fakeclicker v1.3
# Author: Acid Jack «acid_jack [at] ukr [dot] net»
#

# Your target 2 fuck up.
#URL="http://www.internetmap.info/cgi-bin/go.cgi?site_id=13121"	    #blogland
URL="http://www.internetmap.info/cgi-bin/go.cgi?site_id=13469"	    #world

# Recommended 4 more 'fakeness' in logs.
# Use URL of page from which would be make a real click.
REFERER="http://jack.kiev.ua/"
#REFERER=$URL

# PROXYLIST is a file with single 'ip:port' in every line
#PROXYLIST="$1"
#if [[ $PROXYLIST = "" ]]; then
#    echo "Usage: `basename $0` proxy_list"
#    exit 0
#fi

# publicproxyservers.com --- BEGIN ---

TMP="/tmp/page.tmp"
curl http://www.proxy4free.com/page1.html 2>/dev/null > $TMP
curl http://www.proxy4free.com/page2.html 2>/dev/null >> $TMP

declare -i i j OK
i=1
j=1
OK=0

#Extracting an addresses
for a in `egrep '=[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+' -o $TMP \
| gawk -F\= '{ print $2 }'`
do
    addr[$i]=$a
    i=$i+1
done

i=1
	
#Extracting an ports
for a in `egrep 'd>[0-9]+<' $TMP -o | gawk -F\> '{ print $2 }' \
| egrep [0-9]+ -o`
do
    port[$i]=$a
    i=$i+1
done

j=$i-1
i=1
rm -f $TMP

# publicproxyservers.com --- END ---

USERAGENTS=("Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; 
rev1.5; Windows NT 5.1;)" \
"Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Avant Browser 
[avantbrowser.com]; iOpus-I-M; QXW03416; .NET CLR 1.1.4322))" \
"Mozilla/5.0 (Macintosh; U; PPC Max OS X Mach-O; en-US; rv:1.8.0.7) 
Gecko/200609211 Camino/1.0.3)" \
"ELinks (0.4pre5; Linux 2.4.27 i686; 80x25))" \
"Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.0.7) Gecko/20060928 
(Debian-1.8.0.7-1) Epiphany/2.14)" \
"Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.0.7) Gecko/20061031 
Firefox/1.5.0.7 Flock/0.7.7)" \
"Mozilla/5.0 (compatible; iCab 3.0.3; Macintosh; U; PPC Mac OS X))" \
"Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1) Gecko/20061024 
Iceweasel/2.0 (Debian-2.0+dfsg-1))" \
"Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0))" \
"Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322))" \
"Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; YPC 3.0.1; 
.NET CLR 1.1.4322; .NET CLR 2.0.50727))" \
"Mozilla/4.0 (compatible; MSIE 6.0; Windows CE; Motorola VIP12xx))" \
"Mozilla/5.0 (Windows; U; WinNT4.0; en-US; rv:1.8.0.5) Gecko/20060706 
K-Meleon/1.0)" \
"Mozilla/5.0 (compatible; Konqueror/3.5; Linux) KHTML/3.5.5 (like Gecko) 
(Debian))" \
"Links (2.1pre19; Linux 2.6.14-gentoo-r5 i686; x))" \
"Lynx/2.8.5rel.1 libwww-FM/2.14 SSL-MM/1.4.1 OpenSSL/0.9.8a)" \
"Mozilla/5.0 (Windows; U; Windows CE 4.21; rv:1.8b4) Gecko/20050720 
Minimo/0.007)" \
"Mozilla/5.0 (X11; U; Linux i686; cs-CZ; rv:1.7.12) Gecko/20050929)" \
"Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9a1) Gecko/20061204 
GranParadiso/3.0a1)" \
"Mozilla/5.0 (X11; U; SunOS sun4u; en-US; rv:1.0.1) Gecko/20020920 
Netscape/7.0)" \
"Mozilla/4.61 [en] (OS/2; U))" \
"Mozilla/4.0 (compatible; MSIE 6.0; Nitro) Opera 8.50 [en])" \
"Opera/9.01 (X11; Linux i686; U; en))" \
"Opera/9.10 (Windows NT 5.1; U; en))" \
"Opera/8.01 (J2ME/MIDP; Opera Mini/3.0.6306/1528; nb; U; ssr))" \
"Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en) AppleWebKit/521.25 (KHTML, 
like Gecko) Safari/521.24)" \
"Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.0.8) Gecko/20061029 
SeaMonkey/1.0.6)" \
"Mozilla/5.0 (Macintosh; U; PPC Mac OS X; de-de) AppleWebKit/418 (KHTML, 
like Gecko) Shiira/1.2.2 Safari/125)" \
"w3m/0.5.1)" \
"IBM-WebExplorer-DLL/v1.1h" \
)

NUM_AGENTS=${#USERAGENTS[@]}

#clear

# OK. Let da fkn' begin!
#for PROXY in $(cat $PROXYLIST)
while [[ $i -le $j ]]
do
 PROXY=${addr[$i]}:${port[$i]}
 USERAGENT=${USERAGENTS[$((RANDOM%NUM_AGENTS))]}
# echo -en "\n\033[1;36mPROXY = $PROXY\t\033[1;37m($i of $j) \033[0m"
 URL2=`http_proxy=$PROXY curl -A "$USERAGENT" -e "$REFERER" -m 15 \
"$URL" 2>/dev/null | grep URL | awk -F\; '{ print $2 }' \
| sed s/URL\=/http\:\\\/\\\/www.internetmap.info/ | sed s/\"\>//`
 if [[ $URL2 != "" ]]; then
#   echo -e "\033[1;32m\t[  OK  ]\033[0m"
    OK=$OK+1
    http_proxy=http://$PROXY wget --timeout=15 --spider --no-cache \
--referer="$REFERER" --user-agent="$USERAGENT" "$URL2" -O /dev/null \
2>/dev/null
# http_proxy=http://$PROXY curl -A "$USERAGENT" -m 10 -e "$REFERER" "$URL2" \
2>/dev/null -o /dev/null
# else
#   echo -e "\033[1;35m\t[ FAIL ]\033[0m"
 fi
 i=$i+1
done
#echo -e "\033[1;37m\033[41mTarget was fucked up thru da all proxies!\033[0m"
echo "SUCCESS: $OK of $j proxies" | mail -s "$0 report" jack
#play /usr/share/sounds/k3b_success1.wav 2>/dev/null

Код: Выделить всё

man vi

Код: Выделить всё

man head