ToolKit

#!/usr/bin/perl
 
##################################################################
#								 #
#Programmer: Brandon Dennis					 #
#Date: 2/2/2011							 #
#This is a toolkit for multiple uses will keep it updated as     #
#as i possibly can (first script i ever made)						 #
#								 #
##################################################################
 
$exit = 0;
 
$input = "";
 
$target = "";
 
$filename = "";
$filepath = "";
$fileinfo = "";
$fileexit = 0;
$fileanswer = "";
 
$readfilename = "";
$readfilepath = "";
$readerror = 0;
$readdata= "";
 
print "Welcome to Blackhat's Toolkit\n\n";
 
do {
print 'root$\- ';
$input = <STDIN>;
chomp($input);
 
if($input =~ /exit/)
{
	&exitprog;
}elsif($input =~ /file/)
{
	&file;
}elsif($input =~ /read/)
{
	&readfile;
}elsif($input =~ /ping/)
{
	&ping;
}elsif($input =~ /traceroute/)
{
	&traceroute;
}elsif($input =~ /help/)
{
	&help;
}elsif($input =~ /clear/)
{
	&clear;
}else
{
	print 'You have entered a incorrect command please type help for commands';
	print "\n";
}
}while ($exit == 0);
 
 
 
sub help
{
print "1) help (Shows List Of All Commands Avalible)\n";
print "2) file (Use This To Create A File And Write To It)\n";
print "3) read (Use This To Print Out The Contence Of A File)\n";
print "4) ping (Use This To Ping A Website For Its Ip)\n";
print "5) traceroute (Use This To Find All Of the Hops Between You And The Target)\n";
print "6) clear (Use This To Clear The Screen)\n";
print "7) exit (Closes The Program)\n";
}
 
sub file
{
print 'Enter Path To Location To Create File If Default (root) Leave Blank: ';
$filepath = <STDIN>;
chomp($filepath);
if($filepath == //)
{
	system('cd /root/');
}else
{
	system("cd $filepath");
}
print 'Enter File Name To Create And Write To: ';
$filename = <STDIN>;
chomp($filename);
if($filename)
{
open (FILE, ">$filename" || die "Could Not Open File");
 
print 'Enter Text To Add To The File (You Can Use \n \t etc..): ';
$fileinfo = <STDIN>;
chomp($fileinfo);
print FILE "$fileinfo\n";
 
while($fileexit == 0 )
{
	print 'Would You Like To Add More Text [y/n]: ';
	$fileanswer = <STDIN>;
	chomp($fileanswer);
	if($fileanswer =~ /y/)
	{
		$fileinfo = <STDIN>;
		chomp($fileinfo);
		print FILE "$fileinfo\n";
	}elsif($fileanswer =~ /n/)
	{
		$fileexit = 1;
	}else
	{
		print "Please Enter A y Or n\n";
	}
 
}
close (FILE);
}else
{
print "Error No File Name Set!\n";
}
}
 
sub readfile
{
print 'Please Enter A Path To The File You Wish To Read From: ';
$readfilepath = <STDIN>;
chomp($readfilepath);
system("cd $readfilepath");
 
print 'Please Enter The File Name You Wish To Read From: ';
$readfilename = <STDIN>;
chomp($readfilename);
 
open (FILE, "<$readfilename" || die "Could Not Open File");
while(<FILE>)
{
	chomp;
	print "$_\n";
}
close (FILE);
}
 
sub ping
{
print 'Enter Target URL: ';
$target = <STDIN>;
chomp($target);
system("ping $target -c 5");
}
 
sub traceroute
{
print 'Enter Target URL: ';
$target = <STDIN>;
chomp($target);
system("tracert $target");
}
 
sub clear
{
system('clear');
}
 
sub exitprog
{
print "Thank You For Using Blackhat's Toolkit\n";
$exit = 1;
return $exit;
}
 
 
exit;