el admin la haya borrado.
Su uso no es muy dificil asi que creo que podran usarla.
Ademas les ofrece informacion de la maquina actual como : IP , SO , nombre de usuario y grupo del usuario.
Código:
#Bones X
#Author = Doddy Hackman
#Very easy console the using if the admin delete the ms-dos original
use Win32::IPConfig;
use Net::Nslookup;
use Color::Output;
Color::Output::Init;
&datos;
sub datos {
system ("title Bones X");
system ("cls");
$ip = nslookup(qtype => "A", domain => "localhost");
system ("prompt Doddy Hackman@$ip.com:");
$so = $^O;
$login = Win32::LoginName();
$domain = Win32::DomainName();
cprint "\x0313
Program: Bones X
Author : Doddy Hackman
\x0x30";
cprint "\x033
Your IP : $ip
SO : $so
Login : $login
Group : $domain
\n\x033";
}
inicio:;
cprint "\x037";
print "C:\\l33t\\";
print "D00d1>";
$cmd=<STDIN>;
chomp $cmd;
cprint "\n\x037";
if ($cmd eq "exit") {
exit 1;
}
elsif ($cmd eq "cls") {&datos;goto inicio}
else {
cprint "\0035";
print "\n";
system ($cmd);
cprint "\n\n\n";
goto inicio ,
}