[Perl] Funcion marquesina()

  • 0 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

[Perl] Funcion marquesina()

  • en: Septiembre 29, 2012, 11:07:00 pm
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: Perl
  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.  

 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

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

Iniciado por BigBear

Respuestas: 0
Vistas: 2598
Ú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: 3013
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

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