נכתב במקור על ידי
Zer0Day
אז תעלה אותו גם
#!usr/bin/perl
use LWP::UserAgent;
$i = 1;
system("cls");
logo();
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
if($ARGV[0]){
start($ARGV[0]);
}
else{
usage();
}
sub usage{
print "[+]Usage: perl connector.pl <link>";
}
sub logo{
print "\n------------------------------------------";
print "\n| [+]Created By SapirShemer! |";
print "\n| [+]Version: 1.0! |";
print "\n------------------------------------------\n";
}
sub start{
while($i) {
system("cls");
logo();
print "\n[+] Connections: ".$i;
print "\n[+] Target : ".$_[0];
$code = login($_[0]);
$SIG{INT} = \&stop;
$i++;
unless($code->is_success) {
print "[+] Web Off\n";
}
}
}
sub login{
return $nave->get($_[0]);
}
sub stop{
print "\n[*]Stopping.";
}
תוכנה להוספת צפיות ללינק + הוכחה(אני בניתי!)
כהוחכה אני יוסיף 1000 צפיות לנושא הזה
ציטוט ההודעה
