Bueno, hice este Script por que no me gustaba usar Nircmd, para manipular el Clipboard de Windows, asi que aqui esta :
#!/usr/bin/perl
# Leo Gutierrez Ramirez.
# leorocko13@hotmail.com
use strict;
use warnings;
use diagnostics;
use Win32::Clipboard;
if(!@ARGV)
{
print $0;
print "\nModo de uso : \n$0 [-v] [-c] [-s Cadenas]\ n";
print q(
-v : Ver el contenido del portapapeles.
-c : Limpiar el contenido del portapapeles.
-s : Poner el texto especificado en el portapapeles
);
} elsif(lc($ARGV[0]) eq '-v')
{
my $CLIP = Win32::Clipboard();
print $CLIP->Get();
} elsif(lc($ARGV[0]) eq '-c')
{
my $CLIP = Win32::Clipboard();
$CLIP->Empty();
} elsif(lc($ARGV[0]) eq '-s')
{
die "Falto la cadena a poner en el portapapeles" unless($ARGV[1]);
my $CLIP = Win32::Clipboard();
$CLIP->Set($ARGV[1]);
}
exit();
C:\>code.pl -v
aklsjdlkjalsdkj alksjdal s laksdflaksdjlaksd
C:\>
C:\>code.pl -c
C:\>
C:\>code.pl -s "Este texto irá al portapapeles"
C:\>code.pl -v
Este texto irß al portapapeles
C:\>
Saludos.
Algo de perl ;-)
A este se lo tiene algo abandonado fuera de lo que es para explotar vulnerabilidades, aunque eso también esta bueno :rolleyes:
Saludos