daily pastebin goal
80%
SHARE
TWEET

[Perl] 0dix.pl [RIP SonnySpooks]

1337ings Jul 21st, 2017 734 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!usr/bin/perl -w
  2. use Term::ANSIColor;
  3. use LWP;
  4. use IO::Socket::INET;
  5. use LWP::UserAgent;
  6. my $ua = new LWP::UserAgent();
  7. my $ip = $ua->get('https://icanhazip.com')->content;
  8. my $username = "Admin";
  9. my $password = "12345";
  10. my ($User,$Pass);
  11. #0dix By SonnySpooks~
  12. #No Skidding My c0dez PL0x
  13. #WIP
  14. # we loved you Sonny, we wished you didn't have to do what you did
  15. # you was such a good researcher, you had such good intentions.
  16. # you was flawless & intelligent. you was really smart.
  17. # you've breached/leaked plently of large companies.
  18. # you managed to do alot in the years you was here.
  19. # I'm sorry that i now have to say RIP before you name
  20. # rest in peace my dude. I'm still wishing i could have
  21. # just one more conversation with you man. Goodbye man. -Chris Poole \ @codingplanets
  22. # We in the scene love you man. -Everyone
  23. #-------------------------------------------------------------------------------------------------------#
  24. #Starting The Script. Red Ascii Dragon.                                                                 #
  25. #-------------------------------------------------------------------------------------------------------#
  26. if($^O =~ /Win/){
  27.  
  28.   system("cls");
  29.  
  30. }else{
  31.  
  32. system("clear");
  33. }
  34. while(4){
  35. print color "BRIGHT_RED";
  36. print <<EOTEX;
  37. <--------------------->
  38.  |       Login       |
  39. <--------------------->
  40. EOTEX
  41. print "Username: ";
  42. chomp($User = <STDIN>);
  43. print "Password: ";
  44. chomp($Pass = <STDIN>);
  45. print "Port: ";
  46. chomp($port = <STDIN>);
  47. if($User eq "$username" and $Pass eq "$password"){
  48. if($^O =~ /Win/){
  49.  
  50.   system("cls");
  51.  
  52. }else{
  53.  
  54. system("clear");
  55. }
  56. Connect();
  57. print color "reset";
  58. print color "BRIGHT_YELLOW";
  59. print <<EOTEXT;
  60.                       .:'                                  `:.
  61.                      ::'                                    `::
  62.                     :: :.                                  .: ::
  63.                      `:. `:.             .             .:'  .:'
  64.                       `::. `::           !           ::' .::'
  65.                           `::.`::.    .' ! `.    .::'.::'
  66.                             `:.  `::::'':!:``::::'   ::'
  67.                             :'*:::.  .:' ! `:.  .:::*`:
  68.                            :: HHH::.   ` ! '   .::HHH ::
  69.                           ::: `H TH::.  `!'  .::HT H' :::
  70.                           ::..  `THHH:`:   :':HHHT'  ..::
  71.                           `::      `T: `. .' :T'      ::'
  72.                             `:. .   :         :   . .:'
  73.                               `::'               `::'
  74.                                 :'  .`.  .  .'.  `:
  75.                                 :' ::.       .:: `:
  76.                                 :' `:::     :::' `:
  77.                                  `.  ``     ''  .'
  78.                                   :`...........':
  79.                                   ` :`.     .': '
  80.                                    `:  `"""'  :'
  81.                    
  82.                                       ~Odix~              
  83. EOTEXT
  84. sub Connect{
  85. $connect = new IO::Socket::INET (
  86. PeerHost => "$ip",
  87. LocalPort => "$port",
  88. Proto => 'tcp',
  89. Listen => 5,
  90. Reuse => 1
  91. ) or die "ERROR in Socket Creation\n";
  92. }
  93. print color "reset";
  94. print color "BRIGHT_RED";
  95. #-------------------------------------------------------------------------------------------------------#
  96. #      Host and Client Variables Along Side Other Variables For Packets and Utilization of Servers.     #
  97. #-------------------------------------------------------------------------------------------------------#
  98. my ($Host, $Method, $Port, $Message); #Host
  99. my ($Client, $CMethod, $CPort, $CSocket); #Client
  100. my ($Time, $Size, $Count); #Packets
  101. my ($Range, $User, $Pass); #Utilization Of Roots.
  102. my ($Target, $Command); #Root Command
  103. my ($VNC,$ip); #Scanning
  104. my ($Bots);
  105. #-------------------------------------------------------------------------------------------------------#
  106. #                                            Utilizing                                                  #
  107. #-------------------------------------------------------------------------------------------------------#
  108. my @User = ('root','ubnt','admin'); #Usernames
  109. my @Pass = ('root','ubnt','admin','toor','myinternet101'); #Passwords
  110. my $MaxRange = int(rand(255));
  111. my $LowRange = int(rand(50000));
  112. print "|----------------------------------------------------------------------------------|\n";
  113. print "|--------------------------------------0dix----------------------------------------|\n";
  114. print "|----------------------------------------------------------------------------------|\n";
  115. #----------------------------------
  116. print color "reset";
  117. print color "BRIGHT_YELLOW";
  118. while ($tcp = $connect->accept()){
  119. my $post = <$tcp>;
  120. print $tcp <<EOTEXT;
  121.                                       ~Odix~                                     
  122.                                    The Wasteland                                
  123. EOTEXT
  124. print "Connected User !";
  125. }
  126. }else{
  127. print color ("reset");
  128. print color "BRIGHT_RED";
  129. print "Denied !\n";
  130. }
  131. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top