⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.24
Server IP:
50.6.168.112
Server:
Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software:
Apache
PHP Version:
8.4.10
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
perl-Expect
/
examples
/
View File Name :
ssh.pl
#!/usr/bin/perl # # A Simple Terminal Resizing Example # (C) 2006 Jeff Carr # This script can be used under the same terms as Perl. # # This script is a simple example of how handle terminal # window resize events (transmitted via the WINCH signal) # -- Jeff Carr
# # NOTE: I (the Expect maintainer) strongly object against using Expect # to automate ssh login. There are better methods, see ssh-keygen. # If you use this example as a stub to control a remote application, # please remove the password-part and use public-key authentication # instead. # -- Roland Giersig
# if( ! defined $ARGV[0] ) { print "Usage: ssh.pl
[
[
] ]\n"; exit; } my ($host, $username, $password) = @ARGV; $username = $ENV{USER} if $username eq ""; use Expect; use IO::Pty; my $spawn = new Expect; $spawn->raw_pty(1); # This gets the size of your terminal window $spawn->slave->clone_winsize_from(\*STDIN); my $PROMPT; # This function traps WINCH signals and passes them on sub winch { my $signame = shift; my $pid = $spawn->pid; $shucks++; print "count $shucks,pid $pid, SIG$signame\n"; $spawn->slave->clone_winsize_from(\*STDIN); kill WINCH => $spawn->pid if $spawn->pid; } $SIG{WINCH} = \&winch; # best strategy $spawn=Expect->spawn("ssh $username\@$host"); # log everything if you want # $spawn->log_file("/tmp/autossh.log.$$"); my $PROMPT = '[\]\$\>\#]\s$'; my $ret = $spawn->expect(10, [ qr/\(yes\/no\)\?\s*$/ => sub { $spawn->send("yes\n"); exp_continue; } ], [ qr/assword:\s*$/ => sub { $spawn->send("$password\n") if defined $password; } ], [ qr/ogin:\s*$/ => sub { $spawn->send("$username\n"); exp_continue; } ], [ qr/REMOTE HOST IDEN/ => sub { print "FIX: .ssh/known_hosts\n"; exp_continue; } ], [ qr/$PROMPT/ => sub { $spawn->send("echo Now try window resizing\n"); } ], ); # Hand over control $spawn->interact(); exit;