<?
$ Host = pop.163.com;
$ Port = 110;
$ User = ******;
$ Password = ******;
If (! ($ Sock = fsockopen (gethostbyname ($ host), $ port, $ errno, $ errstr )))
Exit ($ errno.:. $ errstr );
Set_socket_blocking ($ sock, true );
$ Msg = fgets ($ sock );
Echo $ msg;
$ Command = "user". $ user ."";
Fwrite ($ sock, $ command );
$ Msg = fgets ($ sock );
Echo $ msg;
$ Command = "pass". $ password ."";
Fwrite ($ sock, $ command );
$ Msg = fgets ($ sock );
Echo $ msg;
$ Command = "stat ";
Fwrite ($ sock, $ command );
$ Msg = fgets ($ sock );
Echo $ msg;
$ Command = "list ";
Fwrite ($ sock, $ command );
While (true)
{
$ Msg = fgets ($ sock );
Echo $ msg;
If (preg_match (/^./, $ msg ))
Break;
}
$ Command = "retr 1 ";
Fwrite ($ sock, $ command );
While (true)
{
$ Msg = fgets ($ sock );
Echo $ msg;
If (preg_match (/^. () $/, $ msg ))
Break;
}
$ Command = "quit ";
Fwrite ($ sock, $ command );
$ Msg = fgets ($ sock );
Echo $ msg;
?>