#!/usr/bin/perl -w # # Demo script accompanying TD09 presentation # Developing and Deploying Securely # # This script is the right hand side (mostly user commands) # for the privileges portion of the talk v1.0.2. # use demotools; demotools::setprompt("[global 1]: \$"); #-------------------------------------------------- # main # slide 9 system("clear"); demotools::cmd("cat"); # close command "cat" out with a CTRL-D # slide 11 system("clear"); demotools::cmd("ping www.sun.com"); # slide 21 system("clear"); demotools::cmd("ppriv -e -D cat /etc/shadow"); # slide 23, first example system("clear"); demotools::cmd("ssh localhost"); # slide 23, second example printf("\n"); demotools::cmd("cat /etc/shadow"); #--------------------------------------------------