开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > ICQ/即时通讯 > 查看源码
icq_response.c
资源名称：micq.tgz　[点击查看]
上传用户：ai20ln
上传日期：2007-01-05
资源大小：79k
文件大小：15k
源码类别：

ICQ/即时通讯

开发平台：

Unix_Linux

icq_response.c：源码内容
  1. #include "datatype.h"
  2. #include "micq.h"
  3. #include <stdlib.h>
  4. #include <stdio.h>
  5. #include <sys/types.h>
  6. #ifdef _WIN32
  7.   #include <winsock2.h>
  8. #else
  9.   #include <netinet/in.h>
  10.   #include <unistd.h>
  11.   #include <netdb.h>
  12. #endif
  13. #include <time.h>
  14. #include <string.h>
  17. void Display_Rand_User( SOK_T sok, BYTE *data, DWORD len )
  18. {
  19.    if ( len == 37 ) {
  20.       M_print( "nRandom User :t%dn", Chars_2_DW( &data[0] ) );
  21.       M_print( "IP          :t%d.%d.%d.%dn", data[4], data[5], data[6], data[7]  );
  22.       M_print( "Port        :t%dn", Chars_2_DW( &data[8] ) );
  23.       M_print( "IP2         :t%d.%d.%d.%dn", data[12], data[13], data[14], data[15]  );
  24.       M_print( "Connection  :t%sn", data[16] == 4 ? "Peer-to-Peer" : "Server Only" );
  25.       M_print( "Status      :t" );
  26.       Print_Status( Chars_2_DW( &data[17] ) );
  27.       M_print( "nTCP version :t%dn", Chars_2_Word( &data[21] ) );
  28.       if ( Verbose > 1 ) {
  29.  Hex_Dump( data, len );
  30.       }
  31.       send_info_req( sok, Chars_2_DW( data ) );
  32.       send_ext_info_req( sok, Chars_2_DW( data ) );
  33.    } else {
  34.       M_print( "No Random User Foundn" );
  35.    }
  36. }
  38. void Recv_Message( int sok, BYTE * pak )
  39. {
  40.    RECV_MESSAGE_PTR r_mesg;
  42.    M_print( "n" );
  43.    r_mesg = ( RECV_MESSAGE_PTR )pak;
  44.    last_recv_uin = Chars_2_DW( r_mesg->uin );
  45.    Print_UIN_Name( Chars_2_DW( r_mesg->uin ) );
  46.    M_print( ":anDate %d/%d/%dt%d:%02d GMTn", r_mesg->month, r_mesg->day, 
  47.             Chars_2_Word( r_mesg->year ), r_mesg->hour ,  r_mesg->minute );
  48.             
  49.    M_print( "Type : %d t Len : %dn", Chars_2_Word( r_mesg->type ),
  50.        Chars_2_Word( r_mesg->len ) );
  51.    Do_Msg( sok, Chars_2_Word( r_mesg->type ), Chars_2_Word( r_mesg->len ), ( r_mesg->len + 2 ), last_recv_uin ); 
  52.    
  53. /*   M_print( MESSCOL "%sn" NOCOL, ((char *) &r_mesg->len) + 2 );*/
  54. /*   ack_srv( sok, Chars_2_Word( pak.head.seq ) ); */
  55. }
  58. /************************************************
  59. This is called when a user goes offline
  60. *************************************************/
  61. void User_Offline( int sok, BYTE * pak )
  62. {
  63.    int remote_uin;
  64.    int index;
  66.    remote_uin = Chars_2_DW( &pak[0] );
  68.    M_print( "n" );
  69.    M_print( CONTACTCOL );
  70.    index = Print_UIN_Name( remote_uin );
  71.    M_print( NOCOL );
  72.    M_print( " logged off.t" );
  73.    Time_Stamp();
  74.    M_print( "n" );
  76.    log_event("User logged off","",remote_uin);
  77.    if ( index != -1 )
  78.    {
  79.       Contacts[ index ].status = STATUS_OFFLINE;
  80.       Contacts[ index ].last_time = time( NULL );
  81.    }
  82. }
  84. void User_Online( int sok, BYTE * pak )
  85. {
  86.    int remote_uin, new_status;
  87.    int index;
  89.    remote_uin = Chars_2_DW( &pak[0] );
  91.    new_status = Chars_2_DW( &pak[17] );
  92.    
  93.    if ( Done_Login )
  94.    {
  95.       M_print( "n" );
  96.       M_print( CONTACTCOL );
  97.       index = Print_UIN_Name( remote_uin );
  98.       M_print( NOCOL );
  99.       if ( index != -1 )
  100.       {
  101.          Contacts[ index ].status = new_status;
  102.          Contacts[ index ].current_ip[0] =  pak[4];
  103.          Contacts[ index ].current_ip[1] =  pak[5];
  104.          Contacts[ index ].current_ip[2] =  pak[6];
  105.          Contacts[ index ].current_ip[3] =  pak[7];
  106.          Contacts[ index ].port = Chars_2_DW( &pak[8] );
  107.          Contacts[ index ].last_time = time( NULL );
  108.       }
  109.       M_print( " (" );
  110.       Print_Status( new_status );
  111.       M_print( ") logged on.t" );
  112.       Time_Stamp();
  113.       M_print( "n" );
  115.       log_event("User logged on","",remote_uin);
  116.       if ( Verbose )
  117.       {
  118.          M_print( "The IP address is %u.%u.%u.%un", pak[4], pak[5], pak[6], pak[7] );
  119.          M_print( "The "real" IP address is %u.%u.%u.%un", pak[12], pak[13], pak[14], pak[15] );
  120.  M_print( "%sn", pak[16] == 4 ? "Peer-to-Peer mode" : "Server Only Communication." );
  121.  M_print( "TCP ICQ version : %dn", Chars_2_Word( &pak[21] ) );
  122.  Hex_Dump( pak, 0x2B );
  123.       }
  124.    }
  125.    else
  126.    {
  127.       for ( index=0; index < Num_Contacts; index++ )
  128.       {
  129.          if ( Contacts[index].uin == remote_uin )
  130.          {
  131.             Contacts[ index ].status = new_status;
  132.             Contacts[ index ].current_ip[0] =  pak[4];
  133.             Contacts[ index ].current_ip[1] =  pak[5];
  134.             Contacts[ index ].current_ip[2] =  pak[6];
  135.             Contacts[ index ].current_ip[3] =  pak[7];
  136.             Contacts[ index ].port = Chars_2_DW( &pak[8] );
  137.             Contacts[ index ].last_time = time( NULL );
  138.             break;
  139.          }
  140.       }
  141.    }
  142. }
  144. void Status_Update( int sok, BYTE * pak )
  145. {
  146.    int remote_uin, new_status;
  147.    int index;
  149.    remote_uin = Chars_2_DW( &pak[0] );
  151.    new_status = Chars_2_DW( &pak[4] );
  153.    M_print( "n" );
  154.    M_print( CONTACTCOL );
  155.    index = Print_UIN_Name( remote_uin );
  156.    M_print( NOCOL );
  157.    if ( index != -1 )
  158.    {
  159.       Contacts[ index ].status = new_status;
  160.    }
  161.    M_print( " changed status to " );
  162.    Print_Status( new_status );
  163.    M_print( "t" );
  164.    Time_Stamp();
  165.    M_print( "n" );
  166.    
  167. }
  169. /* This procedure logins into the server with UIN and pass
  170.    on the socket sok and gives our ip and port.
  171.    It does NOT wait for any kind of a response.         */
  172. void Login( int sok, int UIN, char *pass, int ip, int port, DWORD status )
  173. {
  174.    net_icq_pak pak;
  175.    int size;
  176.    login_1 s1;
  177.    login_2 s2;
  178. struct sockaddr_in sin;  /* used to store inet addr stuff  */
  179.    
  180.    Word_2_Chars( pak.head.ver, ICQ_VER );
  181.    Word_2_Chars( pak.head.cmd, CMD_LOGIN );
  182.    Word_2_Chars( pak.head.seq, seq_num++ );
  183.    DW_2_Chars( pak.head.UIN, UIN );
  184.    
  185.    DW_2_Chars( s1.port, ntohs( port ) + 0x10000 );
  186.    Word_2_Chars( s1.len, strlen( pass ) + 1 );
  187.    DW_2_Chars( s1.time, time( NULL ) );  
  188.    
  189.    DW_2_Chars( s2.ip, ip );
  190.    sin.sin_addr.s_addr = Chars_2_DW( s2.ip );
  191.    DW_2_Chars( s2.status, status );
  192. /*   Word_2_Chars( s2.seq, seq_num++ );*/
  193.    
  194.    DW_2_Chars( s2.X1, LOGIN_X1_DEF );
  195.    s2.X2[0] = LOGIN_X2_DEF;
  196.    DW_2_Chars( s2.X3, LOGIN_X3_DEF );
  197.    DW_2_Chars( s2.X4, LOGIN_X4_DEF );
  198.    DW_2_Chars( s2.X5, LOGIN_X5_DEF );
  199.    
  200.    memcpy( pak.data, &s1, sizeof( s1 ) );
  201.    size = sizeof( s1 );
  202.    memcpy( &pak.data[size], pass, Chars_2_Word( s1.len ) );
  203.    size += Chars_2_Word( s1.len );
  204.    memcpy( &pak.data[size], &s2.X1, sizeof( s2.X1 ) );
  205.    size += sizeof( s2.X1 );
  206.    memcpy( &pak.data[size], &s2.ip, sizeof( s2.ip ) );
  207.    size += sizeof( s2.ip );
  208.    memcpy( &pak.data[size], &s2.X2, sizeof( s2.X2 ) );
  209.    size += sizeof( s2.X2 );
  210.    memcpy( &pak.data[size], &s2.status, sizeof( s2.status ) );
  211.    size += sizeof( s2.status );
  212.    memcpy( &pak.data[size], &s2.X3, sizeof( s2.X3 ) );
  213.    size += sizeof( s2.X3 );
  214. /*   memcpy( &pak.data[size], &s2.seq, sizeof( s2.seq ) );
  215. /   size += sizeof( s2.seq );*/
  216.    memcpy( &pak.data[size], &s2.X4, sizeof( s2.X4 ) );
  217.    size += sizeof( s2.X4 );
  218.    memcpy( &pak.data[size], &s2.X5, sizeof( s2.X5 ) );
  219.    size += sizeof( s2.X5 );
  220. #if ICQ_VER == 0x0004
  221.    last_cmd[ seq_num - 1 ] = Chars_2_Word( pak.head.cmd );
  222. #else
  223.    last_cmd[ seq_num - 2 ] = Chars_2_Word( pak.head.cmd );
  224. #endif
  225.    SOCKWRITE( sok, &(pak.head.ver), size + sizeof( pak.head )- 2 );
  226. } 
  228. /* This routine sends the aknowlegement cmd to the
  229.    server it appears that this must be done after
  230.    everything the server sends us                 */
  231. void ack_srv( int sok, int seq )
  232. {
  233.    net_icq_pak pak;
  234.    
  235.    Word_2_Chars( pak.head.ver, ICQ_VER );
  236.    Word_2_Chars( pak.head.cmd, CMD_ACK );
  237.    Word_2_Chars( pak.head.seq, seq );
  238.    DW_2_Chars( pak.head.UIN, UIN);
  239.    
  240.    SOCKWRITE( sok, &(pak.head.ver), sizeof( pak.head ) - 2 );
  242. }
  244. void Display_Info_Reply( int sok, BYTE * pak )
  245. {
  246.    char *tmp;
  247.    int len;
  248.    
  249.    M_print( SERVCOL "nInfo for %ldn", Chars_2_DW( &pak[0] ) );
  250.    len = Chars_2_Word( &pak[4] );
  251.    rus_conv( "wk", &pak[6] );
  252.    M_print( "Nick Name :t%sn", &pak[6] );
  253.    tmp = &pak[6 + len ];
  254.    len = Chars_2_Word( tmp );
  255.    rus_conv( "wk", tmp+2 );
  256.    M_print( "First name :t%sn", tmp+2 );
  257.    tmp += len + 2;
  258.    len = Chars_2_Word( tmp );
  259.    rus_conv( "wk", tmp+2 );
  260.    M_print( "Last name :t%sn", tmp+2 );
  261.    tmp += len + 2;
  262.    len = Chars_2_Word( tmp );
  263.    rus_conv( "wk", tmp+2 );
  264.    M_print( "Email Address :t%sn", tmp+2 );
  265.    tmp += len + 2;
  266.    if ( *tmp == 1 )
  267.    {
  268.       M_print( "No authorization needed." NOCOL "n" );
  269.    }
  270.    else
  271.    {
  272.       M_print( "Must request authorization." NOCOL "n" );
  273.    }
  274. /*   ack_srv( sok, Chars_2_Word( pak.head.seq ) ); */
  275. }
  277. void Display_Ext_Info_Reply( int sok, BYTE * pak )
  278. {
  279.    unsigned char *tmp;
  280.    int len;
  282.    M_print( SERVCOL "nMore Info for %ldn", Chars_2_DW( &pak[0] ) );
  283.    len = Chars_2_Word( &pak[4] );
  284.    rus_conv( "wk", &pak[6] );
  285.    M_print( "City         :t%sn", &pak[6] );
  286.    if ( Get_Country_Name( Chars_2_Word(&pak[6+len]) ) != NULL )
  287.       M_print( "Country      :t%sn",Get_Country_Name( Chars_2_Word(&pak[6+len]) ) );
  288.    else
  289.       M_print( "Country Code :t%dn", Chars_2_Word( &pak[6+len] ) );
  290.    M_print( "Time Zone    :tGMT %+dn", ((signed char) pak[len+8])>>1  );
  291.    tmp = &pak[9 + len ];
  292.    len = Chars_2_Word( tmp );
  293.    rus_conv( "wk", tmp+2 );
  294.    M_print( "State        :t%sn", tmp+2 );
  295.    if ( Chars_2_Word( tmp+2+len ) != 0xffff )
  296.       M_print( "Age          :t%dn", Chars_2_Word( tmp+2+len ) );
  297.    else
  298.       M_print( "Age          :tNot Enteredn");
  299.    if (*(tmp + len + 4) == 2 )
  300.       M_print( "Sex          :tMalen" );
  301.    else if (*(tmp + len + 4) == 1 )
  302.       M_print( "Sex          :tFemalen" );
  303.    else
  304. #ifdef FUNNY_MSGS
  305.       M_print( "Sex          :tYes please!n" );
  306. #else
  307.       M_print( "Sex          :tNot specifiedn" );
  308. #endif
  309.    tmp += len + 5;
  310.    len = Chars_2_Word( tmp );
  311.    rus_conv( "wk", tmp+2 );
  312.    M_print( "Phone Number :t%sn", tmp+2 );
  313.    tmp += len + 2;
  314.    len = Chars_2_Word( tmp );
  315.    rus_conv( "wk", tmp+2 );
  316.    M_print( "Home Page    :t%sn", tmp+2 );
  317.    tmp += len + 2;
  318.    len = Chars_2_Word( tmp );
  319.    rus_conv( "wk", tmp+2 );
  320.    M_print( "About        :n%sn", tmp+2 );
  321. /*   ack_srv( sok, Chars_2_Word( pak.head.seq ) ); */
  322. }
  324. void Display_Search_Reply( int sok, BYTE * pak )
  325. {
  326.    char *tmp;
  327.    int len;
  328.    M_print( SERVCOL "nUser found %ldn", Chars_2_DW( &pak[0] ) );
  329.    len = Chars_2_Word( &pak[4] );
  330.    rus_conv( "wk", &pak[6] );
  331.    M_print( "Nick Name :t%sn", &pak[6] );
  332.    tmp = &pak[6 + len ];
  333.    len = Chars_2_Word( tmp );
  334.    rus_conv( "wk", tmp+2 );
  335.    M_print( "First name :t%sn", tmp+2 );
  336.    tmp += len + 2;
  337.    len = Chars_2_Word( tmp );
  338.    rus_conv( "wk", tmp+2 );
  339.    M_print( "Last name :t%sn", tmp+2 );
  340.    tmp += len + 2;
  341.    len = Chars_2_Word( tmp );
  342.    rus_conv( "wk", tmp+2 );
  343.    M_print( "Email Address :t%sn", tmp+2 );
  344.    tmp += len + 2;
  345.    if ( *tmp == 1 )
  346.    {
  347.       M_print( "No authorization needed." NOCOL "n" );
  348.    }
  349.    else
  350.    {
  351.       M_print( "Must request authorization." NOCOL "n" );
  352.    }
  353. }
  355. void Do_Msg( SOK_T sok, DWORD type, WORD len, char * data, DWORD uin )
  356. {
  357.    char *tmp;
  358. int   x,m;
  359.    char message[1024];
  360.    char url_data[1024];
  361.    char url_desc[1024];
  363.    if ( type == USER_ADDED_MESS )
  364.    {
  365.       tmp = strchr( data, 'xFE' );
  366.       if ( tmp == NULL )
  367.       {
  368.          M_print( "Ack!!!!!!!  Bad packetn" );
  369.          return;
  370.       }
  371.       *tmp = 0;
  372.       M_print( CONTACTCOL "n%s" NOCOL " has added you to their contact list.n", data );
  373.       tmp++;
  374.       data = tmp;
  375.       tmp = strchr( tmp, 'xFE' );
  376.       if ( tmp == NULL )
  377.       {
  378.          M_print( "Ack!!!!!!!  Bad packetn" );
  379.          return;
  380.       }
  381.       *tmp = 0;
  382.       rus_conv ("wk",data);
  383.       M_print( "First name    : " MESSCOL "%s" NOCOL "n" , data );
  384.       tmp++;
  385.       data = tmp;
  386.       tmp = strchr( tmp, 'xFE' );
  387.       if ( tmp == NULL )
  388.       {
  389.          M_print( "Ack!!!!!!!  Bad packetn" );
  390.          return;
  391.       }
  392.       *tmp = 0;
  393.       rus_conv ("wk",data);
  394.       M_print( "Last name     : " MESSCOL "%s" NOCOL "n" , data );
  395.       tmp++;
  396.       data = tmp;
  397.       tmp = strchr( tmp, 'xFE' );
  398.       *tmp = 0;
  399.       rus_conv ("wk",data);
  400.       M_print( "Email address : " MESSCOL "%s" NOCOL "n" , data );
  401.    }
  402.    else if ( type == AUTH_REQ_MESS )
  403.    {
  404.       tmp = strchr( data, 'xFE' );
  405.       *tmp = 0;
  406.       M_print( CONTACTCOL "n%s" NOCOL " has requested your authorization to be added to their contact list.n", data );
  407.       tmp++;
  408.       data = tmp;
  409.       tmp = strchr( tmp, 'xFE' );
  410.       if ( tmp == NULL )
  411.       {
  412.          M_print( "Ack!!!!!!!  Bad packetn" );
  413.          return;
  414.       }
  415.       *tmp = 0;
  416.       rus_conv ("wk",data);
  417.       M_print( "First name    : " MESSCOL "%s" NOCOL "n" , data );
  418.       tmp++;
  419.       data = tmp;
  420.       tmp = strchr( tmp, 'xFE' );
  421.       if ( tmp == NULL )
  422.       {
  423.          M_print( "Ack!!!!!!!  Bad packetn" );
  424.          return;
  425.       }
  426.       *tmp = 0;
  427.       rus_conv ("wk",data);
  428.       M_print( "Last name     : " MESSCOL "%s" NOCOL "n" , data );
  429.       tmp++;
  430.       data = tmp;
  431.       tmp = strchr( tmp, 'xFE' );
  432.       if ( tmp == NULL )
  433.       {
  434.          M_print( "Ack!!!!!!!  Bad packetn" );
  435.          return;
  436.       }
  437.       *tmp = 0;
  438.       rus_conv ("wk",data);
  439.       M_print( "Email address : " MESSCOL "%s" NOCOL "n" , data );
  440.       tmp++;
  441.       data = tmp;
  442.       tmp = strchr( tmp, 'xFE' );
  443.       if ( tmp == NULL )
  444.       {
  445.          M_print( "Ack!!!!!!!  Bad packetn" );
  446.          return;
  447.       }
  448.       *tmp = 0;
  449.       tmp++;
  450.       data = tmp;
  451.       tmp = strchr( tmp, 'x00' );
  452.       if ( tmp == NULL )
  453.       {
  454.          M_print( "Ack!!!!!!!  Bad packetn" );
  455.          return;
  456.       }
  457.       *tmp = 0;
  458.       rus_conv ("wk",data);
  459.       M_print( "Reason : " MESSCOL "%s" NOCOL "n" , data );
  460.    }
  461.    else if (type == URL_MESS || type == MRURL_MESS)
  462.    {
  464.       tmp = strchr( data, 'xFE' );
  465.       if ( tmp == NULL )
  466.       {
  467.          M_print( "Ack!!!!!!!  Bad packetn" );
  468.          return;
  469.       }
  470.       *tmp = 0;
  471.       rus_conv ("wk",data);
  472.       strcpy (url_desc,data);
  473.       tmp++;
  474.       data = tmp;
  475.       rus_conv ("wk",data);
  476.       strcpy (url_data,data);
  477.       
  478.       sprintf (message,"Description: %s n                          URL: %s",url_desc,url_data);  
  479.       log_event("You received URL message",message,uin);
  481.       M_print( " URL Message.n Description: " MESSCOL "%s" NOCOL "n", url_desc );
  482.       M_print(               " URL        : " MESSCOL "%s" NOCOL "n", url_data );
  483.    }
  484. else if (type == CONTACT_MESS || type==MRCONTACT_MESS)
  485. {
  486.       tmp = strchr( data, 'xFE' );
  487.       *tmp = 0;
  488.       M_print( "nContact List.n" MESSCOL "============================================n" NOCOL "%d Contactsn", atoi(data) );
  489.       tmp++;
  490.       m = atoi(data);
  491.       for(x=0; m > x ; x++)
  492.       {
  493.          data = tmp;
  494.          tmp = strchr( tmp, 'xFE' );
  495.          *tmp = 0;
  496.          M_print( CONTACTCOL "%sttt", data );
  497.          tmp++;
  498.          data = tmp;
  499.          tmp = strchr( tmp, 'xFE' );
  500.          *tmp = 0;
  501.          M_print( MESSCOL "%s" NOCOL "n" , data );
  502.          tmp++;
  503.       }
  504. }
  505.    else
  506.    {
  507.       rus_conv ("wk",data);
  508.       log_event("You received instant message",data,uin);
  509.       M_print( MESSCOL "n%s", data );
  510.       M_print( NOCOL "n" );
  511.    }
  512. }