./c0de/perl/webclick.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
#!/usr/bin/perl
####################################
# (C)oded by h4ckinger
# Hackinger's Web Page: www.hackinger.org
# plz send e-mail me when u find a bug in this script
# mail:[email protected]
# h4ckinger's perl webclicker
# greatz ;
# Darkcode,CyberGhost,excellance,redLine,The_BeKiR# and All my Friends...
####################################
use LWP::Simple;
$site=$ARGV[0];
$kac=$ARGV[1];
if(@ARGV<2){&usage}
else{
if(int($kac)){
for($i=0;$i<=$kac;$i++){
get($site) || die "Site adresi yanlis\n";
}
print "$kac tane hiti artirilmisitir";
}
else {print "Numeric bir sayi girin";}
}
sub usage{
print q[
WebClicker Perl Version
Coded by h4ckinger
usageerl webclicker.pl http://www.hackinger.org <hit>
exmerl webclicker.pl http://www.hackinger.org 20
];
}

Back