You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdenetwork/kopete/protocols/oscar/liboscar/aimlogintask.cpp

255 lines
6.8 KiB

/*
Kopete Oscar Protocol
aimlogintask.h - Handles logging into to the AIM service
Copyright (c) 2004 Matt Rogers <mattr@kde.org>
Kopete (c) 2002-2004 by the Kopete developers <kopete-devel@kde.org>
*************************************************************************
* *
* This library is free software; you can redistribute it and/or *
* modify it under the terms of the GNU Lesser General Public *
* License as published by the Free Software Foundation; either *
* version 2 of the License, or (at your option) any later version. *
* *
*************************************************************************
*/
#include "aimlogintask.h"
#include <stdlib.h>
#include <kdebug.h>
#include <klocale.h>
#include "connection.h"
#include "oscartypes.h"
#include "oscarutils.h"
#include "transfer.h"
#include "md5.h"
using namespace Oscar;
AimLoginTask::AimLoginTask( Task* parent )
: Task ( parent )
{
}
AimLoginTask::~AimLoginTask()
{
}
void AimLoginTask::onGo()
{
//send Snac 17,06
sendAuthStringRequest();
//when we have the authKey, login
connect( this, TQT_SIGNAL( haveAuthKey() ), this, TQT_SLOT( sendLoginRequest() ) );
}
bool AimLoginTask::forMe( Transfer* transfer ) const
{
SnacTransfer* st = dynamic_cast<SnacTransfer*>( transfer );
if (!st)
return false;
if ( st && st->snacService() == 0x17 )
{
WORD subtype = st->snacSubtype();
switch ( subtype )
{
case 0x0002:
case 0x0003:
case 0x0006:
case 0x0007:
return true;
break;
default:
return false;
break;
}
}
return false;
}
const TQByteArray& AimLoginTask::cookie() const
{
return m_cookie;
}
const TQString& AimLoginTask::bosHost() const
{
return m_bosHost;
}
const TQString& AimLoginTask::bosPort() const
{
return m_bosPort;
}
bool AimLoginTask::take( Transfer* transfer )
{
if ( forMe( transfer ) )
{
SnacTransfer* st = dynamic_cast<SnacTransfer*>( transfer );
if (!st)
return false;
WORD subtype = st->snacSubtype();
switch ( subtype )
{
case 0x0003:
setTransfer( transfer );
handleLoginResponse();
setTransfer( 0 );
return true;
break;
case 0x0007:
setTransfer( transfer );
processAuthStringReply();
setTransfer( 0 );
return true;
break;
default:
return false;
break;
}
return false;
}
return false;
}
void AimLoginTask::sendAuthStringRequest()
{
kdDebug(OSCAR_RAW_DEBUG) << k_funcinfo
<< "SEND CLI_AUTH_REQUEST, sending login request" << endl;
FLAP f = { 0x02, 0, 0 };
SNAC s = { 0x0017, 0x0006, 0x0000, client()->snacSequence() };
Buffer* outbuf = new Buffer;
outbuf->addTLV(0x0001, client()->userId().length(), client()->userId().latin1() );
outbuf->addDWord(0x004B0000); // empty TLV 0x004B
outbuf->addDWord(0x005A0000); // empty TLV 0x005A
Transfer* st = createTransfer( f, s, outbuf );
send( st );
}
void AimLoginTask::processAuthStringReply()
{
kdDebug(OSCAR_RAW_DEBUG) << k_funcinfo << "Got the authorization key" << endl;
Buffer *inbuf = transfer()->buffer();
WORD keylen = inbuf->getWord();
kdDebug(OSCAR_RAW_DEBUG) << k_funcinfo << "Key length is " << keylen << endl;
m_authKey.duplicate( inbuf->getBlock(keylen) );
emit haveAuthKey();
}
void AimLoginTask::sendLoginRequest()
{
kdDebug(OSCAR_RAW_DEBUG) << k_funcinfo << "SEND (CLI_MD5_LOGIN) sending AIM login" << endl;
FLAP f = { 0x02, 0, 0 };
SNAC s = { 0x0017, 0x0002, 0x0000, client()->snacSequence() };
Buffer *outbuf = new Buffer;
const Oscar::ClientVersion* version = client()->version();
outbuf->addTLV(0x0001, client()->userId().length(), client()->userId().latin1());
TQByteArray digest( 17 ); //apparently MD5 digests are 16 bytes long
encodePassword( digest );
digest[16] = '\0'; //do this so that addTLV sees a NULL-terminator
outbuf->addTLV(0x0025, 16, digest);
outbuf->addTLV(0x0003, version->clientString.length(), version->clientString.latin1() );
outbuf->addTLV16(0x0016, version->clientId );
outbuf->addTLV16(0x0017, version->major );
outbuf->addTLV16(0x0018, version->minor );
outbuf->addTLV16(0x0019, version->point );
outbuf->addTLV16(0x001a, version->build );
outbuf->addDWord(0x00140004); //TLV type 0x0014, length 0x0004
outbuf->addDWord( version->other ); //TLV data for type 0x0014
outbuf->addTLV(0x000f, version->lang.length(), version->lang.latin1() );
outbuf->addTLV(0x000e, version->country.length(), version->country.latin1() );
//if set, old-style buddy lists will not work... you will need to use SSI
outbuf->addTLV8(0x004a,0x01);
Transfer *st = createTransfer( f, s, outbuf );
send( st );
}
void AimLoginTask::handleLoginResponse()
{
kdDebug(OSCAR_RAW_DEBUG) << k_funcinfo << "RECV SNAC 0x17, 0x07 - AIM Login Response" << endl;
SnacTransfer* st = dynamic_cast<SnacTransfer*> ( transfer() );
if ( !st )
{
setError( -1 , TQString() );
return;
}
TQValueList<TLV> tlvList = st->buffer()->getTLVList();
TLV uin = findTLV( tlvList, 0x0001 );
if ( uin )
{
kdDebug(OSCAR_RAW_DEBUG) << k_funcinfo << "found TLV(1) [SN], SN=" << TQString( uin.data ) << endl;
}
TLV err = findTLV( tlvList, 0x0008 );
if ( err )
{
WORD errorNum = ( ( err.data[0] << 8 ) | err.data[1] );
kdDebug(OSCAR_RAW_DEBUG) << k_funcinfo << k_funcinfo << "found TLV(8) [ERROR] error= " <<
errorNum << endl;
Oscar::SNAC s = { 0, 0, 0, 0 };
client()->fatalTaskError( s, errorNum );
setError( errorNum, TQString() );
return; //if there's an error, we'll need to disconnect anyways
}
TLV server = findTLV( tlvList, 0x0005 );
if ( server )
{
TQString ip = TQString( server.data );
kdDebug(OSCAR_RAW_DEBUG) << k_funcinfo << "found TLV(5) [SERVER] " << ip << endl;
int index = ip.find( ':' );
m_bosHost = ip.left( index );
ip.remove( 0 , index+1 ); //get rid of the colon and everything before it
m_bosPort = ip.left(4); //we only need 4 bytes
kdDebug(OSCAR_RAW_DEBUG) << k_funcinfo << "We should reconnect to server '" << m_bosHost <<
"' on port " << m_bosPort << endl;
}
TLV cookie = findTLV( tlvList, 0x0006 );
if ( cookie )
{
kdDebug(OSCAR_RAW_DEBUG) << k_funcinfo << "found TLV(6) [COOKIE]" << endl;
m_cookie.duplicate( cookie.data );
setSuccess( 0, TQString() );
}
tlvList.clear();
}
void AimLoginTask::encodePassword( TQByteArray& digest ) const
{
kdDebug(OSCAR_RAW_DEBUG) << k_funcinfo << endl;
md5_state_t state;
md5_init( &state );
md5_append( &state, ( const md5_byte_t* ) m_authKey.data(), m_authKey.size() );
md5_append( &state, ( const md5_byte_t* ) client()->password().latin1(), client()->password().length() );
md5_append( &state, ( const md5_byte_t* ) AIM_MD5_STRING, strlen( AIM_MD5_STRING ) );
md5_finish( &state, ( md5_byte_t* ) digest.data() );
}
//kate: indent-mode csands; tab-width 4;
#include "aimlogintask.moc"