[Perl] ASCII Art 0.2

  • 2 Respuestas
  • 1948 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] ASCII Art 0.2

  • en: Octubre 04, 2012, 07:31:47 pm
Una posible version mejorada de este script para hacer ascii art desde una palabra.

El codigo

Código: Perl
  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<ul class="bbc_list"><li type="square"> Text : ";[/li][/list]
  35. chomp( my $text = <stdin> );
  36.  
  37. print "\n\n</li><li type="square"> Fill : ";[/li][/list]
  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: [Seleccionar]


r00t ~ # art2.pl



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


  • Text : hacked[/li]


  • Fill : #[/li][/list]




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




    -- == (C) Doddy Hackman 2012 == --

  • « Última modificación: Octubre 04, 2012, 07:52:16 pm por Doddy »

    Desconectado Acidkode

    • *
    • Underc0der
    • Mensajes: 43
    • Actividad:
      0%
    • Reputación 0
    • 1f u c4n r34d th1s u r34lly n33d t0 g37 l41d
      • Ver Perfil
      • Email

    Re:[Perl] ASCII Art 0.2

    • en: Abril 17, 2013, 09:22:42 pm
    :D me lo llevo compa


    Desconectado ZanGetsu

    • *
    • Ex-Staff
    • *****
    • Mensajes: 329
    • Actividad:
      0%
    • Country: 00
    • Reputación 0
    • I ZanGetsu
    • Skype: thenicox
    • Twitter: black_zangetsu
      • Ver Perfil

    Re:[Perl] ASCII Art 0.2

    • en: Abril 17, 2013, 10:40:07 pm
    Gracias bro

     

    Tutorial perl desde cero By: Black Poision & Painboy

    Iniciado por ProcessKill

    Respuestas: 2
    Vistas: 5331
    Último mensaje Septiembre 02, 2011, 09:43:36 pm
    por blozzter
    [Perl] Verificando si es root para correr un script

    Iniciado por c1st

    Respuestas: 1
    Vistas: 3474
    Último mensaje Octubre 07, 2012, 06:01:39 pm
    por ANTRAX
    Funciones más utilizadas en la programación de un perl script

    Iniciado por Dragora

    Respuestas: 0
    Vistas: 4373
    Último mensaje Enero 06, 2019, 01:01:06 am
    por Dragora
    [Perl] Iframe DDos Attack Tool

    Iniciado por BigBear

    Respuestas: 0
    Vistas: 2445
    Último mensaje Julio 03, 2011, 10:06:45 pm
    por BigBear
    [Perl] Half Life Servers List 0.1

    Iniciado por BigBear

    Respuestas: 0
    Vistas: 2606
    Último mensaje Noviembre 12, 2012, 07:31:50 pm
    por BigBear