[Perl] Clip.pl

[leogtz]

Bueno, hice este Script por que no me gustaba usar Nircmd, para manipular el Clipboard de Windows, asi que aqui esta :

Código (perl) [Seleccionar] Expandir

#!/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ódigo [Seleccionar] Expandir


C:\>code.pl -v
aklsjdlkjalsdkj alksjdal  s laksdflaksdjlaksd
C:\>

Código [Seleccionar] Expandir

C:\>code.pl -c

C:\>

Código [Seleccionar] Expandir

C:\>code.pl -s "Este texto irá al portapapeles"

C:\>code.pl -v
Este texto irß al portapapeles
C:\>


Saludos.

[Novlucker]

Algo de perl
A este se lo tiene algo abandonado fuera de lo que es para explotar vulnerabilidades, aunque eso también esta bueno 

Saludos