Дампим Telnet/CLI сессию, для последующего анализа

Продолжая темы: пишем заглушку для Telnet/CLI, пишем заглушку для Telnet/CLI на Perl.

Студент попался нерадивый и не знает как сделать дамп/трассировку telnet сессии. Приведу два примера: средствами утилитами командной строки GNU/Linux, и средствами Perl.

Командная строка GNU/Linux

netcat host 23 | tee dump.dat

Тут мы использовали netcat и tee, netcat используем для получения сырых данных, включает управляющие символы telnet, tee утилита которая перенаправляет входящий поток данных в stdout и файл.

Средствами Perl

Тут мы пользуемся пакетом Net::Telnet в конструкторе которого можно указать логировать вход(Input_log), логировать выход(Option_log)

Пример:

#!/usr/bin/perl 

use 5.010;
use strict;
use warnings;
use Net::Telnet;

my $session = new Net::Telnet (Host=>"host", Input_log=>"input_dump.dat");
$session->cmd(...);
$session->close;