Gecko [ satitravel.com ]

Linux server1.hosting4iran.com 4.18.0-553.123.2.el8_10.x86_64 #1 SMP Thu May 7 15:28:41 EDT 2026 x86_64
LiteSpeed
Server IP : 185.208.174.156 & Your IP : 216.73.216.74
Domains : 326 Domain
User : satitravel

Name	Size	Permission	Date
1.A.Intro	2.37 KB	-rw-r--r--	2017-05-15 15:55
2.A.ftp	3.01 KB	-rw-r--r--	2019-08-23 14:02
2.B.rlogin	3.95 KB	-rw-r--r--	2019-08-23 14:02
3.A.debugging	1.93 KB	-rw-r--r--	2019-08-23 14:02
4.A.top	928 B	-rw-r--r--	2019-08-23 14:02
5.A.top	1.11 KB	-rw-r--r--	2019-08-23 14:02
5.B.top	2.39 KB	-rw-r--r--	2019-08-23 14:02
6.A.smtp-verify	3.18 KB	-rw-r--r--	2019-08-23 14:02
6.B.modem-init	1.79 KB	-rw-r--r--	2019-08-23 14:02
README	644 B	-rw-r--r--	2017-05-15 15:55

Rename

#!/usr/bin/perl
#	Here we are doing this again only this time we'll do it
#without Echoing the password.

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

$host_to_login_to=shift(@ARGV);

use Expect;

print "Enter password: ";
# 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,"\r");
 $password = $before;
# Turn echo back on
$stdin->exp_stty('echo');
# print that newline that wasn't echoed
print "\n";

$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";

# OK, now return control to user.
$rsh->interact();