byp4a55 professor6T9

Linux host.videowhizz.saglus.com 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64
Apache
67.43.5.91

5.B.top

#!/usr/local/bin/perl
#	Here we set manual_stty on the process so we can do things like
#hit ^Z to stop it instead of the ^Z going to the process on the other machine.
#	This is to say, normally when you interact with a process STDIN is
#put in raw mode so everything you type talks to the process at the other end.
#	Picture this. When you telnet somewhere and start a process (top
#for example) you are talking to telnet in raw mode. If you press ^Z it
#goes through telnet to the shell on the remote machine and the process
#at the other end is stopped. Here we're going to make it so raw mode is
#never set and when you press ^Z or ^C it will stop/interrupt Expect.
#	Also briefly demonstrated is the use of Expect::interconnect(),
#a more general/versatile alternative to interact.

use Expect;

# Debugging anyone?
# $Expect::Log_Stdout=1;
# $Expect::Exp_Internal=1;
# $Expect::Debug=1;

$RSH='/usr/bin/ssh';

$host_to_login_to=shift(@ARGV);

print "Enter password: ";
$|=1;
# First we have to initialize STDIN in to an expect object.
$stdin=Expect->exp_init(\*STDIN);
# Now turn off echoing
$stdin->exp_stty('-echo');
# The easy way to do this is:
#$password=<STDIN>;
#chop $password;
# The somewhat harder way is to use $stdin->expect. This would look like:
#
 ($match_num,$error,$match,$before,$after)=$stdin->expect(undef,"\n");
 $password = $before;
# Turn echo back on
$stdin->exp_stty('echo');
# print that newline that wasn't echoed
print "\n";

#$Expect::Exp_Internal=1;

$rsh=Expect->spawn($RSH,$host_to_login_to);

# Look for a password prompt.
$rsh->expect(30,'-re','word:\s$')||(die"Never got password prompt\n");

print $rsh "$password\r";

# Look for a prompt. Prompt can be # $ > or ] followed by a whitespace.
$prompt  = '[\]\$\>\#]\s$';

# Note the use of -re
$rsh->expect(30,'-re',$prompt)||(die "Never got prompt on host\n");

# Start top
print $rsh "exec top\r";

# We already have an inited handle for STDIN above which we can use.
# We don't just do $rsh->interact because it will go monkeying
# with tty settings by default (set it raw).
$stdin->manual_stty(1);
# Instead we use interconnect directly. 
# The trick here is to make sure:
# 1. Everything listening to a handle is added to its
# listen group.
# 2. Only what you want is jabbering at STDOUT.
# 
# In this case only $rsh will talk to STDOUT so we don't have to 
# change any log_stdout() settings.
$stdin->set_group($rsh);
Expect::interconnect($stdin,$rsh);

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	systuser/systuser	0755	2017-05-18 07:09:19
..	dir	-	systuser/systuser	0755	2019-06-11 12:19:19
1.A.Intro	text/plain	2.37 KB	systuser/systuser	0644	2017-05-15 03:55:28
2.A.ftp	text/x-perl	3.02 KB	systuser/systuser	0755	2017-05-15 03:55:28
2.B.rlogin	text/x-perl	3.95 KB	systuser/systuser	0755	2017-05-15 03:55:28
3.A.debugging	text/x-perl	1.93 KB	systuser/systuser	0755	2017-05-15 03:55:28
4.A.top	text/x-perl	934 B	systuser/systuser	0755	2017-05-15 03:55:28
5.A.top	text/x-perl	1.12 KB	systuser/systuser	0755	2017-05-15 03:55:28
5.B.top	text/x-perl	2.4 KB	systuser/systuser	0755	2017-05-15 03:55:28
6.A.smtp-verify	text/plain	3.18 KB	systuser/systuser	0755	2017-05-15 03:55:28
6.B.modem-init	text/x-perl	1.79 KB	systuser/systuser	0755	2017-05-15 03:55:28
README	text/plain	644 B	systuser/systuser	0644	2017-05-15 03:55:28

Team Anon Force

https://t.me/Professor6T9x