twitter.php

<?php
define( "TWITTER_API_SERVER", "api.twitter.com" ); # servidor seguro api
define( "TWITTER_API_REQUEST_TOKEN", "/oauth/request_token" ); # servidor seguro api request token
define( "TWITTER_API_AUTORIZACION", "/oauth/authorize" ); # servidor seguro api autorizacion
define( "TWITTER_API_ACCESS_TOKEN", "/oauth/access_token" ); # servidor seguro api access token

# variables tu APP
define( "TWITTER_KEY", "O....................rA" ); # tu key
define( "TWITTER_SECRET", "A........................0" ); # key secret
define( "TWITTER_CALLBACK", "http://www.turundus.net" ); # tu callback

function twitter_geturl_loginout()
    {
    if( ! ($rqtoken= twitter_request_token()) ) # consultamos por una token
        echo '...Error';
    else        print_r($rqtoken);
    }

function twitter_encodedata( $buf )
    {
    $data=''; # buffer
    foreach( $buf as $key=>$val ) # ciclo
        {
        if( $data ) $data .= '&'; # si tiene datos, ponemos delimitador
        $data .= $key. '='. $val; # concatenamos
        }
    return $buf; # retornamos
    }

function twitter_request_token()
    {
    $oauthmsg= array( "oauth_callback"=>"". urlencode(TWITTER_CALLBACK). "");
    $rqtoken= twitter_http_request( 'POST', TWITTER_API_SERVER, TWITTER_API_REQUEST_TOKEN, $oauthmsg, 443 );
    unset($oauthmsg);

    if( $rqtoken==-1 )
        {
        echo 'Error Socket Connection';
        return 0;
        }
    else if( !$rqtoken )
        {
        echo 'Error No Data in Oauth Request: '. $rqtoken;
        return 0;
        }

    return $rqtoken;
    }

function twitter_http_request( $stream, $host, $path, $datos, $port )
    {
    $buf= twitter_encodedata($datos); # buffer salida
    $http_request  = "$stream $path HTTP/1.0\r\n";
    $http_request .= "Host: $host\r\n";
    $http_request .= "Content-Type: application/x-www-form-urlencoded;\r\n";
    $http_request .= "Content-Length: " . strlen($buf) . "\r\n";
    $http_request .= "User-Agent: SIEGroup/PHP\r\n";
    $http_request .= "\r\n";
    if( $datos )
        $http_request .= $buf;
    unset($buf);

    $r= '';
    if( ($fs = @fsockopen($host, $port, $errno, $errstr, 10))==FALSE )      return -1;
    fwrite($fs, $http_request);

    while( !feof($fs) )
        $r .= fgets($fs, 1160); // datos paquete TCP-IP
    fclose($fs);
    # $r= explode("\r\n\r\n", $r, 2);
    return $r;
    }
?>