sample/trojan.pl


1
2
3
4
5
6
7
8
9
10
11
12

#! /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);
	}
    }
}