#!/usr/bin/perl
#
# This is a telnet/login replay program. It will replay a session using
# the timestamps from the packet log.
#
# USAGE: run the script as normal. You can provide a factor as an
#	argument, eg "2" to run twice as fast, or "0.5" to run
#	at half time. eg,
# 		./session_0002.telnet.replay 2
#
# Auto generated by Chaosreader.
#
$| = 1;
$factor = $ARGV[0] || 1;
sub msleep {
	$ms = shift;
	$ms = $ms / $factor;
	select(undef, undef, undef, $ms);
}
print 'l';
msleep(0.528069972991943);
print 's';
msleep(0.249750018119812);
print ' ';
msleep(0.573329925537109);
print '-';
msleep(0.239150047302246);
print 'l';
msleep(0.551650047302246);
print '
';
msleep(0.191229939460754);
print 'total 60
drwxr-xr-x   2 root     other        512 Oct 17 23:45 Bin
-rw-r--r--   1 guest    other      12155 Oct  5 22:55 guest.tar.gz
-rw-r--r--   1 guest    other        136 Oct  5 22:50 local.cshrc
-rw-r--r--   1 guest    other        157 Oct  5 22:50 local.login
-rw-r--r--   1 guest    other        174 Oct  5 22:50 local.profile
-rw-r--r--   1 guest    other         49 Oct  5 22:55 motd
-r--r--r--   1 guest    other        516 Oct  5 22:55 passwd
-rw-r--r--   1 guest    other        168 Nov  3 23:43 somefile.txt
-rw-r--r--   1 guest    other      11096 Oct  5 22:53 thumb.jpg
$ ';
msleep(0.643499970436096);
print '
';
msleep(0.156149983406067);
print '$ ';
msleep(0.504640102386475);
print 'd';
msleep(0.209190011024475);
print 'a';
msleep(0.338679909706116);
print 't';
msleep(0.291069984436035);
print 'e';
msleep(0.455980062484741);
print '
';
msleep(0.199699997901917);
print 'Sat Nov 15 00:36:20 EST 2003
$ ';
msleep(0.753239989280701);
print '
';
msleep(0.146370053291321);
print '$ ';
msleep(0.167259931564331);
print 'u';
msleep(0.16963005065918);
print 'p';
msleep(0.186429977416992);
print 't';
msleep(0.120999932289124);
print 'i';
msleep(0.161490082740784);
print 'm';
msleep(0.149029970169067);
print 'e';
msleep(0.187780022621155);
print '
';
msleep(0.1561199426651);
print ' 12:36am  up 243 day(s),  5:38,  2 users,  load average: 0.00, 0.02, 0.04
$ ';
msleep(0);