kann mir wer den code in Perl umsetzten?vielen dank Ulf
<?php
$user = $_GET['user'];
$newpass = $_GET['newpass'];
$handle = fopen ("/etc/shadow", "r");
while (!feof($handle)) {
$buffer = fgets($handle, 4096);
if(strpos($buffer, $user.":")===false){
$text.=$buffer;
}else{
$array=explode(":",$buffer);
$text .=$array[0].":".$newpass.":".$array[2].":".$array[3].":".$array[4].":".$array[5].":".$array[6].":".$array[9].":".$array[8];
}
}
fclose ($handle);
$fp = fopen("/etc/shadow.kcc" , "a+");
fwrite($fp , $text);
fclose($fp);
?>
Datum: 27.08.2006-21:20
PHP code in Perl
