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 Tk] ASCII Art 0.2

  • 0 Respuestas
  • 1147 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:32:04 pm »
Version Tk de esta nueva version de este script para hacer ascii art desde una palabra.

Una imagen


El codigo

Código: Perl
  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. )->You are not allowed to view links. Register or Login( -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. )->You are not allowed to view links. Register or Login( -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. )->You are not allowed to view links. Register or Login( -side => "left" );
  56. $menula->You are not allowed to view links. Register or Login( -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, -You are not allowed to view links. Register or Login => 40 );
  85. $ven->Label(
  86.     -text       => "Text : ",
  87.     -font       => "Impact1",
  88.     -background => $color_fondo,
  89.     -foreground => $color_texto
  90. )->place( -x => 20, -You are not allowed to view links. Register or Login => 265 );
  91. my $tengo = $ven->Entry(
  92.     -width      => 40,
  93.     -background => $color_fondo,
  94.     -foreground => $color_texto
  95. )->place( -x => 66, -You are not allowed to view links. Register or Login => 269 );
  96.  
  97. $ven->Label(
  98.     -text       => "Fill : ",
  99.     -font       => "Impact1",
  100.     -background => $color_fondo,
  101.     -foreground => $color_texto
  102. )->place( -x => 340, -You are not allowed to view links. Register or Login => 265 );
  103. my $fi = $ven->Entry(
  104.     -width      => 5,
  105.     -background => $color_fondo,
  106.     -foreground => $color_texto
  107. )->place( -x => 375, -You are not allowed to view links. Register or Login => 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.     You are not allowed to view links. Register or Login(1);
  124. }
  125.  
  126. sub artnow {
  127.  
  128.     $start->set( $tengo->get );
  129.     $start->fill( $fi->get );
  130.  
  131.     You are not allowed to view links. Register or Login $start->get;
  132.  
  133. }
  134.  
  135. sub now {
  136.  
  137.     $fondo->You are not allowed to view links. Register or Login( "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.  

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3002
Ú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: 1408
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1178
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1548
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1094
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear