#!/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 '
';
msleep(0.123440027236938);
print '$ ';
msleep(0.151859998703003);
print '
$ ';
msleep(0.516759991645813);
print 'l';
msleep(0.139000058174133);
print 's';
msleep(0.0498799085617065);
print ' ';
msleep(0.104950070381165);
print '-';
msleep(0.0245999097824097);
print 'l';
msleep(0.15258002281189);
print '
';
msleep(0.111860036849976);
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.0832799673080444);
print '
';
msleep(0.116580009460449);
print '$ ';
msleep(0.5521399974823);
print 'i';
msleep(0.101400017738342);
print 'd';
msleep(0.0925600528717041);
print '
';
msleep(0.122119903564453);
print 'uid=1007(guest) gid=1(other)
$ ';
msleep(0.131399989128113);
print '
$ ';
msleep(0.271390080451965);
print 'u';
msleep(0.0794399976730347);
print 'p';
msleep(0.161100029945374);
print 't';
msleep(0.0953599214553833);
print 'i';
msleep(0.0668799877166748);
print 'm';
msleep(0.0727500915527344);
print 'e';
msleep(0.119059920310974);
print '
';
msleep(0.133650064468384);
print ' 11:49pm  up 232 day(s),  4:51,  2 users,  load average: 0.02, 0.04, 0.06
$ ';
msleep(0.0138499736785889);
print '
';
msleep(0.186079978942871);
print '$ ';
msleep(0.199589967727661);
print 'u';
msleep(0.0430300235748291);
print 'n';
msleep(0.105470061302185);
print 'a';
msleep(0.0860799551010132);
print 'm';
msleep(0.0824799537658691);
print 'e';
msleep(0.0718700885772705);
print ' ';
msleep(0.0990099906921387);
print '-';
msleep(0.113839983940125);
print 'a';
msleep(0.1145099401474);
print '
';
msleep(0.171169996261597);
print 'SunOS mars 5.9 Generic sun4u sparc SUNW,Ultra-5_10
$ ';
msleep(0.112510085105896);
print '
$ ';
msleep(0.0115199089050293);
print '
';
msleep(0.188380002975464);
print '$ ';
msleep(0);