<?php
// Autor(a):  Heloisa Karina Costa
// Fonte : http://bazar.conectiva.com.br/listas/linuxisp-br/arquivo/2001/10/msg00370.html
// Conexão para trocar senha de usuário sistema
// $servidor = ip do servidor de poppassd e autenticação
// $porta = porta específica do serviço
// $login = login do usuário
// $senhaold = senha atual
// $senhanew = nova senha


$socket = fsockopen($servidor,$porta);
if (!$socket) {
    echo "Conexão Recusada!"; 
}

$out = fgets($socket,4096);

if (strpos("$out","500")>-1) {
    echo "Conexão Recusada!"; 
}

fwrite($socket,"user $login\n");
$out = fgets($socket,4096);

if (strpos($out,"500")>-1) {
    echo "Usuário Inválido!"; 
}

fwrite($socket,"pass $senhaold\n");
$out = fgets($socket,4096);

if (strpos($out,"500")>-1) {
    echo "Senha inválida!"; 
}

fwrite($socket,"newpass $senhanew\n");
$out = fgets($socket,4096);

if (strpos($out,"200") >-1) {
    echo "Senha Alterada com Sucesso!"; 
}

fwrite($socket,"quit\n");
?>