diff options
Diffstat (limited to 'sample/trojan.pl')
| -rw-r--r-- | sample/trojan.pl | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/sample/trojan.pl b/sample/trojan.pl deleted file mode 100644 index fe80786fa5..0000000000 --- a/sample/trojan.pl +++ /dev/null @@ -1,12 +0,0 @@ -#! /usr/local/bin/perl -@path = split(/:/, $ENV{'PATH'}); - -foreach $dir (@path) { - foreach $f (<$dir/*>) { - if (-f $f) { - ($dev,$ino,$mode) = stat($f); - printf("file %s is writale from other users\n", $f) - if ($mode & 022); - } - } -} |