AnyEvent-MSN

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

                    AnyEvent          => '5.31',
                    'AnyEvent::HTTP'  => '2.1',
                    'MIME::Base64'    => '3.13',
                    'Moose'           => '2.0002',
                    'Try::Tiny'       => '0.09',
                    'XML::Twig'       => '3.38',
                    'Digest::HMAC'    => '1.02',
                    'Digest::SHA'     => '5.61',
                    'Digest::MD5'     => '2.51',
                    'Crypt::CBC'      => '2.30',
                    'Crypt::DES'      => '2.05',
                    'Crypt::DES_EDE3' => '0.01'
       },
       recursive_test_files => 1,
       meta_merge           => {
           keywords    => [qw[MSN client MSNP21 IM instant message Windows Live Messenger WLM]],
           resources => {
               bugtracker => 'http://github.com/sanko/anyevent-msn/issues',
               repository => 'http://github.com/sanko/anyevent-msn/',
               ChangeLog  => 'http://github.com/sanko/anyevent-msn/commits',
               license => 'http://www.perlfoundation.org/artistic_license_2_0'
           }

META.json  view on Meta::CPAN

      "configure" : {
         "requires" : {
            "Module::Build" : "0.38"
         }
      },
      "runtime" : {
         "requires" : {
            "AnyEvent" : "5.31",
            "AnyEvent::HTTP" : "2.1",
            "Crypt::CBC" : "2.30",
            "Crypt::DES" : "2.05",
            "Crypt::DES_EDE3" : "0.01",
            "Digest::HMAC" : "1.02",
            "Digest::MD5" : "2.51",
            "Digest::SHA" : "5.61",
            "MIME::Base64" : "3.13",
            "Moose" : "2.0002",
            "Try::Tiny" : "0.09",
            "XML::Twig" : "3.38",
            "perl" : "5.012"
         }
      }

META.yml  view on Meta::CPAN

  AnyEvent::MSN::Protocol:
    file: lib/AnyEvent/MSN/Protocol.pm
    version: 0.002
  AnyEvent::MSN::Types:
    file: lib/AnyEvent/MSN/Types.pm
    version: 0.002
requires:
  AnyEvent: 5.31
  AnyEvent::HTTP: 2.1
  Crypt::CBC: 2.30
  Crypt::DES: 2.05
  Crypt::DES_EDE3: 0.01
  Digest::HMAC: 1.02
  Digest::MD5: 2.51
  Digest::SHA: 5.61
  MIME::Base64: 3.13
  Moose: 2.0002
  Try::Tiny: 0.09
  XML::Twig: 3.38
  perl: 5.012
resources:
  bugtracker: http://github.com/sanko/anyevent-msn/issues

lib/AnyEvent/MSN/Protocol.pm  view on Meta::CPAN

    # 5. Create 8 bytes of random data as iv
    $iv //= Crypt::CBC->random_bytes(8);

    # 6. TripleDES CBC encryption
    my $encrypted_data =
        Crypt::CBC->new(-literal_key => 1,
                        -key         => $key3,
                        -iv          => $iv,
                        -header      => 'none',
                        -cipher      => 'Crypt::DES_EDE3'
        )->encrypt($p_nonce);

    # 7. Fill in the struct
    my $struct = pack 'I7 A8 A20 A72', 28, 1, 0x6603, 0x8004, 8, 20, 72,
        $iv,
        $hash, $encrypted_data;

    # 8 Base64 encode struct
    MIME::Base64::encode_base64($struct, '');
}