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

  • 0 Respuestas
  • 985 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: 3342
Ú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: 1603
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

Respuestas: 0
Vistas: 221
Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1472
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1365
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear