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] Funcion marquesina()

  • 0 Respuestas
  • 1015 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« 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.  

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3458
Ú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: 1711
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1468
Ú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: 1810
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d