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.1

  • 3 Respuestas
  • 1557 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 02, 2012, 08:19:19 pm »
Version Tk de este simple script para hacer ASCII Art desde una palabra.

El codigo

Código: Perl
  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.     No tienes permisos para ver links. Registrate o Entra con tu cuenta => "
  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.     No tienes permisos para ver links. Registrate o Entra con tu cuenta => "
  199.  @@@@
  200. @    @
  201. @    @
  202. @    @
  203. @    @
  204. @    @
  205. @  @ @
  206. @   @@
  207.  @@@@
  208.      @
  209. ",
  210.     r => "
  211. @@@@@
  212. @    @
  213. @    @
  214. @    @
  215. @@@@@
  216. @    @
  217. @    @
  218. @    @
  219. @    @
  220. ",
  221.     No tienes permisos para ver links. Registrate o Entra con tu cuenta => "
  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.     No tienes permisos para ver links. Registrate o Entra con tu cuenta => "
  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, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 10 );
  327. $ven->Label(
  328.     -text       => "Text : ",
  329.     -font       => "Impact1",
  330.     -background => $color_fondo,
  331.     -foreground => $color_texto
  332. )->place( -x => 20, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 250 );
  333. my $tengo = $ven->Entry(
  334.     -width      => 40,
  335.     -background => $color_fondo,
  336.     -foreground => $color_texto
  337. )->place( -x => 66, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 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, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 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, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 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, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 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.     No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  378. }
  379.  
  380. sub now {
  381.  
  382.     $fondo->No tienes permisos para ver links. Registrate o Entra con tu cuenta( "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 = No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  394.  
  395.     my $fondo   = " ";
  396.     my $espacio = 0;
  397.  
  398.     my $lugar;
  399.     my @lotengo;
  400.  
  401.     my $tipox = $letras{"a"};
  402.     my @lineas = No tienes permisos para ver links. Registrate o Entra con tu cuenta /\n/, $tipox;
  403.     $altura = @lineas + 1;
  404.  
  405.     $anchura = max No tienes permisos para ver links. Registrate o Entra con tu cuenta { No tienes permisos para ver links. Registrate o Entra con tu cuenta $_ } @lineas;
  406.  
  407.     for ( 1 .. $altura ) {
  408.         No tienes permisos para ver links. Registrate o Entra con tu cuenta @lotengo, $fondo x ( ( $anchura + $espacio ) * No tienes permisos para ver links. Registrate o Entra con tu cuenta $target );
  409.     }
  410.  
  411.     for my $letra ( No tienes permisos para ver links. Registrate o Entra con tu cuenta //, $target ) {
  412.         my @lineas = No tienes permisos para ver links. Registrate o Entra con tu cuenta /\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.             No tienes permisos para ver links. Registrate o Entra con tu cuenta( $lotengo[$i], $lugar, No tienes permisos para ver links. Registrate o Entra con tu cuenta $plan ) = $plan;
  420.         }
  421.  
  422.         $lugar += $anchura + $espacio;
  423.     }
  424.  
  425.     No tienes permisos para ver links. Registrate o Entra con tu cuenta ( No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n", @lotengo );
  426.  
  427. }
  428.  
  429. #The End ?
  430.  

Una imagen


Desconectado Sanko

  • *
  • Underc0der
  • Mensajes: 541
  • Actividad:
    0%
  • Reputación 0
  • ¿Puedes?
    • Ver Perfil
    • Underc0de
« Respuesta #1 en: Octubre 03, 2012, 12:43:48 pm »
Buena esa man , si me permites me ando aburriendo asi que voy haber si lo traduzco okk?
Sigueme en Twitter : @Sankosk
Estos nuevos staff no tienen puta idea XD

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« Respuesta #2 en: Octubre 03, 2012, 12:46:26 pm »
hacelo si queres.

Desconectado Sanko

  • *
  • Underc0der
  • Mensajes: 541
  • Actividad:
    0%
  • Reputación 0
  • ¿Puedes?
    • Ver Perfil
    • Underc0de
« Respuesta #3 en: Octubre 03, 2012, 02:22:37 pm »
thx man , tonces mañana me pongo al lio.
Sigueme en Twitter : @Sankosk
Estos nuevos staff no tienen puta idea XD

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3237
Ú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: 1515
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1140
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1399
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

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