comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] ASCII Art 0.2

  • 2 Respuestas
  • 1311 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« 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.     You are not allowed to view links. Register or Login "\n";
  28.     marquesina(@logo);
  29.  
  30. }
  31.  
  32. head();
  33.  
  34. You are not allowed to view links. Register or Login "\n\n[+] Text : ";
  35. You are not allowed to view links. Register or Login( my $text = <stdin> );
  36.  
  37. You are not allowed to view links. Register or Login "\n\n[+] Fill : ";
  38. You are not allowed to view links. Register or Login( my $fill = <stdin> );
  39.  
  40. You are not allowed to view links. Register or Login "\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.     You are not allowed to view links. Register or Login $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 ( You are not allowed to view links. Register or Login //, $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.         You are not allowed to view links. Register or Login "\b ";
  81.     }
  82.  
  83.     sub mostrar {
  84.         You are not allowed to view links. Register or Login $_[0];
  85.         $car = $_[1];
  86.     }
  87.  
  88. }
  89.  
  90. sub copyright {
  91.  
  92.     You are not allowed to view links. Register or Login "\n\n";
  93.  
  94.     marquesina("-- == (C) Doddy Hackman 2012 == --");
  95.  
  96.     You are not allowed to view links. Register or Login "\n\n";
  97.  
  98.     <stdin>;
  99.     You are not allowed to view links. Register or Login(1);
  100. }
  101.  
  102. #The End ?
  103.  

Un ejemplo de uso

Código: You are not allowed to view links. Register or Login


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 == --

« Ú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
« Respuesta #1 en: Abril 17, 2013, 09:22:42 pm »
:D me lo llevo compa


Desconectado ZanGetsu

  • *
  • Underc0der
  • Mensajes: 325
  • Actividad:
    0%
  • Reputación 0
  • I ZanGetsu
    • Ver Perfil
  • Skype: thenicox
  • Twitter: black_zangetsu
« Respuesta #2 en: Abril 17, 2013, 10:40:07 pm »
Gracias bro

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3006
Ú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: 1410
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1041
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1181
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear