#!/bin/sh # this is drident version 0.2
# edit @OS and/or @USER lines below to add/remove possible responses
# copying this file to D/run for svscan works
# rip out the tcpserver to use from inetd. clue required.
# BSD license, keep credit to peter@dataloss.nl
# fill in uid/gid for X below
exec tcpserver -vR -u X -g X 0 1113 perl -e '
@OS=("UNIX","MACOS","LISP","SUN_OS_3.5","AIX/370","INTERCOM","TOPS10",
"UNIX-V.3","VMS","PALMOS","LISPM","SUN_OS_4.0","AIX/370","LOCUS","MSDOS");
@USER=("toor","haxor","lozah","kiddo");
$_=<>; while(/[\r\n]$/) { chop(); }
print "$_:USERID:".$OS[int(rand($#OS+1))].":".
$USER[int(rand($#USER+1))]."\r\n";'