em-msn 0.1

data/lib/em-msn.rb

@@ -0,0 +1,25 @@
+module Msn
+  ApplicationId = "CFE80F9D-180F-4399-82AB-413F33A1FA11"
+end
+
+require 'eventmachine'
+require 'rest-client'
+require 'fiber'
+require 'cgi'
+require 'guid'
+require 'base64'
+require 'digest/md5'
+require 'digest/hmac'
+require 'erb'
+require "nokogiri"
+require 'rexml/text'
+
+require_relative 'msn/authentication_error'
+require_relative 'msn/protocol'
+require_relative 'msn/message'
+require_relative 'msn/contact'
+require_relative 'msn/nexus'
+require_relative 'msn/challenge'
+require_relative 'msn/notification_server'
+require_relative 'msn/switchboard'
+require_relative 'msn/messenger'

data/lib/msn/authentication_error.rb

@@ -0,0 +1,2 @@
+class Msn::AuthenticationError < StandardError
+end

data/lib/msn/challenge.rb

@@ -0,0 +1,47 @@
+class Msn::Challenge
+  ProductKey = "RG@XY*28Q5QHS%Q5"
+  ProductId = "PROD0113H11T8$X_"
+  F = "0x7FFFFFFF".to_i(16)
+  E = "0x0E79A9C1".to_i(16)
+
+  class << self
+    def challenge(challenge, product_key = ProductKey, product_id = ProductId)
+      md5hash = Digest::MD5.hexdigest "#{challenge}#{product_key}"
+      md5array = md5hash.scan(/.{8}/)
+      new_hash_parts = md5array.map! { |s| s.scan(/.{2}/).reverse.join.to_i(16) }
+      md5array = new_hash_parts.map { |n| n & F }
+
+      chlstring = "#{challenge}#{product_id}"
+      chlstring = "#{chlstring}#{'0' * (8 - chlstring.length % 8)}"
+
+      chlstring_array = chlstring.scan(/.{4}/)
+      chlstring_array.map! { |str| str.bytes.map { |b| b.to_s(16) }.reverse.join.to_i(16) }
+
+      low = high = 0
+
+      i = 0
+      while i < chlstring_array.length
+        temp = (md5array[0] * (((E * chlstring_array[i]) % F) + high) + md5array[1]) % F
+        high = (md5array[2] * ((chlstring_array[i + 1] + temp) % F) + md5array[3]) % F
+        low = low + high + temp;
+
+        i += 2
+      end
+
+      high = (high + md5array[1]) % F
+      low = (low + md5array[3]) % F
+      key = (high << 32) + low
+
+      new_hash_parts[0] ^= high;
+      new_hash_parts[1] ^= low;
+      new_hash_parts[2] ^= high;
+      new_hash_parts[3] ^= low;
+
+      new_hash_parts.map do |num| 
+        str = num.to_s(16)
+        str = "#{'0' * (8 - str.length)}#{str}" if str.length != 8
+        str.scan(/.{2}/).reverse.join
+      end.join
+    end
+  end
+end

data/lib/msn/contact.rb

@@ -0,0 +1,32 @@
+class Msn::Contact
+  attr_accessor :email
+  attr_accessor :display_name
+  attr_accessor :allow
+  attr_accessor :block
+  attr_accessor :reverse
+  attr_accessor :pending
+
+  def initialize(email, display_name = nil)
+    @email = email
+    @display_name = display_name
+  end
+
+  def to_s
+    if display_name && display_name.length > 0
+      str = "#{display_name} <#{email}>"
+    else
+      str = "#{email}"
+    end
+    if allow || reverse || pending
+      str << ' ('
+      pieces = []
+      pieces << 'allow' if allow
+      pieces << 'block' if block
+      pieces << 'reverse' if reverse
+      pieces << 'pending' if pending
+      str << pieces.join(', ')
+      str << ')'
+    end
+    str
+  end
+end

data/lib/msn/message.rb

@@ -0,0 +1,11 @@
+class Msn::Message
+  attr_accessor :email
+  attr_accessor :display_name
+  attr_accessor :text
+
+  def initialize(email, display_name, text)
+    @email = email
+    @display_name = display_name
+    @text = text
+  end
+end

data/lib/msn/messenger.rb

@@ -0,0 +1,118 @@
+class Msn::Messenger
+  attr_reader :username
+  attr_reader :password
+
+  def initialize(username, password)
+    @username = username
+    @password = password
+  end
+
+  def connect
+    @notification_server = EM.connect 'messenger.hotmail.com', 1863, Msn::NotificationServer, self
+  end
+
+  def set_online_status(status)
+    case status
+    when :available, :online
+      @notification_server.chg "NLN", 0
+    when :busy
+      @notification_server.chg "BSY", 0
+    when :idle
+      @notification_server.chg "IDL", 0
+    when :brb, :be_right_back
+      @notification_server.chg "BRB", 0
+    when :away
+      @notification_server.chg "AWY", 0
+    when :phone, :on_the_phone
+      @notification_server.chg "PHN", 0
+    when :lunch, :out_to_lunch
+      @notification_server.chg "LUN", 0
+    else
+      raise "Wrong online status: #{status}"
+    end
+  end
+
+  def add_contact(email)
+    send_contact_command email, 'ADL', '1'
+  end
+
+  def remove_contact(email)
+    send_contact_command email, 'RML', '1'
+  end
+
+  def block_contact(email)
+    send_contact_command email, 'RML', '2'
+  end
+
+  def unblock_contact(email)
+    send_contact_command email, 'ADL', '2'
+  end
+
+  def get_contacts
+    @notification_server.get_contacts
+  end
+
+  def send_contact_command(email, command, list)
+    username, domain = email.split '@', 2
+    @notification_server.send_payload_command_and_wait command, %Q(<ml><d n="#{domain}"><c n="#{username}" t="1" l="#{list}" /></d></ml>)
+  end
+
+  def on_ready(&handler)
+    @on_ready_handler = handler
+  end
+
+  def on_login_failed(&handler)
+    @on_login_failed = handler
+  end
+
+  def on_disconnect(&handler)
+    @on_disconnect = handler
+  end
+
+  def on_message(&handler)
+    @on_message_handler = handler
+  end
+
+  def on_contact_request(&handler)
+    @on_contact_request = handler
+  end
+
+  def send_message(email, text)
+    @notification_server.send_message email, text
+  end
+
+  def accept_message(message)
+    call_handler @on_message_handler, message
+  end
+
+  def contact_request(email, display_name)
+    call_handler @on_contact_request, email, display_name
+  end
+
+  def ready
+    call_handler @on_ready_handler
+  end
+
+  def login_failed(message)
+    call_handler @on_login_failed, message
+  end
+
+  def disconnected
+    call_handler @on_disconnect
+  end
+
+  def call_handler(handler, *args)
+    if handler
+      Fiber.new { handler.call(*args) }.resume
+    end
+  end
+
+  def self.debug
+    @debug
+  end
+
+  def self.debug=(debug)
+    @debug = debug
+  end
+end
+

data/lib/msn/nexus.rb

@@ -0,0 +1,101 @@
+class Msn::Nexus
+  attr_reader :messenger
+  attr_reader :policy
+  attr_reader :nonce
+
+  Namespaces = {
+    "wsse" => "http://schemas.xmlsoap.org/ws/2003/06/secext",
+    "wst" => "http://schemas.xmlsoap.org/ws/2004/04/trust",
+    "wsp" => "http://schemas.xmlsoap.org/ws/2002/12/policy",
+    "wsa" => "http://schemas.xmlsoap.org/ws/2004/03/addressing",
+    "S" => "http://schemas.xmlsoap.org/soap/envelope/",
+  }
+
+  def initialize(messenger, policy, nonce)
+    @messenger = messenger
+    @policy = policy
+    @nonce = nonce
+  end
+
+  def sso_token
+    fetch_data
+    @sso_token
+  end
+
+  def ticket_token
+    fetch_data
+    @ticket_token
+  end
+
+  def secret
+    fetch_data
+    @secret
+  end
+
+  def fetch_data
+    return if @fetched_data
+    @fetched_data = true
+
+    @sso_token, secret, @ticket_token = get_binary_secret messenger.username, messenger.password
+
+    @secret = compute_return_value secret
+  end
+
+  def get_binary_secret(username, password)
+    msn_sso_template_file = File.expand_path('../soap/msn_sso_template.xml', __FILE__)
+    msn_sso_template = ERB.new File.read(msn_sso_template_file)
+    soap = msn_sso_template.result(binding)
+
+    response = RestClient.post "https://login.live.com/RST.srf", soap
+
+    xml = Nokogiri::XML(response)
+
+    # Check invalid login
+    fault = xml.xpath("//S:Fault/faultstring")
+    if fault
+      raise Msn::AuthenticationError.new(fault.text)
+    end
+
+    rstr = xml.xpath "//wst:RequestSecurityTokenResponse[wsp:AppliesTo/wsa:EndpointReference/wsa:Address='messengerclear.live.com']", Namespaces
+    token = rstr.xpath("wst:RequestedSecurityToken/wsse:BinarySecurityToken[@Id='Compact1']", Namespaces).first.text
+    secret = rstr.xpath("wst:RequestedProofToken/wst:BinarySecret", Namespaces).first.text
+
+    rstr2 = xml.xpath "//wst:RequestSecurityTokenResponse[wsp:AppliesTo/wsa:EndpointReference/wsa:Address='contacts.msn.com']", Namespaces
+    ticket_token = rstr2.xpath("wst:RequestedSecurityToken/wsse:BinarySecurityToken[@Id='Compact2']", Namespaces).first.text
+
+    [token, secret, ticket_token]
+  end
+
+  def compute_return_value(binary_secret, iv = Random.new.bytes(8))
+    key1 = Base64.decode64 binary_secret
+
+    key2 = compute_key key1, "WS-SecureConversationSESSION KEY HASH"
+    key3 = compute_key key1, "WS-SecureConversationSESSION KEY ENCRYPTION"
+
+    hash = sha1_hmac key2, @nonce
+
+    nonce = "#{@nonce}#{8.chr * 8}"
+
+    des = OpenSSL::Cipher::Cipher.new("des-ede3-cbc")
+    des.encrypt
+    des.iv = iv
+    des.key = key3
+    encrypted_data = des.update(nonce) + des.final
+
+    final = [28, 1, 0x6603, 0x8004, 8, 20, 72, iv, hash, encrypted_data].pack "L<L<L<L<L<L<L<A8A20A72"
+    Base64.strict_encode64 final
+  end
+
+  def compute_key(key, hash)
+    hash1 = sha1_hmac(key, hash)
+    hash2 = sha1_hmac(key, "#{hash1}#{hash}")
+    hash3 = sha1_hmac(key, hash1)
+    hash4 = sha1_hmac(key, "#{hash3}#{hash}")
+
+    "#{hash2}#{hash4[0 ... 4]}"
+  end
+
+  def sha1_hmac(data, key)
+    Digest::HMAC.digest(key, data, Digest::SHA1)
+  end
+end

data/lib/msn/notification_server.rb

@@ -0,0 +1,160 @@
+class Msn::NotificationServer < EventMachine::Connection
+  include Msn::Protocol
+
+  ContactsNamespace = {'ns' => 'http://www.msn.com/webservices/AddressBook'}
+
+  attr_reader :messenger
+  attr_reader :guid
+
+  def initialize(messenger)
+    @messenger = messenger
+    @guid = Guid.new.to_s
+    @switchboards = {}
+
+    on_event 'ADL' do |header, data|
+      data = Nokogiri::XML(data)
+      domain = data.xpath('//ml/d').first['n']
+      c = data.xpath('//ml/d/c').first
+      username = c['n']
+      display_name = c['f']
+      messenger.contact_request "#{username}@#{domain}", display_name
+    end
+  end
+
+  def username_guid
+    @username_guid ||= "#{messenger.username};{#{guid}}"
+  end
+
+  def send_message(email, text)
+    switchboard = @switchboards[email]
+    if switchboard
+      switchboard.send_message text
+    else
+      Fiber.new do
+        response = xfr "SB"
+        switchboard = create_switchboard email, response[3]
+        switchboard.on_event 'JOI' do
+          switchboard.clear_event 'JOI'
+          switchboard.send_message text
+        end
+        switchboard.usr username_guid, response[5]
+        switchboard.cal email
+      end.resume
+    end
+  end
+
+  def username
+    messenger.username
+  end
+
+  def password
+    messenger.password
+  end
+
+  def get_contacts
+    contacts = {}
+
+    xml = Nokogiri::XML(get_soap_contacts.body)
+    xml.xpath('//ns:Membership', ContactsNamespace).each do |membership|
+      role = membership.xpath('ns:MemberRole', ContactsNamespace).text
+      membership.xpath('ns:Members/ns:Member', ContactsNamespace).each do |member|
+        cid = member.xpath('ns:CID', ContactsNamespace).text
+        email = member.xpath('ns:PassportName', ContactsNamespace).text
+        display_name = member.xpath('ns:DisplayName', ContactsNamespace)
+
+        contact = contacts[cid] ||= Msn::Contact.new(email, display_name ? display_name.text : nil)
+        case role
+        when 'Allow' then contact.allow = true
+        when 'Block' then contact.block = true
+        when 'Reverse' then contact.reverse = true
+        when 'Pending' then contact.pending = true
+        end
+      end
+    end
+
+    contacts.values
+  end
+
+  def get_soap_contacts
+    msn_get_contacts_template_file = File.expand_path('../soap/msn_get_contacts_template.xml', __FILE__)
+    msn_get_contacts_template = ERB.new File.read(msn_get_contacts_template_file)
+    soap = msn_get_contacts_template.result(binding)
+
+    RestClient.post "https://local-bay.contacts.msn.com/abservice/SharingService.asmx", soap, {
+      'SOAPAction' => 'http://www.msn.com/webservices/AddressBook/FindMembership',
+      'Content-Type' => 'text/xml',
+    }
+  end
+
+  def post_init
+    super
+
+    login
+  end
+
+  def login
+    Fiber.new do
+      begin
+        ver "MSNP18", "CVR0"
+        cvr "0x0409", "winnt", "5.1", "i386", "MSNMSGR", "8.5.1302", "BC01", username
+        response = usr "SSO", "I", username
+        if response[0] == "XFR" && response[2] == "NS"
+          host, port = response[3].split ':'
+          @reconnect_host, @reconnect_port = response[3].split ':'
+          close_connection
+        else
+          login_to_nexus(response[4], response[5])
+        end
+      rescue Msn::AuthenticationError => ex
+        messenger.login_failed(ex.message)
+        close_connection
+      end
+    end.resume
+  end
+
+  def login_to_nexus(policy, nonce)
+    @nexus = Msn::Nexus.new self, policy, nonce
+
+    first_msg = true
+    on_event('MSG') do
+      if first_msg
+        first_msg = false
+        messenger.ready
+      end
+    end
+
+    on_event('RNG') do |header|
+      switchboard = create_switchboard header[5], header[2]
+      switchboard.ans username_guid, header[4], header[1]
+    end
+
+    response = usr "SSO", "S", @nexus.sso_token, @nexus.secret, guid
+    if response[2] != "OK"
+      raise Msn::AuthenticationError.new("Didn't receive OK from SSO")
+    end
+  end
+
+  def create_switchboard(email, host_and_port)
+    host, port = host_and_port.split(':')
+    switchboard = EM.connect host, port, Msn::Switchboard, messenger
+    switchboard.on_event 'BYE' do |header|
+      destroy_switchboard email if header[1] =~ /#{email}/
+    end
+    @switchboards[email] = switchboard
+  end
+
+  def destroy_switchboard(email)
+    switchboard = @switchboards.delete email
+    switchboard.close_connection if switchboard
+  end
+
+  def unbind
+    if @reconnect_host
+      reconnect @reconnect_host, @reconnect_port.to_i
+      @reconnect_host = @reconnect_port = nil
+      login
+    else
+      messenger.disconnected
+    end
+  end
+end

data/lib/msn/protocol.rb

@@ -0,0 +1,112 @@
+module Msn::Protocol
+  include EventMachine::Protocols::LineText2
+
+  def post_init
+    @trid = 1
+    @command_fibers = {}
+  end
+
+  def receive_line(line)
+    puts "<< #{line}" if Msn::Messenger.debug
+
+    pieces = line.split(' ')
+
+    case pieces[0]
+    when 'CHL'
+      answer_challenge pieces[2]
+    when 'RNG'
+      handle_event pieces
+    when 'MSG', 'NOT', 'GCF', 'UBX'
+      handle_payload_command pieces
+    when 'QRY'
+      # ignore
+    when 'ADL', 'RML'
+      if pieces[2] == 'OK'
+        handle_normal_command pieces
+      else
+        handle_payload_command pieces
+      end
+    else
+      handle_normal_command pieces
+    end
+  end
+
+  def handle_normal_command(pieces)
+    if fiber = @command_fibers.delete(pieces[1].to_i)
+      fiber.resume pieces
+    else
+      handle_event pieces
+    end
+  end
+
+  def handle_payload_command(pieces)
+    @header = pieces
+
+    size = pieces.last.to_i
+    set_binary_mode size
+  end
+
+  def receive_binary_data(data)
+    puts "<<* #{data}" if Msn::Messenger.debug
+
+    handle_event @header, data
+  end
+
+  def handle_event(header, data = nil)
+    return unless @event_handlers
+
+    handler = @event_handlers[header[0]]
+    if handler
+      Fiber.new do
+        handler.call header, data
+      end.resume
+    end
+  end
+
+  def answer_challenge(challenge_string)
+    send_payload_command "QRY", Msn::Challenge::ProductId, Msn::Challenge.challenge(challenge_string)
+  end
+
+  def send_command(command, *args)
+    @command_fibers[@trid] = Fiber.current
+
+    text = "#{command} #{@trid} #{args.join ' '}\r\n"
+    send_command_internal text
+
+    Fiber.yield
+  end
+
+  def send_payload_command(command, *args)
+    payload = args.pop
+    args.push payload.length
+    send_command_internal "#{command} #{@trid} #{args.join ' '}\r\n#{payload}"
+  end
+
+  def send_payload_command_and_wait(command, *args)
+    @command_fibers[@trid] = Fiber.current
+
+    send_payload_command command, *args
+
+    Fiber.yield
+  end
+
+  def send_command_internal(text)
+    puts ">> #{text}" if Msn::Messenger.debug
+    send_data text
+    @trid += 1
+  end
+
+  def on_event(kind, &block)
+    @event_handlers ||= {}
+    @event_handlers[kind] = block
+  end
+
+  def clear_event(kind)
+    @event_handlers.delete kind
+  end
+
+  def method_missing(name, *args)
+    send_command name.upcase, *args
+  end
+end
+

data/lib/msn/switchboard.rb

@@ -0,0 +1,23 @@
+class Msn::Switchboard < EventMachine::Connection
+  include Msn::Protocol
+
+  def initialize(messenger)
+    @messenger = messenger
+
+    on_event 'MSG' do |header, data|
+      email = header[1]
+      display_name = header[2]
+      head, body = data.split "\r\n\r\n", 2
+      headers = Hash[head.split("\r\n").map { |line| line.split ':', 2 }]
+
+      if headers['Content-Type'] =~ %r(text/plain)
+        @messenger.accept_message Msn::Message.new(email, display_name, body)
+      end
+    end
+  end
+
+  def send_message(text)
+    send_payload_command "MSG", "N", "MIME-Version: 1.0\r\nContent-Type: text/plain; charset=UTF-8\r\nUser-Agent: pidgin/2.10.5devel\r\nX-MMS-IM-Format: FN=Segoe%20UI; EF=; CO=0; PF=0; RL=0\r\n\r\n#{text}"
+  end
+end
+

data/lib/msn/version.rb

@@ -0,0 +1,3 @@
+module Msn
+  VERSION = "0.1"
+end

metadata

@@ -0,0 +1,137 @@
+--- !ruby/object:Gem::Specification
+name: em-msn
+version: !ruby/object:Gem::Version
+  version: '0.1'
+  prerelease: 
+platform: ruby
+authors:
+- Ary Borenszweig
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-11-07 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: eventmachine
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rest-client
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: nokogiri
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: guid
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '2.7'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '2.7'
+description: An MSN client for Ruby written on top of EventMachine
+email: aborenszweig@manas.com.ar
+executables: []
+extensions: []
+extra_rdoc_files:
+- README.md
+files:
+- lib/em-msn.rb
+- lib/msn/authentication_error.rb
+- lib/msn/message.rb
+- lib/msn/contact.rb
+- lib/msn/nexus.rb
+- lib/msn/messenger.rb
+- lib/msn/challenge.rb
+- lib/msn/notification_server.rb
+- lib/msn/protocol.rb
+- lib/msn/switchboard.rb
+- lib/msn/version.rb
+- README.md
+homepage: http://github.com/manastech/em-msn
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: MSN client (EventMachine + Ruby)
+test_files: []