Desde que vi por primera vez este exploit (http://www.exploit-db.com/exploits/9700/) 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 (http://www.exploit-db.com/exploits/9700/) que mencione.
El codigo con un ejemplo de uso incluido
#!/usr/bin/perl
#Funcion marquesina()
#Coded By Doddy H
use Time::HiRes "usleep";
my @test = ("testando ahora now");
sub marquesina {
#Effect based in the exploits by Jafer Al Zidjali
my @logo = @_;
my $car = "|";
for my $uno(@logo) {
for my $dos(split //,$uno) {
$|++;
if($car eq "|") {
mostrar("\b".$dos.$car,"/");
}
elsif($car eq "/") {
mostrar("\b".$dos.$car,"-");
}
elsif($car eq "-") {
mostrar("\b".$dos.$car,"\\");
} else {
mostrar("\b".$dos.$car,"|");
}
usleep(40_000);
}
print "\b ";
}
sub mostrar {
print $_[0];
$car = $_[1];
}
}
marquesina(@test);
#The End ?