$fd = fsockopen( $server, $port, &$errno, &$errstr );
if( ! $fd ) {
   print( "Couldn't connect to $server, errno: $errno, errstr: $errstr<br>\n" );
   exit;
}

set_socket_blocking( $fd, false );
$ret = '';
while( ! feof( $fd ) )
{
   $ret .= fgets( $fd, 128 );
}

if( trim( $ret ) <> '' ) {
   $key = strip_crlf( $ret );
} else {
   print( "Couldn't get key<br>\n" );
   exit;
}
print( "got key: ---$key---<br>\n" );
$hash = md5( "$passwd.$key" );
$tmp = "$serviceid:$username:$hash";
fputs( $fd, "$tmp\n", strlen( $tmp ) + 1 );
fflush( $fd );

$ret = '';
while( ! feof( $fd ) )
{
   $r = fgets( $fd, 128 );
   print( "-" . $r . "-" );
   $ret .= $r;
}
print( "received id: $ret<br>\n" );

fclose( $fd );