Código (perl) [Seleccionar]
#!/usr/bin/perl
# @PoC System command
sub _execCommand{
my $sCommand = shift;
foreach (qx($sCommand)) {
$sReturn = $_;
}
return $sReturn;
}
system("ifconfig wlan0");
print "Ordernador de: " . &_execCommand("whoami");
Resultado,
Código (PoC) [Seleccionar]
wlan0 Link encap:Ethernet direcciónHW 00:21:00:bc:fc:20
Direc. inet:192.168.0.101 Difus.:192.168.0.255 Másc:255.255.255.0
Dirección inet6: fe80::221:ff:febc:fc20/64 Alcance:Enlace
ACTIVO DIFUSIÓN FUNCIONANDO MULTICAST MTU:1500 Métrica:1
Paquetes RX:698 errores:0 perdidos:0 overruns:0 frame:0
Paquetes TX:18 errores:0 perdidos:0 overruns:0 carrier:0
colisiones:0 long.colaTX:1000
Bytes RX:230052 (230.0 KB) TX bytes:3941 (3.9 KB)
Ordernador de: shellroot