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

  • 0 Respuestas
  • 892 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 You are not allowed to view links. Register or Login 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 You are not allowed to view links. Register or Login 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(You are not allowed to view links. Register or Login //,$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. You are not allowed to view links. Register or Login "\b ";
  36. }
  37.  
  38. sub mostrar {
  39. You are not allowed to view links. Register or Login $_[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: 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: 1406
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1093
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1234
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1037
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear