1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
|
::Version::setSubversionId {$Id$}
namespace eval ::hotmail {
if { $initialize_amsn == 1 } {
variable unread 0
variable froms [list]
variable site ""
}
proc unreadMessages {} {
variable unread
return $unread
}
proc setUnreadMessages { number } {
variable unread
set unread $number
}
proc addFrom { from fromaddr } {
variable froms
lappend froms $from $fromaddr
}
proc emptyFroms { } {
variable froms
set froms [list]
}
proc getFroms { } {
variable froms
return $froms
}
proc genNonce { } {
set result ""
for {set i 0 } { $i < 24 } { incr i } {
append result [binary format c [expr {int(rand() * 256)}]]
}
return $result
}
proc genHash { nonce proof data } {
set key1 [base64::decode $proof]
set magic "WS-SecureConversation$nonce"
set key2 [MBIAuthentication deriveKey $key1 $magic]
set hash [binary format H* [::sha1::hmac $key2 $data]]
}
# copy of urlencode which seems to crop at 350 chars.. we need full data, nothing cropped!
proc urlencode_full {str} {
set encode ""
set utfstr [encoding convertto utf-8 $str]
for {set i 0} {$i<[string length $utfstr]} {incr i} {
set character [string range $utfstr $i $i]
if {[string match {[^a-zA-Z0-9()]} $character]==0} {
binary scan $character c charval
set charval [expr {($charval + 0x100) % 0x100}]
set encode "${encode}%[format %.2X $charval]"
} else {
set encode "${encode}${character}"
}
}
return $encode
}
proc genToken { url ticket proof id} {
lappend vars [list ct [clock seconds]]
lappend vars [list bver 4]
# ru is the full 'redirect url', while rru is the URI without the host (/cgi-bin/... for example)..
# maybe it means 'redirect redirect url'... sru might be for 'secure redirect url' for https redirects?
# I think depending on the site ID, it will take the appropriate variable, so we're safe to put the same url
# on all of those vars without risk of 'conflict'
lappend vars [list ru [urlencode_full $url]]
lappend vars [list rru [urlencode_full $url]]
lappend vars [list sru [urlencode_full $url]]
if {$id == "2" || $id == "3" } {
lappend vars [list svc mail]
}
lappend vars [list js yes]
# The SiteID is a value that we get from the config SOAP, it's dependant on the site you want to go to.
# It will determine if it uses 'ru', 'rru' or 'sru' and for 'rru's it will tell the server where to go
# (since we don't specify the base host). Important to know the right site ids...
# Known site ids : msn/live = 2, spaces = 73625, profiles = 4263
lappend vars [list id $id]
lappend vars [list pl [urlencode_full "?id=$id"]]
lappend vars [list da [urlencode_full $ticket]]
set nonce [genNonce]
lappend vars [list nonce [urlencode_full [base64::encode $nonce]]]
set data [list]
foreach var $vars {
lappend data [join $var "="]
}
set token [join $data "&"]
set hash [genHash $nonce $proof $token]
append token "&hash=[urlencode_full [base64::encode $hash]]"
return $token
}
proc gotSHA1URL {url {id 2}} {
$::sso RequireSecurityToken Passport [list ::hotmail::gotSHA1URLSSOCB $url $id] 1
}
proc gotSHA1URLSSOCB {url id token} {
global HOME
set token [genToken $url [$token cget -ticket] [$token cget -proof] $id]
set page_data {<html><head></head>}
append page_data {<body onload="document.pform.submit(); "><form name="pform" action=}
append page_data "\"https://login.live.com/ppsecure/sha1auth.srf?lc=1033\""
append page_data {method="POST"><input type="hidden" name="token" value=}
append page_data "\"$token\""
append page_data {>}
append page_data {<noscript>}
append page_data "[trans nojavascript]"
append page_data {<br /> <br /> <input type="submit" value=}
append page_data "\"[trans redirect]\""
append page_data {/></noscript>}
append page_data {</form></body></html>}
if { [OnUnix] } {
set file_id [open "[file join ${HOME} hotlog.htm]" w 00600]
} else {
set file_id [open "[file join ${HOME} hotlog.htm]" w]
}
puts $file_id $page_data
close $file_id
if { [OnDarwin] } {
launch_browser [file join ${HOME} hotlog.htm] 1
} else {
launch_browser "file://${HOME}/hotlog.htm" 1
}
}
proc gotURL {main_url {post_url "https://loginnet.passport.com/ppsecure/md5auth.srf?lc=1033"} {id 2}} {
# Use sha1auth as it will probably work just as good as this one but will likely fix
# the issue of some people getting redirected to the wrong page when trying to view their profile...
return [gotSHA1URL $main_url $id]
global HOME password
set fd [open "hotmlog.htm" r]
set page_data [read $fd]
close $fd
#Here we calculate the creds and fields in the web page
set site $post_url
set url $main_url
set d(valid) Y
::abook::getDemographics d
set email [::config::getKey login]
set login [lindex [split $email "@"] 0]
# This was to launch the URL directly without auth for hotmail and msn users,
# but there are other accounts now like @live.com that need this
# problem is that non hotmail/msn/live users will get the http://cgi-bin/Hotmail page
# which will just not work. So now every URL goes through the msn auth server.
#if {![string match *@hotmail.* $email ] && ![string match *@msn.* $email ]} {
# launch_browser $main_url
# return
#}
set kv $d(kv)
set sl [expr {[clock seconds] - $d(sessionstart)}]
set sid $d(sid)
set auth $d(mspauth)
set tomd5 $auth$sl$password
set creds [::md5::md5 $tomd5]
#Now let's substitute the $vars in hotmlog.htm
set page_data [subst -nocommands -nobackslashes $page_data]
if { [OnUnix] } {
set file_id [open "[file join ${HOME} hotlog.htm]" w 00600]
} else {
set file_id [open "[file join ${HOME} hotlog.htm]" w]
}
puts $file_id $page_data
close $file_id
if { [OnDarwin] } {
launch_browser [file join ${HOME} hotlog.htm] 1
} else {
launch_browser "file://${HOME}/hotlog.htm" 1
}
}
proc viewProfile {user_login} {
gotURL "http://members.msn.com/default.msnw?mem=${user_login}&pgmarket="
}
proc composeMail { toaddr} {
::MSN::WriteSB ns URL "COMPOSE $toaddr"
}
proc hotmail_profile {} {
::MSN::WriteSB ns URL "PROFILE 0x0409"
}
proc hotmail_login {} {
::MSN::WriteSB ns URL INBOX
}
proc hotmail_changeAccountInfo {} {
::MSN::WriteSB ns URL "PERSON 0x0409"
}
proc hotmail_changeMobile {} {
::MSN::WriteSB ns URL CHGMOB
}
proc QPDecode {str} {
#New version, no need of url_unmap
set begin 0
set end [string first "=" $str $begin]
set decode ""
while { $end >=0 } {
set decode "${decode}[string range $str $begin [expr {$end-1}]]"
set carval [format %d 0x[string range $str [expr {$end+1}] [expr {$end+2}]]]
if {$carval > 128} {
set carval [expr { $carval - 0x100 }]
}
set car [binary format c $carval]
set decode "${decode}$car"
set begin [expr {$end+3}]
set end [string first "=" $str $begin]
}
set decode ${decode}[string range $str $begin [string length $str]]
}
proc decode_from_field { from } {
set from [string map {"\r" ""} $from]
set from_list [split $from "?"]
if { [llength $from_list] == 1 } {
return $from
}
set encoding [string tolower [lindex $from_list 1]]
set sender [string map {"_" " " "= " ""} [join [lrange $from_list 3 end]]]
set sender [::hotmail::QPDecode $sender]
if { [catch {set sender [encoding convertfrom $encoding $sender]}]} {
status_log "decode_from_field: Wrong encoding - $encoding\n" red
return $sender
}
return $sender
}
proc handleMailData { mailData } {
if {$mailData == "too-large" } {
status_log "Mail-Data is too large, retreiving it via SOAP..."
::MSNOIM::getMailData "::hotmail::handleMailData"
} elseif { [catch {set mailList [xml2list $mailData]} ] == 0 } {
set oim_count 0
set oim_messages [list]
while { 1 } {
set oim_message [GetXmlEntry $mailList ":MD:M:I" $oim_count]
if { $oim_message == "" } {
break
}
set from [GetXmlEntry $mailList ":MD:M:E" $oim_count]
set nick [GetXmlEntry $mailList ":MD:M:N" $oim_count]
# When we receive the notification while being signed in (appear offline for example) the base64
# has a space in the end (probably a bug in the server) so we remove it here ot make it 'normal'
if { [string range $nick end-2 end] == " ?=" } {
set nick [string range $nick 0 end-3]
append nick "?="
}
set oim [list $from $nick $oim_message]
lappend oim_messages $oim
incr oim_count
}
if { $oim_count > 0 } {
after 0 [list ::hotmail::askReadReceivedOIMs $oim_count $oim_messages]
}
} else {
status_log "Mail-Data is invalid : $mailData"
}
}
proc askReadReceivedOIMs { oim_count oim_messages } {
if {[config::getKey no_oim_confirmation 0] == 1 } {
set answer "yes"
} else {
set answerAndRemember [::amsn::customMessageBox \
[trans receivedoimread $oim_count] yesno {} [trans newoim] {} 1]
set answer [lindex $answerAndRemember 0]
set remember [lindex $answerAndRemember 1]
# we only remember if they want to read OIM's.
if { $answer == "yes" && $remember == 1} {
::config::setKey no_oim_confirmation 1
}
}
if { $answer == "yes" } {
::OIM_GUI::MessagesReceived $oim_messages
}
}
proc hotmail_procmsg {message} {
global password
#Nuevo by AIM
set content [lindex [split [$message getHeader Content-Type] ";"] 0 ]
# set message [Message create %AUTO%]
# $message createFromPayload "[$msg getBody]\r\n"
switch $content {
"text/x-msmsgsinitialmdatanotification" {
#Number of unread messages in inbox
set mailData [$message getField Mail-Data]
if { [catch {set mailList [xml2list $mailData]} ] == 0 } {
set inbox [GetXmlEntry $mailList ":MD:E:I"]
# string range $mailData [expr {[string first <I> $mailData]+3}] [expr {[string first </I> $mailData] -1}]]
set inboxUnread [GetXmlEntry $mailList ":MD:E:IU"]
# [string range $mailData [expr {[string first <IU> $mailData]+4}] [expr {[string first </IU> $mailData] -1}]]
#Get the URL of inbox directory in hotmail
set msgurl [$message getField Inbox-URL]
status_log "Hotmail: $inboxUnread unread emails\n"
#Remember the number of unread mails in inbox and create a notify window if necessary
if { [string length $inboxUnread] > 0 && $inboxUnread != 0} {
::hotmail::setUnreadMessages $inboxUnread
::hotmail::emptyFroms
cmsn_draw_online 0 1
if { [::config::getKey notifyemail] == 1} {
::amsn::notifyAdd "[trans newmail $inboxUnread\($inbox\)]" \
[list ::hotmail::gotURL $msgurl] newemail email
}
}
#Number of unread messages in other folders
# set mailData [$message getField Mail-Data]
set folder [GetXmlEntry $mailList ":MD:E:O"]
# [string range $mailData [expr {[string first <O> $mailData]+3}] [expr {[string first </O> $mailData] -1}]]
set folderUnread [GetXmlEntry $mailList ":MD:E:OU"]
#[string range $mailData [expr {[string first <OU> $mailData]+4}] [expr {[string first </OU> $mailData] -1}]]
#URL of folder directory in Hotmail
set msgurl [$message getField Folders-URL]
status_log "Hotmail: $folderUnread unread emails in others folders \n"
#If the pref notifyemail is active and more than 0 email unread, show a notify on connect
if { [::config::getKey notifyemailother] == 1 && [string length $folderUnread] > 0 && $folderUnread != 0 } {
::amsn::notifyAdd "[trans newmailfolder $folderUnread\($folder\)]" \
[list ::hotmail::gotURL $msgurl] newemail email
}
}
handleMailData $mailData
}
"text/x-msmsgsemailnotification" {
if {[set from [$message getField From]] != ""} {
set fromaddr [$message getField From-Addr]
if {[catch {set from [::hotmail::decode_from_field $from]} res]} {
status_log "Fail to decode from field: $res\n" res
set from $fromaddr
}
set posturl [$message getField Post-URL]
set id [$message getField id]
set msgurl [$message getField Message-URL]
status_log "Hotmail: New mail from $from - $fromaddr\n"
set dest [$message getField Dest-Folder]
if {$dest == "ACTIVE"} {
::hotmail::setUnreadMessages [expr { [::hotmail::unreadMessages] + 1}]
::hotmail::addFrom $from $fromaddr
cmsn_draw_online 0 1
set evPar(from) from
set evPar(fromaddr) fromaddr
::plugins::PostEvent newmail evPar
if { [::config::getKey notifyemail] == 1 } {
::amsn::notifyAdd "[trans newmailfrom $from $fromaddr]" \
[list ::hotmail::gotURL $msgurl $posturl $id] newemail email
}
} else {
set evPar(from) from
set evPar(fromaddr) fromaddr
::plugins::PostEvent newmailother evPar
if { [::config::getKey notifyemailother] == 1 } {
::amsn::notifyAdd "[trans newmailfromother $from $fromaddr]" \
[list ::hotmail::gotURL $msgurl $posturl $id] newemail email
}
}
}
::log::event email $from
}
"text/x-msmsgsinitialemailnotification" {
#Get the number of unread messages obsolete by MSNP11
#Number of unread messages in inbox
set noleidos [$message getField Inbox-Unread]
#Get the URL of inbox directory in hotmail
set msgurl [$message getField Inbox-URL]
status_log "Hotmail: $noleidos unread emails\n"
#Remember the number of unread mails in inbox and create a notify window if necessary
if { [string length $noleidos] > 0 && $noleidos != 0} {
::hotmail::setUnreadMessages $noleidos
::hotmail::emptyFroms
cmsn_draw_online 0 1
if { [::config::getKey notifyemail] == 1} {
::amsn::notifyAdd "[trans newmail $noleidos]" \
"::hotmail::hotmail_login" newemail email
}
}
#Number of unread messages in other folders
set folderunread [$message getField Folders-Unread]
#URL of folder directory in Hotmail
set msgurl [$message getField Folders-URL]
status_log "Hotmail: $folderunread unread emails in others folders \n"
#If the pref notifyemail is active and more than 0 email unread, show a notify on connect
if { [::config::getKey notifyemailother] == 1 && [string length $folderunread] > 0 && $folderunread != 0 } {
::amsn::notifyAdd "[trans newmailfolder $folderunread]" \
[list ::hotmail::gotURL $msgurl] newemail email
}
}
"text/x-msmsgsactivemailnotification" {
set source [$message getField Src-Folder]
set dest [$message getField Dest-Folder]
set delta [$message getField Message-Delta]
if { $source == "ACTIVE" } {
set unread [expr {[::hotmail::unreadMessages] - $delta}]
::hotmail::emptyFroms
if { $unread < 0 } {
status_log "number of unread hotmail messages is $unread, setting to 0\n" red
set unread 0
}
} elseif {$dest == "ACTIVE"} {
set unread [expr {[::hotmail::unreadMessages] + $delta}]
} else {
set unread [::hotmail::unreadMessages]
}
status_log "Hotmail num of messages changed: $unread unread emails\n"
if { [string length $unread] > 0 } {
::hotmail::setUnreadMessages $unread
cmsn_draw_online 0 1
}
}
"text/x-msmsgsoimnotification" {
handleMailData [$message getField Mail-Data]
}
}
#End by AIM
# dock mail icon
send_dock "MAIL" [::hotmail::unreadMessages]
status_log "hotmail_procmsg: Finishing\n"
}
}
|