Windows User Group - Slovak Republic
Windows User Group - Slovak Republic Windows User Group - Slovak Republic
RSS
Windows User Group - Slovak Republic
prihlásenie
meno login
heslo
Automaticky prihlásiť
zabudli ste heslo?
zaregistrujte sa

kalendár podujatí
august 2019 september 2019 október 2019
po ut st št pi so ne
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 1 2 3 4 5 6
dnes 18.09.2019 dnes 18.09.2019

kto je online?
počet anonymných užívateľov: 3
počet prihlásených užívateľov: 1
teraz je online:
Bing [Bot]

Top 10 najčítanejšie
1.Vytvorenie USB boot jed...
2.Oprava MBR sektoru bez ...
3.Windows 7 download
4.HTPC alebo ako si posta...
5.Konzole pro zotavení v...
6.Windows 7 RC v slovenč...
7.Inštalujte Windows z U...
8.Platené vs Zadarmo
9.Panika menom Conficker
10.Windows 7 RC download -...

Windows User Group - Slovak Republic

Script na reset hesla ROOTa
Windows User Group - Slovak Republic
Software > iné OS

Script na reset hesla ROOTa

Windows User Group - Slovak Republic

Script na reset hesla ROOTa na viacerých linuxových serveroch súčasne. V podstate keďže sa v poslednej dobe venujem skôr platforme *nix a potreboval som zmeniť heslo na viacerých serveroch hľadal som po internete a našiel som scriptík.


Tento script v PERL zmení heslá ROOTa na viacerých serveroch. Testované na CentOS, Redhat.

 

Takže čo k tomu budete potrebovať?
Perl module: Net::SSH::Expect

Samozrejme je nutné aby ste mali ROOT oprávnenia
Na serveri, kde budete script spúšťať vytvorte súbor serverlist.txt a napíšte zoznam serverových ip adries.

 

Príklad:

192.168.0.1
192.168.0.2
192.168.0.3

atd.

 

Následne si napíšte nasledovný script:

 

#!/usr/bin/perl
use Net::SSH::Expect;
$oldpass = $ARGV[0];
$newpass = $ARGV[1];
chomp $newpass;
sub connect($$)
{
$password=shift;
$server=shift;
chomp $server;
chomp $password;
$ssh = Net::SSH::Expect->new (
host => $server,
password=> $password,
user => 'root',
raw_pty => 1,
timeout => 30
);
&login($ssh)
}
sub login($)
{
eval {  $login_output = $ssh->login(); };  if ($@) {print "$server not found\n"; next; };
if ($login_output !~ /Last/) {
print "Login password error for server $server , please enter the password: ";
$inputpass = ;
&connect($inputpass,$ip)
}
else {
#              &resetpass();
$ssh->send("passwd");
$ssh->waitfor(':\s*\z', 10) or warn "$server - Error 'New password:' prompt not found\n";
$ssh->send("$newpass");
$ssh->waitfor(':\s*\z', 10) or warn "$server - Error 'Confirm new password:' prompt not found\n";
$ssh->send("$newpass");
$ssh->waitfor('#\s*\z', 10) or warn "$server - Error 'Prompt not found after reset:'\n";
print "$server new password is \t $newpass\n";
$ssh->close();
}
}
open (SERV,"serverlist.txt") || die "ERROR: Unable to open Serverlist file $! \n";
while ( $ip = ) {
sleep 2;
&connect($oldpass,$ip);
}

 

Spustite script

./passwordreset.pl

 

Script prevedie automatické nalogovanie a zmení heslá ROOTa na serveroch v danom zozname v súbore serverlist.txt

PS: vopred uvediem že je to použiteľné iba pri tom, ak na každom serveri je rovnaké heslo. Z hľadiska bezpečnosti to nie je najoptimálnejšie ale....

Pôvodne spracované pre BlackHole

Windows User Group - Slovak RepublicWindows User Group - Slovak Republic Redhawk | nedeľa 20. novembra 2011 10:40 | Prečítané: 4427 x | neohodnotené |
Windows User Group - Slovak Republic
Windows User Group - Slovak Republic

 
Windows User Group - Slovak Republic
vyhľadávanie

partneri

2 % od Vás pre WUG
2 % od Vás pre WUG

sponzori






Windows User Group - Slovak Republic
Windows User Group - Slovak Republic
Windows User Group - Slovak Republic

Copyright © 2008 Windows User Group Slovensko

Windows User Group - Slovak Republic domov Windows User Group - Slovak Republic o nás Windows User Group - Slovak Republic podujatia Windows User Group - Slovak Republic odkazy Windows User Group - Slovak Republic informačné kanály Windows User Group - Slovak Republic
Windows User Group - Slovak Republic