HomeSearchFiles
User Control Panel
Advertisements

HELP US, HELP YOU!

Sending Winks

 
Post new topic   Reply to topic    Bot Depot Forum Index -> MSN Protocol
View unanswered posts
Author Message
Teario
Member
Member


Joined: 25 Jun 2004
Posts: 130
Location: Liverpool(home) or Derby(uni), UK
Reputation: 59.8
votes: 3
PostPosted: Sun Jul 02, 2006 2:03 am    Post subject: Sending Winks Reply with quote
I have been trying to get my bot to send winks, but so far have had no luck. I created a sub that I was working on in order to have the winks send on request, which is really a merger of the create_msn_object and the sendMessage subs that already exist.

This is a far as I got:
Code:
sub sendWink
{
   my $self = shift;

    # Compile the object from its keys + sha1d
    my $object = 'Creator="'  . $self->{Msn}->{Handle} . '" ' .
                 'Size="23427" ' .
                 'Type="8" '  .
                 'Location="TFR129.dat" ' .
                 'Friendly="UwBpAGwAbAB5ACAARgBhAGMAZQAAAA==" ' .
                 'SHA1D="lnHW2s0zHIsgKVjOiirk1ZBZ54g=" ';
                
    # SHA1C - this is a checksum of all the key value pairs
    my $sha1c = $object =~ s/(\"=\s)*//g;
    $sha1c = sha1_base64( $sha1c ) . '=';

    # Put it all in its nice msnobj wrapper.
    $object = '<msnobj ' . $object . 'SHA1C=" ' . $sha1c . '" . stamp="MIIInQYJKoZIhvcNAQcCoIIIjjCCCIoCA"/>';
   my $chunks = ceil(length( $object ) / 1400);

   if( length $object )
   {
      my $header = "MIME-Version: 1.0\r\n".
                             "Content-Type: text/x-msnmsgr-datacast\r\n";

      #if($chunks > 1)
      #{
         for (my $chunk = 0; $chunk < $chunks; $chunk++)
         {
            if($chunk == 0)
            {
               $header .= "Message-ID: {4A6C11B4-EF05-475F-B3D5-3F25F79EEBC9}\r\n".
               "Chunks: $chunks\r\n\r\nID: 2\r\n";
            }
            else
            {
               $header = "Message-ID: {4A6C11B4-EF05-475F-B3D5-3F25F79EEBC9}\r\n".
               "Chunk: $chunk\r\n\r\n";
            }
            $header .= substr($object, $chunk * 1400, 1400) . "\r\n";
            $self->sendraw('MSG', 'N '.length($header). "\r\n" . $header);
         };
      #}
      #else{}
   }
}
NOTE: the stamp is actually a LOT longer, I truncated it for easier reading

When this sub is called though, nothing happens. No errors, and no winks. I have been sending winks and packet sniffing all day and I still cant figure it out. The data in the sub is for the "Silly Face" wink.

I have had a look at Siebes msn object and wink documentation and still cant figure it out. The winks doc said to send it in the same way a DP is sent, but the site it linked to for help on that wasnt there any more.

If anyone has gotten winks working and could give me a hint, or can give any pointers on where I am going wrong, I would much apreciate it.
Back to top
Display posts from previous:   
Post new topic   Reply to topic    Bot Depot Forum Index -> MSN Protocol All times are GMT
Page 1 of 1

 



Protected by phpBB Security phpBB-TweakS
phpBB Security Has Blocked 9 Exploit Attempts.
Antispam Captcha Mod by phpbb-security.com
Powered by phpBB © 2001, 2005 phpBB Group