#!/usr/bin/perl # # This is a text SSH replay program. It will replay details of the # original SSH session using timestamps from the packet capture 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.textSSH.replay 2 # # Auto generated by Chaosreader. # $| = 1; $factor = $ARGV[0] || 1; sub ms { $ms = shift; $ms = $ms / $factor; select(undef, undef, undef, $ms); } print <<'SUBEND'; SSH text analysis replay ------------------------ "*" is client traffic (including keystrokes), "." is the return text. A number is a multiple of the previous char, eg ".32" is 32 return chars. SUBEND print 'SSH-2.0-Sun_SSH_1.0. '; ms(0.000470161437988281); print 'SSH-2.0-Sun_SSH_1.1* '; ms(0.00084996223449707); print '***<**sFw@*u1o*w3**$*****=diffie-hellman-group-exchange-sha1,diffie-hellman-group1-sha1****ssh-rsa,ssh-dss*** aes128-cbc,3des-cbc,blowfish-cbc*** aes128-cbc,3des-cbc,blowfish-cbc***+hmac-md5,hmac-sha1,hmac-sha1-96,hmac-md5-96***+hmac-md5,hmac-sha1,hmac-sha1-96,hmac-md5-96****none,zlib****none,zlib********************** '; ms(0.00249004364013672); print '.......].&.