#!/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.0457299947738647);
print 'ÿıÿıÿı#ÿı\'ÿı$';
msleep(0.000749945640563965);
print '';
msleep(0.000419974327087402);
print '';
msleep(0.000169992446899414);
print 'ÿşÿş#ÿş\'ÿş$ÿúÿğ';
msleep(0.043660044670105);
print '';
msleep(0.00153005123138428);
print '

SunOS 5.9
 
 ';
msleep(0.181989908218384);
print 'ÿûÿûÿıWARNING: This system is for Authorised Users only.
        Your actions on this server will be logged.
login: ';
msleep(0.0464600324630737);
print '';
msleep(0.000779986381530762);
print 'ÿûÿş';
msleep(0.049220085144043);
print '';
msleep(0.830949902534485);
print 'g';
msleep(0.0499900579452515);
print 'u';
msleep(0.138980031013489);
print 'e';
msleep(0.124839901924133);
print 's';
msleep(0.0929800271987915);
print 't';
msleep(0.265619993209839);
print '
';
msleep(0.199410080909729);
print 'Password: ';
msleep(1.35718989372253);
print '';
msleep(0.150000095367432);
print '';
msleep(0.119989991188049);
print '';
msleep(0.0499999523162842);
print '';
msleep(0.0900100469589233);
print '';
msleep(0.0959299802780151);
print '
';
msleep(4.00448000431061);
print 'Login incorrect
';
msleep(0.13034999370575);
print 'WARNING: This system is for Authorised Users only.
        Your actions on this server will be logged.
login: ';
msleep(1.04659998416901);
print 'g';
msleep(0.140900015830994);
print 'u';
msleep(0.163910031318665);
print 'e';
msleep(0.16389000415802);
print 's';
msleep(0.0794399976730347);
print 't';
msleep(0.524769902229309);
print '
';
msleep(0);