[Mirc] Msn Botje/client

[Helmet]

ik ben bezig in mirc een msn bot/client te schrijven en heb uiteraard de guide
op http://www.venkydude.com/articles/msn.htm gelezen nu heb ik een probleem en dat is dat de CHL reply niet goed gekeurd wordt

code:

on *:start:msnbot
alias i { .inc %id } 
alias sw { sockwrite -n $1 $2- } 
alias a { echo -a $1- } 
alias msnbot {
  sockclose * 
  .set %id 0
  sockopen msnbot 64.4.13.58 1863
}

on *:sockopen:msnbot:{
  sw $sockname VER %id MSNP7 MSNP6 MSNP5 MSNP4 CVRO 
}

on *:sockread:msnbot:{
  if ($sockerr > 0) { A Error: Socket Error $sockerr | return } 
  :nextread
  sockread %temp
  if ($sockbr == 0) return
  if (%temp == $null) %temp = -
  tokenize 32 %temp
  a $1-
  if ($1 == VER) { i | sw $sockname INF %id } 
  if ($1 == INF) && ($3 == MD5) { i | sw $sockname USR %id  MD5  I  %account } 
  if ($1 == XFR) { i | sockclose $sockname | a Now Connecting to:  $gettok($4,1,58) $gettok($4,2,58) | sockopen msnbot $gettok($4,1,58) $gettok($4,2,58) | return } 
  if ($1 == USR) && ($3 == MD5) && ($4 == S) { i | sw $sockname USR %id MD5 S $dll(dll\md5.dll,md5,$5 $+ %password) } 
  if ($1 == USR) && ($3 == OK) { i | sw $sockname CHG %id NLN } 
  if ($1 == CHG) { i | sw $sockname CVR %id 0x0409 win $os i386 MSMSGS 4.5.0127 MSMSGS } 
  if ($1 == CVR) { i | sw $sockname LST %id RL } 
  if ($1 == CHL) { i | sw $sockname QRY %id [e-mail] 32 $crlf $dll(dll\md5,md5,$3 $+ Q1P7W2E4J9R8U3S5 $+ $chr(32)) } 
  goto nextread
}

btw md5.dll is een dll die het mogelijk maakt md5 encryptie in mirc te bouwen

Je kunt het scriptje ook gezipt downloaden op http://www.skuzz.net/~helmet/msn.zip

om het geheel werkend te krijgen

code:

/set %account [e-mail]
/set %password rara

hoop dat iemand me kan helpen
en bij voorbaat dank

[Baxlash]

Er is al een msn client gebouwd met bot functies dat ik weet.

Zoek even op de grotere mirc script sites als voorbeeld hoe hun dat doen.

[MikeN]

$chr(32)

Staat er bij je CHL. Die hoort daar niet, volgens mij
Verder moet er geen newline aan het einde van je bericht, dus na de md5 hash. Volgens mij stuur jij die wel mee. Dan gaat het ook mis.

[Helmet]

de $crlf hoort er iig wel de $chr(32) is weg en het werkt nog steeds niet ik denk nog steeds dat er een fout is met de trial id maar kan hem helaas niet vinden

[MikeN]

Wat ik uit je code kan opmaken is dat je ACHTER de MD5 hash, automatisch nog een crlf laat plakken. Die hoort er niet.

[KolNedra]

Ik ben ook even weesten rond neuzen op die pagina
en bekijk dit maar eens:

XFR 2 NS 64.4.13.55:1863 0

What the server says is that the client should connect to the Notification Server(NS) on 64.4.13.55 on port 1863. We close the current connection and repeat the steps while being connected to the new server i.e 64.4.13.55

Je moet dus dit doen:

code:

...
  if ($1 = XFR) { 
    if ($5 = 0) { 
    inc %tries
    a Email Authentication failed, trying...
    i
    sockclose msnbot
    sockopen msnbot $gettok($4,1,58) $gettok($4,2,58)
    }
    return
  }
...

Dan gaat ie net zo lang proberen totdat ie je email heeft geauth

[KolNedra]

Hum, ja die CHL wordt bij mij ook niet be-antwoord...
Erg irritant

[KolNedra]

QRY 18 [e-mail] 32
0212eaad0876afb8505859ca75d21a78

Dit staat in die html pagina
ooit gedacht aan een $crlf VOOR de MD5 hash?

code:

sw $sockname QRY %id [e-mail] 32 $+ $crlf $+ $dll(md5.dll,md5,$3 $+ Q1P7W2E4J9R8U3S5)