#!/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(3.99749004840851); print 'Login incorrect '; msleep(0.107329964637756); print 'WARNING: This system is for Authorised Users only. Your actions on this server will be logged. login: '; msleep(0.888260006904602); print 'g'; msleep(0.0741100311279297); print 'u'; msleep(0.147089958190918); print 'e'; msleep(0.153859972953796); print 's'; msleep(0.0690500736236572); print 't'; msleep(0.234799981117249); print ' '; msleep(0.132140040397644); print 'Password: '; msleep(0.453130006790161); print ''; msleep(0.189989924430847); print ''; msleep(0.0900300741195679); print ''; msleep(0.209959983825684); print ''; msleep(0.0500199794769287); print ''; msleep(0.160030007362366); print ''; msleep(0.0910099744796753); print ' '; msleep(0.155580043792725); print 'Last login: Mon Nov 3 23:52:33 from mercury Sun Microsystems Inc. SunOS 5.9 Generic May 2002 $ '; msleep(0.53780996799469); print ' '; msleep(0.147480010986328); print '$ '; msleep(0.11424994468689); print ' $ '; msleep(0.217000007629395); print 'b'; msleep(0.0808800458908081); print 'a'; msleep(0.12076997756958); print 'n'; msleep(0.117890000343323); print 'n'; msleep(0.066580057144165); print 'e'; msleep(0.044969916343689); print 'r'; msleep(0.0696799755096436); print ' '; msleep(0.145050048828125); print 'h'; msleep(0.163220047950745); print 'e'; msleep(0.10139000415802); print 'l'; msleep(0.144159913063049); print 'l'; msleep(0.172380089759827); print 'o'; msleep(0.160879969596863); print ' '; msleep(0.117339968681335); print 'w'; msleep(0.0756700038909912); print 'o'; msleep(0.0996500253677368); print 'r'; msleep(0.0775200128555298); print 'l'; msleep(0.0775899887084961); print 'd'; msleep(0.0920000076293945); print ' '; msleep(0.154529929161072); print ' # # ###### # # #### # # # # # # # ###### ##### # # # # # # # # # # # # # # # # # # # # ###### ###### ###### #### # # #### ##### # ##### # # # # # # # # # # # # # # # # # # # ## # # # ##### # # # ## ## # # # # # # # # # #### # # ###### ##### $ '; msleep(0.300990104675293); print ' '; msleep(0.122479915618896); print '$ '; msleep(0.123650074005127); print ' $ '; msleep(0.152469992637634); print ' $ '; msleep(32.1628799438477); print 'i'; msleep(0.118330001831055); print 'd'; msleep(0.0705100297927856); print ' '; msleep(0.111299991607666); print 'uid=1007(guest) gid=1(other) $ '; msleep(0.345499992370605); print ' '; msleep(0.154139995574951); print '$ '; msleep(0.017009973526001); print ' '; msleep(0.182800054550171); print '$ '; msleep(8.17190992832184); print 'v'; msleep(0.101320028305054); print 'i'; msleep(0.120660066604614); print ' '; msleep(0.693300008773804); print 't'; msleep(0.0501899719238281); print 'e'; msleep(0.0777599811553955); print 'x'; msleep(0.0921599864959717); print 't'; msleep(1.3934600353241); print ' '; msleep(0.195129990577698); print '[?1h="text" [New file]  ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~"text" [New file]'; msleep(1.15676999092102); print ''; msleep(0.521759986877441); print 's'; msleep(0.075410008430481); print 'o'; msleep(0.0485999584197998); print 'm'; msleep(0.0944100618362427); print 'e'; msleep(0.11968994140625); print ' '; msleep(0.133949995040894); print 't'; msleep(0.243660092353821); print 'e'; msleep(0.227319955825806); print 'x'; msleep(0.189249992370605); print 't'; msleep(0.10151994228363); print ' '; msleep(0.235689997673035); print 'f'; msleep(0.0707200765609741); print 'i'; msleep(0.0491999387741089); print 'l'; msleep(0.0975600481033325); print 'e'; msleep(0.261809945106506); print ' '; msleep(0.123550057411194); print ' '; msleep(0.146270036697388); print ' '; msleep(0);