perl scripting for real security
( see full story )
quote:
#!/usr/bin/perl
#
# the perl of security ( gettn’ a clue )
# by m.wood
#
# version 1.03
#
use CommonSense; # you do have this module… right?
use Logic; # just the facts
require IO::openMind;
print(“get a clue\n”);
my $awareness=”$perspective,$insight”;
#give input here
my $newskill=”STDIN”;
{
if(defined $clueless) {
&perspective($clueless);
exit; # die here… your stupid
}
# sub aquire skill
for $security {
$perspective(openMind+($awareness));
if($insight->from($newskill));
}
}
print “now you have a clue, kthnx\n”;
exit;