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í
marec 2024 apríl 2024 máj 2024
po ut st št pi so ne
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
dnes 25.04.2024 dnes 25.04.2024

kto je online?
počet anonymných užívateľov: 12
počet prihlásených užívateľov: 0

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.Windows 7 RC v slovenč...
6.Konzole pro zotavení v...
7.Panika menom Conficker
8.Platené vs Zadarmo
9.Inštalujte Windows z U...
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é: 5739 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