Add files via upload

julienbedard · Jun 25, 2016 · 2bd88c8 · 2bd88c8
1 parent d8078af
commit 2bd88c8
Show file tree

Hide file tree

Showing 16 changed files with 3,952 additions and 0 deletions.
diff --git a/encp.pl b/encp.pl
@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+
+#
+# Xor with password
+#
+
+use MIME::Base64;
+
+$file = $ARGV[0];
+
+open(ENC, ">>$file.enc");
+open(PLAIN, "<$file");
+while (<PLAIN>)
+{
+  $input .= $_;
+}
+close(PLAIN);
+
+# Do encryption operation
+chomp($input);
+$mama = encode_base64($input);
+
+#Complete the Sub
+$sub = 'sub decry ($){ local($^W) = 0;my $str = shift;my $res = "";
+$str =~ tr|A-Za-z0-9+=/||cd;$str =~ s/=+$//;  $str =~ tr|A-Za-z0-9+/| -_|;  
+while ($str =~ /(.{1,60})/gs) {my $len = chr(32 + length($1)*3/4); 
+$res .= unpack("u", $len . $1 ); }$res;}';
+
+#save to encfile
+print ENC <<EOF;
+#!/usr/bin/perl
+
+#
+#  This module is a part of Ez Install Converter
+#
+#  Do not modify this file
+#
+#  Use on your own systems only or where you have
+#  permission to use this tool.
+#
+
+$sub
+my \$crojhg = '$mama';
+eval(decry(\$crojhg));
+
+EOF
+close(ENC);
+
+unlink("$file");
+rename "$file.enc",$file;
diff --git a/encrypt.sh_ b/encrypt.sh_
@@ -0,0 +1,47 @@
+@echo off
+echo ENCRYPTING ...
+
+perl encp.pl help.pl
+perl encp.pl index.pl
+perl encp.pl login.pl
+perl encp.pl programs.pl
+perl encp.pl stats.pl
+perl encp.pl tools.pl
+perl encp.pl xplindex.pl
+perl encp.pl xplprograms.pl
+perl encp.pl xploptions.pl
+perl encp.pl xplstats.pl
+perl encp.pl xpltraffic.pl
+
+perl encp.pl xpl/ai.pl
+perl encp.pl xpl/loads.pl
+perl encp.pl xpl/check.pl
+perl encp.pl xpl/check2.pl
+perl encp.pl xpl/honeypot.pl
+perl encp.pl xpl/rand.pl
+
+perl encp.pl xpl/lib/EncBase.pm
+perl encp.pl xpl/lib/EncHex.pm
+perl encp.pl xpl/lib/JsXOR.pm
+perl encp.pl xpl/lib/Shellcode.pm
+perl encp.pl xpl/lib/EncRand.pm
+
+perl encp.pl xpl/exploits/adobelibtiff.pl
+perl encp.pl xpl/exploits/adobenewplayer.pl
+perl encp.pl xpl/exploits/aol95.pl
+perl encp.pl xpl/exploits/aol_ampx.pl
+perl encp.pl xpl/exploits/autodesk_iodrop.pl
+perl encp.pl xpl/exploits/awingsoftwinds3d.pl
+perl encp.pl xpl/exploits/directshow.pl
+perl encp.pl xpl/exploits/icq_downloadagent.pl
+perl encp.pl xpl/exploits/iepeers.pl
+perl encp.pl xpl/exploits/iepeers7.pl
+perl encp.pl xpl/exploits/javacalendar.pl
+perl encp.pl xpl/exploits/java_arginject.pl
+perl encp.pl xpl/exploits/mozilla35.pl
+perl encp.pl xpl/exploits/mozilla_compareto.pl
+perl encp.pl xpl/exploits/ms09_002.pl
+perl encp.pl xpl/exploits/ms09_043.pl
+perl encp.pl xpl/exploits/winds3d_3.5.pl
+
+echo DONE !
diff --git a/help.pl b/help.pl
@@ -0,0 +1,91 @@
+#!/usr/bin/perl
+
+  # index.pl
+  use CGI;
+  use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
+  use CGI::Session ( '-ip_match' );
+  use DBI;
+  require "xpl/config.pl";
+
+  $session = CGI::Session->load();
+  $q = new CGI;
+
+  $cook = $q->param('cook');
+
+  if($session->is_expired)
+  {
+    print $q->header(-cache_control=>"no-cache, no-store, must-revalidate");
+    print "Your has session expired. Please login again.";
+	print "<br/><a href='login.pl>Login</a>";
+  }
+  elsif($session->is_empty)
+  {
+    #print $q->header(-cache_control=>"no-cache, no-store, must-revalidate");
+    print "Status: 301 Moved\nLocation: login.pl\n\n";
+  }
+  else
+  {
+    print $q->header(-cache_control=>"no-cache, no-store, must-revalidate");
+	indexalltab();
+  }
+
+sub indexalltab
+{
+ print <<THEHTMLINDEX;
+ 
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<HTML xmlns="http://www.w3.org/1999/xhtml" lang="fr"><HEAD><META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
+
+<TITLE>$config{NetName} - Help</TITLE>
+    <LINK rel="stylesheet" type="text/css" href="style/style3.css" media="all">
+    
+</HEAD><BODY>
+<DIV id="top_nav">
+	<DIV class="content">
+    
+        <UL>
+            <LI><A href="index.pl?cook=$cook" title="Home" class="Home">Home</A></LI>
+            <LI><A href="tools.pl?cook=$cook" title="tools">Tools</A></LI>
+            <LI><A href="stats.pl?cook=$cook" title="Report">Report</A></LI>
+            <LI><A href="programs.pl?cook=$cook" title="Account">Account</A></LI>
+            <LI><A href="help.pl?cook=$cook" title="Support">Support</A></LI>
+            <LI><A href="#" title=""></A></LI>
+            <LI><A href="login.pl?action=logout" title="Log Out">Log Out</A></LI>
+        </UL>
+        
+    </DIV>
+</DIV>
+<center>
+
+<br><br><br>
+<b>
+<h2>[ Help Center ]</h2>
+<br>
+<DIV id="main">
+<DIV class="content">
+<DIV id="pages">
+<DIV id="home">
+<DIV>
+</DIV>
+<br><br><br><center>Contact us at: <a href="mailto:$config{NetEmail}">$config{NetEmail}</a></center>
+<br><br>
+</DIV>
+</DIV>
+</DIV>
+</DIV>
+</center>
+<br><br><br><br>
+<DIV id="footer">
+<DIV class="content">
+<DIV class="copyright">
+<P><BR>
+</DIV>        
+</DIV>
+</DIV>
+
+</body>
+</html>
+ 
+ 
+THEHTMLINDEX
+}
diff --git a/index.pl b/index.pl
@@ -0,0 +1,98 @@
+#!/usr/bin/perl
+
+  # index.pl
+  use CGI;
+  use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
+  use CGI::Session ( '-ip_match' );
+  use DBI;
+  require "xpl/config.pl";
+
+  $session = CGI::Session->load();
+  $q = new CGI;
+
+  $cook = $q->param('cook');
+
+  if($session->is_expired)
+  {
+      print $q->header(-cache_control=>"no-cache, no-store, must-revalidate");
+      print "Your has session expired. Please login again.";
+ print "<br/><a href='login.pl>Login</a>";
+  }
+  elsif($session->is_empty)
+  {
+      #print $q->header(-cache_control=>"no-cache, no-store, must-revalidate");
+      print "Status: 301 Moved\nLocation: login.pl\n\n";
+  }
+  else
+  {
+      print $q->header(-cache_control=>"no-cache, no-store, must-revalidate");
+	  indexalltab();
+  }
+
+sub indexalltab
+{
+ print <<THEHTMLINDEX;
+ 
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<HTML xmlns="http://www.w3.org/1999/xhtml" lang="fr"><HEAD><META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
+
+<TITLE>$config{NetName} - Home</TITLE>
+    <LINK rel="stylesheet" type="text/css" href="style/style3.css" media="all">
+    
+</HEAD><BODY>
+<DIV id="top_nav">
+	<DIV class="content">
+    
+        <UL>
+            <LI><A href="index.pl?cook=$cook" title="Home" class="Home">Home</A></LI>
+            <LI><A href="tools.pl?cook=$cook" title="tools">Tools</A></LI>
+            <LI><A href="stats.pl?cook=$cook" title="Report">Report</A></LI>
+            <LI><A href="programs.pl?cook=$cook" title="Account">Account</A></LI>
+            <LI><A href="help.pl?cook=$cook" title="Support">Support</A></LI>
+            <LI><A href="#" title=""></A></LI>
+            <LI><A href="login.pl?action=logout" title="Log Out">Log Out</A></LI>
+        </UL>
+        
+    </DIV>
+</DIV>
+<center>
+<br>
+<b>
+</b>
+<h2>[ Home ]</h2>
+<br>
+<DIV id="main">
+<DIV class="content">
+<DIV id="pages">
+<DIV id="home">
+<DIV>
+</DIV>
+<br>
+<center>
+Welcome to $config{NetName}.<br>
+If you have any suggestions please write them to: <a href="mailto:$config{NetEmail}"> $config{NetEmail}</a><br><br>
+</center>
+<br><br>
+</DIV>
+</DIV>
+</DIV>
+</DIV>
+<br><br>
+</center>
+
+<DIV id="footer">
+	<DIV class="content">
+        <DIV class="copyright">
+        	<P><BR>
+        </DIV>        
+    </DIV>
+</DIV>
+
+</body>
+</html>
+ 
+ 
+THEHTMLINDEX
+}
+
+1;