首页 > 其他 > 详细

对Msn协议的一点点研究

时间：2015-12-03 22:42:35      阅读：473      评论：0      收藏：0      [点我收藏+]

这个也是好奇msn的协议还是2011年的时候写的, 就在网上找啊找啊, 可惜要不是不能用就是C++代码还有就是不完整, 到最后我也没弄成功,只到了下面这步就挂掉了......

登录成功
<=SBS 0 null
<=MSG Hotmail Hotmail 1261
=>BLP 8 BL
<=BLP 8 BL
=>ADL 9 11 <ml l="1"/>
断开与->64.4.44.92

现在公布出来吧, 代码写得不是很好, 有三个函数是改自某位老大的,不记得地方了,太久没碰了, 现在能不能用我都不知道了

 

[delphi] view plaincopy技术分享技术分享
 
  1. unit MSNClass;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Classes, SysUtils, IdTCPConnection, IdTCPClient,  
  7.   xmldom, XMLIntf, msxmldom, XMLDoc, ComObj, Variants, wcrypt2, Forms, CnDebug;  
  8.   
  9. type  
  10.   tagMSGUSRKEY = record  
  11.     uStructHeaderSize: ULONG;  
  12.     uCryptMode: ULONG;  
  13.     uCipherType: ULONG;  
  14.     uHashType: ULONG;  
  15.     uIVLen: ULONG;  
  16.     uHashLen: ULONG;  
  17.     uCipherLen: ULONG;  
  18.     aIVBytes: array[0..07] of Byte;  
  19.     aHashBytes: array[0..19] of Byte;  
  20.     aCipherBytes: array[0..71] of Byte;  
  21.   end;  
  22.   TMSGUSERKEY = tagMSGUSRKEY;  
  23.   PMSGUSERKEY = ^TMSGUSERKEY;  
  24. const  
  25.   STDKEYHDRSIZE = 12;  
  26.   cKeyStdHeader: array[0..11] of Byte = ($08, $02, $00, $00, $03, $66, $00, $00,  
  27.     $18, $00, $00, $00);  
  28.   
  29. type  
  30.   TMSN = class(TObject)  
  31.   private  
  32.     //FIdTcp: TIdTCPClient; {连接服务器和收发的}  
  33.     //FXML  : TXMLDocument; {xml文档处理}  
  34.   
  35.     FServer: string; //服务器地址  
  36.     FPort: Integer; //端口  
  37.   
  38.     FStream: TMemoryStream;  
  39.     FPassport_url: string; //密码登录地址  
  40.     FProtocol: string; //协议  
  41.     FBuildver: string; //编译版本号  
  42.     Fprod_key: string; //应该是个密题之类的  
  43.     Fprod_id: string;  
  44.     //Flogin_method: string;  //登录方式  
  45. //      Fclientid: DWORD;       //客户id  
  46.   
  47.     Fpassport_policy: string;  
  48.   
  49.     //FBinarySecurityToken:string;  
  50.     //FBinarySecret:string;  
  51.   
  52.     function HtmlSpecialChars(s: string): string;  
  53.   
  54.   public  
  55.     Fuser: string;  
  56.     Fpassword: string;  
  57.     FBinarySecurityToken: string;  
  58.     FBinarySecret: string;  
  59.   
  60.     constructor Create(UserName, PassWord: string);  
  61.     destructor Destroy; override;  
  62.   
  63.     function http_Get(url: PAnsiChar): string;  
  64.     function http_Post(url, Param: PAnsiChar): string;  
  65.     function http_Post2(url, Param: PAnsiChar): Boolean;  
  66.     function PostXMLFile(UserName, Password: string): string;  
  67.     function GetXMLFile: Boolean; //这里应试返回一个结构体  
  68.     function Get_passport_ticket: Boolean;  
  69.     function GetSSOKey(Nonce: string): string;  
  70.     function GenerateLoginBlob(key: string; Challenge: string): string;  
  71.   end;  
  72.   
  73. function CryptStringToBinary(pszString: PChar; cchString: DWORD; dwFlags: DWORD;  
  74.   pbBinary: PByte; pcbBinary: PDWORD; pdwSkip: PDWORD; pdwFlags: PDWORD): BOOL;  
  75.   stdcall; external CRYPT32 Name ‘CryptStringToBinaryA‘;  
  76. function CryptDuplicateKey(hKey: HCRYPTKEY; pdwReserved: PDWORD; dwFlags: DWORD;  
  77.   phKey: PHCRYPTKEY): BOOL; stdcall; external ADVAPI32 Name ‘CryptDuplicateKey‘;  
  78. function CryptBinaryToString(pbBinary: PByte; cbBinary: DWORD; dwFlags: DWORD;  
  79.   pszString: PChar; pcchString: PDWORD): BOOL; stdcall; external CRYPT32 Name  
  80.   ‘CryptBinaryToStringA‘;  
  81.   
  82. //function HMACHash(hProvider: HCRYPTPROV; hKey: HCRYPTKEY;HashAlgId: ALG_ID; pBytesOut: Pointer; dwLengthOut: DWORD; pBytesIn1: PByte; dwLengthIn1: DWORD; pBytesIn2: PByte; dwLengthIn2: DWORD):BooL;stdcall;external ‘MSNSSOKey.dll‘ Name ‘HMACHash‘;  
  83. //function DeriveLoginKey(key: PByte; dwKeySize: DWORD; magic:string; pOutBytes: PBYTE; dwOutLen: DWORD):BooL;stdcall;external ‘MSNSSOKey.dll‘ Name ‘DeriveLoginKey‘;  
  84.   
  85. implementation  
  86.   
  87. constructor TMSN.Create(UserName, PassWord: string);  
  88. begin  
  89.   CoInitializeEx(nil, 2); //nil, 2;  
  90.   Fuser := UserName;  
  91.   Fpassword := PassWord;  
  92.   //Client_Id := $7000800C;  
  93.   FServer := ‘messenger.hotmail.com‘;  
  94.   FPort := 1863;  
  95.   FPassport_url := ‘https://login.live.com/RST.srf‘;  
  96.   FProtocol := ‘MSNP15‘;  
  97.   FBuildver := ‘8.1.0178‘;  
  98.   Fprod_key := ‘PK}_A_0N_K%O?A9S‘;  
  99.   Fprod_id := ‘PROD0114ES4Z%Q5W‘;  
  100.   Fpassport_policy := ‘MBI_KEY_OLD‘;  
  101.   FStream := TMemoryStream.Create;  
  102.   
  103.   { 
  104.    messengerclear.live.com：用于msn的认证 
  105.    messenger.msn.com：msn网页认证 
  106.    contacts.msn.com：Contact server 的认证 
  107.    spaces.msn.com：msn spaces 的认证 
  108.   }  
  109. end;  
  110.   
  111. destructor TMSN.Destroy;  
  112. begin  
  113.   FStream.Free;  
  114.   //FreeAndNil(FXML);  
  115.   //FreeAndNil(FIdTcp);  
  116.   //FreeAndNil(FIdhtp);  
  117.   //FreeAndNil(FHandle);  
  118.   inherited;  
  119. end;  
  120.   
  121. (*转换特殊字符到html标记*)  
  122.   
  123. function TMSN.HtmlSpecialChars(s: string): string;  
  124. var  
  125.   TEMP: string;  
  126. begin  
  127.   TEMP := StringReplace(s, ‘&‘, ‘&‘, [rfReplaceAll]);  
  128.   TEMP := StringReplace(TEMP, ‘"‘, ‘"‘, [rfReplaceAll]);  
  129.   TEMP := StringReplace(TEMP, ‘‘‘‘, ‘‘‘, [rfReplaceAll]);  
  130.   TEMP := StringReplace(TEMP, ‘<‘, ‘<‘, [rfReplaceAll]);  
  131.   TEMP := StringReplace(TEMP, ‘>‘, ‘>‘, [rfReplaceAll]);  
  132.   Result := TEMP;  
  133. end;  
  134. (*post操作，保存为string*)  
  135.   
  136. function TMSN.http_Post(url, Param: PAnsiChar): string;  
  137. var  
  138.   PostVar: Variant;  
  139. begin  
  140.   Result := ‘‘;  
  141.   try  
  142.     PostVar := CreateOleObject(‘MSXML2.XMLHTTP‘);  
  143.     try  
  144.       PostVar.Open(‘POST‘, AnsiString(url), False);  
  145.       PostVar.SetRequestHeader(‘Accept‘, ‘text/html, */*‘);  
  146.       PostVar.SetRequestHeader(‘User-Agent‘,  
  147.         ‘Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)‘);  
  148.       PostVar.SetRequestHeader(‘Accept-Language‘, ‘zh-cn‘);  
  149.       PostVar.SetRequestHeader(‘Content-Type‘, ‘text/html‘);  
  150.       PostVar.SetRequestHeader(‘Connection‘, ‘keep-Alive‘);  
  151.       PostVar.Send(AnsiString(Param));  
  152.       //if ChrType = TO_ANSI then  
  153.       // Result := PAnsiChar(Utf8ToAnsi(PostVar.ResponseText))  
  154.       //else  
  155.       Result := AnsiString(PostVar.ResponseText);  
  156.     finally  
  157.       PostVar := Unassigned;  
  158.     end;  
  159.   except  
  160.     on E: Exception do  
  161.       Result := E.message;  
  162.   end;  
  163. end;  
  164. (*post操作，保存为流*)  
  165.   
  166. function TMSN.http_Post2(url, Param: PAnsiChar): Boolean;  
  167. var  
  168.   PostVar: Variant;  
  169.   s: PChar;  
  170. begin  
  171.   Result := False;  
  172.   try  
  173.     PostVar := CreateOleObject(‘MSXML2.XMLHTTP‘);  
  174.     FStream.Clear;  
  175.     try  
  176.       PostVar.Open(‘POST‘, AnsiString(url), False);  
  177.       PostVar.SetRequestHeader(‘Accept‘, ‘text/html, */*‘);  
  178.       PostVar.SetRequestHeader(‘User-Agent‘,  
  179.         ‘Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)‘);  
  180.       PostVar.SetRequestHeader(‘Accept-Language‘, ‘zh-cn‘);  
  181.       PostVar.SetRequestHeader(‘Content-Type‘, ‘text/html‘);  
  182.       PostVar.SetRequestHeader(‘Connection‘, ‘keep-Alive‘);  
  183.       PostVar.Send(AnsiString(Param));  
  184.       s := PChar(AnsiString(PostVar.ResponseText));  
  185.       FStream.Seek(0, soBeginning);  
  186.       FStream.Write(s^, Length(s));  
  187.   
  188.       Result := True;  
  189.     finally  
  190.       PostVar := Unassigned;  
  191.     end;  
  192.   except  
  193.     on E: Exception do  
  194.       OutputDebugString(PChar(E.Message));  
  195.     //Result := E.message;  
  196.   end;  
  197. end;  
  198. (*网络get*)  
  199.   
  200. function TMSN.http_Get(url: PAnsiChar): string;  
  201. var  
  202.   GetVar: Variant;  
  203. begin  
  204.   Result := ‘‘;  
  205.   try  
  206.     GetVar := CreateOleObject(‘MSXML2.XMLHTTP‘);  
  207.     try  
  208.       GetVar.Open(‘GET‘, AnsiString(url), False);  
  209.       GetVar.SetRequestHeader(‘Accept‘, ‘text/html, */*‘);  
  210.       GetVar.SetRequestHeader(‘User-Agent‘,  
  211.         ‘Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)‘);  
  212.       GetVar.SetRequestHeader(‘Accept-Language‘, ‘zh-cn‘);  
  213.       GetVar.SetRequestHeader(‘Content-Type‘, ‘text/html‘);  
  214.       GetVar.SetRequestHeader(‘Connection‘, ‘keep-Alive‘);  
  215.       GetVar.Send(‘‘);  
  216.       //if ChrType = TO_ANSI then  
  217.       // Result := PAnsiChar(Utf8ToAnsi(GetVar.ResponseText))  
  218.       //else  
  219.       Result := AnsiString(GetVar.ResponseText);  
  220.     finally  
  221.       GetVar := Unassigned;  
  222.     end;  
  223.   except  
  224.   
  225.   end;  
  226. end;  
  227. (*够造一个xml文档*)  
  228.   
  229. function TMSN.PostXMLFile(UserName, Password: string): string;  
  230. var  
  231.   Param: TStringList;  
  232. begin  
  233.   Result := ‘‘;  
  234.   Param := TStringList.Create;  
  235.   Param.Clear;  
  236.   try  
  237.     Param.Add(‘<?xml version="1.0" encoding="UTF-8" ?> ‘);  
  238.     Param.Add(‘<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/" xmlns:wsse="http://schemas.xmlsoap.org/ws/2003/06/secext" xmlns:saml="urn:oasis:names:tc:SAML:1.0:assertion" ‘);  
  239.     Param.Add(‘xmlns:wsp="http://schemas.xmlsoap.org/ws/2002/12/policy" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" ‘);  
  240.     Param.Add(‘xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/03/addressing" xmlns:wssc="http://schemas.xmlsoap.org/ws/2004/04/sc" xmlns:wst="http://schemas.xmlsoap.org/ws/2004/04/trust">‘);  
  241.     Param.Add(‘<Header>‘);  
  242.     Param.Add(‘<ps:AuthInfo xmlns:ps="http://schemas.microsoft.com/Passport/SoapServices/PPCRL" Id="PPAuthInfo">‘);  
  243.     Param.Add(‘  <ps:HostingApp>{7108E71A-9926-4FCB-BCC9-9A9D3F32E423}</ps:HostingApp> ‘);  
  244.     Param.Add(‘  <ps:BinaryVersion>4</ps:BinaryVersion> ‘);  
  245.     Param.Add(‘  <ps:UIVersion>1</ps:UIVersion> ‘);  
  246.     Param.Add(‘  <ps:Cookies /> ‘);  
  247.     Param.Add(‘  <ps:RequestParams>AQAAAAIAAABsYwQAAAAyMDUy</ps:RequestParams> ‘);  
  248.     Param.Add(‘  </ps:AuthInfo>‘);  
  249.     Param.Add(‘<wsse:Security>‘);  
  250.     Param.Add(‘<wsse:UsernameToken Id="user">‘);  
  251.     Param.Add(‘  <wsse:Username>‘ + UserName + ‘</wsse:Username> ‘);  
  252.     Param.Add(‘  <wsse:Password>‘ + Password + ‘</wsse:Password> ‘);  
  253.     Param.Add(‘  </wsse:UsernameToken>‘);  
  254.     Param.Add(‘  </wsse:Security>‘);  
  255.     Param.Add(‘  </Header>‘);  
  256.     Param.Add(‘<Body>‘);  
  257.     Param.Add(‘<ps:RequestMultipleSecurityTokens xmlns:ps="http://schemas.microsoft.com/Passport/SoapServices/PPCRL" Id="RSTS">‘);  
  258.     Param.Add(‘<wst:RequestSecurityToken Id="RST0">‘);  
  259.     Param.Add(‘  <wst:RequestType>http://schemas.xmlsoap.org/ws/2004/04/security/trust/Issue</wst:RequestType> ‘);  
  260.     Param.Add(‘<wsp:AppliesTo>‘);  
  261.     Param.Add(‘<wsa:EndpointReference>‘);  
  262.     Param.Add(‘  <wsa:Address>http://Passport.NET/tb</wsa:Address> ‘);  
  263.     Param.Add(‘  </wsa:EndpointReference>‘);  
  264.     Param.Add(‘  </wsp:AppliesTo>‘);  
  265.     Param.Add(‘  </wst:RequestSecurityToken>‘);  
  266.     Param.Add(‘<wst:RequestSecurityToken Id="RST1">‘);  
  267.     Param.Add(‘  <wst:RequestType>http://schemas.xmlsoap.org/ws/2004/04/security/trust/Issue</wst:RequestType> ‘);  
  268.     Param.Add(‘<wsp:AppliesTo>‘);  
  269.     Param.Add(‘<wsa:EndpointReference>‘);  
  270.     Param.Add(‘  <wsa:Address>messengerclear.live.com</wsa:Address> ‘);  
  271.     Param.Add(‘  </wsa:EndpointReference>‘);  
  272.     Param.Add(‘  </wsp:AppliesTo>‘);  
  273.     Param.Add(‘  <wsse:PolicyReference URI="MBI_KEY_OLD" /> ‘);  
  274.     Param.Add(‘  </wst:RequestSecurityToken>‘);  
  275.     Param.Add(‘<wst:RequestSecurityToken Id="RST2">‘);  
  276.     Param.Add(‘  <wst:RequestType>http://schemas.xmlsoap.org/ws/2004/04/security/trust/Issue</wst:RequestType> ‘);  
  277.     Param.Add(‘<wsp:AppliesTo>‘);  
  278.     Param.Add(‘<wsa:EndpointReference>‘);  
  279.     Param.Add(‘  <wsa:Address>messenger.msn.com</wsa:Address> ‘);  
  280.     Param.Add(‘  </wsa:EndpointReference>‘);  
  281.     Param.Add(‘  </wsp:AppliesTo>‘);  
  282.     Param.Add(‘  <wsse:PolicyReference URI="?id=507" /> ‘);  
  283.     Param.Add(‘  </wst:RequestSecurityToken>‘);  
  284.     Param.Add(‘<wst:RequestSecurityToken Id="RST3">‘);  
  285.     Param.Add(‘  <wst:RequestType>http://schemas.xmlsoap.org/ws/2004/04/security/trust/Issue</wst:RequestType> ‘);  
  286.     Param.Add(‘<wsp:AppliesTo>‘);  
  287.     Param.Add(‘<wsa:EndpointReference>‘);  
  288.     Param.Add(‘  <wsa:Address>contacts.msn.com</wsa:Address> ‘);  
  289.     Param.Add(‘  </wsa:EndpointReference>‘);  
  290.     Param.Add(‘  </wsp:AppliesTo>‘);  
  291.     Param.Add(‘  <wsse:PolicyReference URI="MBI" /> ‘);  
  292.     Param.Add(‘  </wst:RequestSecurityToken>‘);  
  293.     Param.Add(‘<wst:RequestSecurityToken Id="RST4">‘);  
  294.     Param.Add(‘  <wst:RequestType>http://schemas.xmlsoap.org/ws/2004/04/security/trust/Issue</wst:RequestType> ‘);  
  295.     Param.Add(‘<wsp:AppliesTo>‘);  
  296.     Param.Add(‘<wsa:EndpointReference>‘);  
  297.     Param.Add(‘  <wsa:Address>messengersecure.live.com</wsa:Address> ‘);  
  298.     Param.Add(‘  </wsa:EndpointReference>‘);  
  299.     Param.Add(‘  </wsp:AppliesTo>‘);  
  300.     Param.Add(‘  <wsse:PolicyReference URI="MBI_SSL" /> ‘);  
  301.     Param.Add(‘  </wst:RequestSecurityToken>‘);  
  302.     Param.Add(‘<wst:RequestSecurityToken Id="RST5">‘);  
  303.     Param.Add(‘  <wst:RequestType>http://schemas.xmlsoap.org/ws/2004/04/security/trust/Issue</wst:RequestType> ‘);  
  304.     Param.Add(‘<wsp:AppliesTo>‘);  
  305.     Param.Add(‘<wsa:EndpointReference>‘);  
  306.     Param.Add(‘  <wsa:Address>spaces.live.com</wsa:Address> ‘);  
  307.     Param.Add(‘  </wsa:EndpointReference>‘);  
  308.     Param.Add(‘  </wsp:AppliesTo>‘);  
  309.     Param.Add(‘  <wsse:PolicyReference URI="MBI" /> ‘);  
  310.     Param.Add(‘  </wst:RequestSecurityToken>‘);  
  311.     Param.Add(‘<wst:RequestSecurityToken Id="RST6">‘);  
  312.     Param.Add(‘  <wst:RequestType>http://schemas.xmlsoap.org/ws/2004/04/security/trust/Issue</wst:RequestType> ‘);  
  313.     Param.Add(‘<wsp:AppliesTo>‘);  
  314.     Param.Add(‘<wsa:EndpointReference>‘);  
  315.     Param.Add(‘  <wsa:Address>storage.msn.com</wsa:Address> ‘);  
  316.     Param.Add(‘  </wsa:EndpointReference>‘);  
  317.     Param.Add(‘  </wsp:AppliesTo>‘);  
  318.     Param.Add(‘  <wsse:PolicyReference URI="MBI" /> ‘);  
  319.     Param.Add(‘  </wst:RequestSecurityToken>‘);  
  320.     Param.Add(‘  </ps:RequestMultipleSecurityTokens>‘);  
  321.     Param.Add(‘  </Body>‘);  
  322.     Param.Add(‘  </Envelope>‘);  
  323.   
  324.     //返回结果  
  325.     Result := Param.Text;  
  326.   finally  
  327.     Param.Free;  
  328.   end;  
  329. end;  
  330.   
  331. (*解析返回来的xml文档*)  
  332.   
  333. function TMSN.GetXMLFile: Boolean;  
  334. var  
  335.   XML: TXMLDocument;  
  336.   Root, Parent, Child, SChild, BinarySecurityTokenNode, BinarySecretNode:  
  337.     IXMLNode;  
  338. begin  
  339.   Result := False;  
  340.   if FStream.Size > 0 then  
  341.   begin  
  342.     XML := TXMLDocument.Create(Application);  
  343.     try  
  344.       try  
  345.         FStream.SaveToFile(‘test1.xml‘);  
  346.         XML.LoadFromStream(FStream);  
  347.   
  348.         XML.Active := True;  
  349.         Root := XML.DocumentElement;  
  350.         Parent := Root.ChildNodes.First;  
  351.         while Parent <> nil do  
  352.         begin  
  353.           if Parent.NodeName = ‘S:Body‘ then //第二个节点  
  354.           begin  
  355.             Child := Parent.ChildNodes.First;  
  356.               //第一个节点wst:RequestSecurityTokenResponseCollection  
  357.             if Child <> nil then  
  358.             begin  
  359.               SChild := Child.ChildNodes.First; //然后是指向父节点的子节点  
  360.               SChild := SChild.NextSibling;     //第一个不是需要的所以下一个  
  361.               while SChild <> nil do  
  362.               begin  
  363.                 if SChild.NodeName = ‘wst:RequestSecurityTokenResponse‘ then  
  364.                 begin  
  365.                   BinarySecurityTokenNode :=  
  366.                     SChild.ChildNodes.FindNode(‘wst:RequestedSecurityToken‘);  
  367.                       
  368.                   BinarySecretNode :=  
  369.                     SChild.ChildNodes.FindNode(‘wst:RequestedProofToken‘);  
  370.                   if (BinarySecurityTokenNode <> nil) and (BinarySecretNode <>  
  371.                     nil) then  
  372.                   begin  
  373.                     FBinarySecurityToken :=  
  374.                       BinarySecurityTokenNode.ChildNodes.First.NodeValue;  
  375.                     FBinarySecret :=  
  376.                       BinarySecretNode.ChildNodes.First.NodeValue;  
  377.                     Result := True;  
  378.                   end;  
  379.                   //临时加上  
  380.                   Break;  
  381.                 end;  
  382.                 SChild := SChild.NextSibling;  
  383.               end;  
  384.             end;  
  385.             Break;  
  386.           end;  
  387.           Parent := Parent.NextSibling;  
  388.         end;  
  389.   
  390.         XML.Active := False;  
  391.       finally  
  392.         XML.Free;  
  393.       end;  
  394.     except  
  395.   
  396.     end;  
  397.   end;  
  398. end;  
  399. (*取得认证的Key*)  
  400.   
  401. function TMSN.Get_passport_ticket: Boolean;  
  402. var  
  403.   user, password, passport_url: string;  
  404. begin  
  405.   Result := False;  
  406.   user := Fuser;  
  407.   password := HtmlSpecialChars(Fpassword);  
  408.   passport_url := FPassport_url;  
  409.   try  
  410.     Result :=  
  411.       http_Post2(PChar(passport_url), PChar(PostXMLFile(user, password)));  
  412.   except  
  413.     on E: Exception do  
  414.       OutputDebugString(PChar(E.Message));  
  415.   end;  
  416. end;  
  417.   
  418. (*返回登录的SSO验证*)  
  419.   
  420. function TMSN.GetSSOKey(Nonce: string): string;  
  421. begin  
  422.   Result := GenerateLoginBlob(FBinarySecret, Nonce);  
  423. end;  
  424.   
  425. ///=============================================================================  
  426.   
  427. function HMACHash(hProvider: HCRYPTPROV; hKey: HCRYPTKEY; HashAlgId: ALG_ID;  
  428.   pBytesOut: Pointer; dwLengthOut: DWORD; pBytesIn1: PByte; dwLengthIn1: DWORD;  
  429.   pBytesIn2: PByte; dwLengthIn2: DWORD): Boolean;  
  430. var  
  431.   hHash: HCRYPTHASH;  
  432.   hmcinfo: HMAC_INFO;  
  433.   dwHashSize, dwParamSize: DWORD;  
  434. begin  
  435.   Result := False;  
  436.   
  437.   if CryptCreateHash(hProvider, CALG_HMAC, hKey, 0, @hHash) then  
  438.   begin  
  439.     ZeroMemory(@hmcinfo, sizeof(HMAC_INFO));  
  440.     hmcinfo.HashAlgid := HashAlgId;  
  441.     CryptSetHashParam(hHash, HP_HMAC_INFO, PBYTE(@hmcinfo), 0);  
  442.     if CryptHashData(hHash, pBytesIn1, dwLengthIn1, 0) then  
  443.     begin  
  444.       if (dwLengthIn2 <> 0) and (pBytesIn2 <> nil) then  
  445.         CryptHashData(hHash, pBytesIn2, dwLengthIn2, 0);  
  446.       dwParamSize := 4;  
  447.       if CryptGetHashParam(hHash, HP_HASHSIZE, PBYTE(@dwHashSize), @dwParamSize,  
  448.         0) then  
  449.       begin  
  450.         if dwHashSize <= dwLengthOut then  
  451.         begin  
  452.           dwParamSize := dwLengthOut;  
  453.           if CryptGetHashParam(hHash, HP_HASHVAL, pBytesOut, @dwParamSize, 0)  
  454.             then  
  455.             Result := True;  
  456.         end;  
  457.       end;  
  458.     end;  
  459.     CryptDestroyHash(hHash);  
  460.   end;  
  461. end;  
  462.   
  463. function DeriveLoginKey(key: PByte; dwKeySize: DWORD; magic: string; pOutBytes:  
  464.   PBYTE; dwOutLen: DWORD): Boolean;  
  465. var  
  466.   hProvider: HCRYPTPROV;  
  467.   hCryptKey1: HCRYPTKEY;  
  468.   pImportKey: array of Byte;  
  469.   bHash1, bHash2, bHash3, bHash4: array[0..19] of Byte;  
  470. begin  
  471.   Result := False;  
  472.   if CryptAcquireContext(@hProvider, nil, nil, PROV_RSA_FULL, 0) then  
  473.   begin  
  474.     SetLength(pImportKey, dwKeySize + STDKEYHDRSIZE);  
  475.     MoveMemory(pImportKey, @cKeyStdHeader[0], STDKEYHDRSIZE);  
  476.     MoveMemory(@pImportKey[STDKEYHDRSIZE], key, dwKeySize);  
  477.     pImportKey[2] := dwKeySize;  
  478.   
  479.     if CryptImportKey(hProvider, PByte(pImportKey), dwKeySize + STDKEYHDRSIZE,  
  480.       0, CRYPT_SF, @hCryptKey1) then  
  481.     begin  
  482.       HMACHash(hProvider, hCryptKey1, CALG_SHA1, @bHash1, 20,  
  483.         PBYTE(PChar(magic)), Length(magic), nil, 0);  
  484.       HMACHash(hProvider, hCryptKey1, CALG_SHA1, @bHash2, 20, @bHash1[0], 20,  
  485.         PBYTE(PChar(magic)), Length(magic));  
  486.       HMACHash(hProvider, hCryptKey1, CALG_SHA1, @bHash3, 20, @bHash1[0], 20,  
  487.         nil, 0);  
  488.       HMACHash(hProvider, hCryptKey1, CALG_SHA1, @bHash4, 20, @bHash3[0], 20,  
  489.         PBYTE(PChar(magic)), Length(magic));  
  490.       if dwOutLen >= 24 then  
  491.       begin  
  492.         MoveMemory(pOutBytes, @Bhash2[0], 20);  
  493.         Inc(pOutBytes, 20);  
  494.         MoveMemory(pOutBytes, @Bhash4[0], 4);  
  495.         Result := True;  
  496.       end;  
  497.       CryptDestroyKey(hCryptKey1);  
  498.     end;  
  499.     SetLength(pImportKey, 0);  
  500.     CryptReleaseContext(hProvider, 0);  
  501.   end;  
  502. end;  
  503.   
  504. function TMSN.GenerateLoginBlob(key: string; Challenge: string): string;  
  505. var  
  506.   key1, key2, key3: array[0..23] of Byte;  
  507.   hash: array[0..19] of Byte;  
  508.   Randomdata: array[0..7] of Byte;  
  509.   szRet: string;  
  510.   dwBase64Size: DWORD;  
  511.   hProvider: HCRYPTPROV;  
  512.   
  513.   hCryptKey1, hCryptKey2: HCRYPTKEY;  
  514.   
  515.   pImportKey: array of Byte;  
  516.   
  517.   hKeyDupe1, hKeyDupe2: HCRYPTKEY;  
  518.   hHash: HCRYPTHASH;  
  519.   
  520.   dwMode: DWORD;  
  521.   
  522.   hmcinfo: HMAC_INFO;  
  523.   dwDataLen, dwData: DWORD;  
  524.   pEncryptBytes: array of Byte;  
  525.   
  526.   usrkey: tagMSGUSRKEY;  
  527.   
  528.   buffer: PChar;  
  529. const  
  530.   CRYPT_STRING_BASE64 = $00000001;  
  531.   
  532. begin  
  533.   with usrkey do  
  534.   begin  
  535.     uStructHeaderSize := 28;  
  536.     uCryptMode := CRYPT_MODE_CBC;  
  537.     uCipherType := CALG_3DES;  
  538.     uHashType := CALG_SHA1;  
  539.     uIVLen := sizeof(aIVBytes);  
  540.     uHashLen := sizeof(aHashBytes);  
  541.     uCipherLen := sizeof(aCipherBytes);  
  542.   end;  
  543.   
  544.   CryptStringToBinary(PChar(key), 0, CRYPT_STRING_BASE64, nil, @dwBase64Size,  
  545.     nil, nil);  
  546.   ASSERT(dwBase64Size <= 24);  
  547.   if dwBase64Size > 24 then  
  548.   begin  
  549.     Result := ‘‘;  
  550.     Exit;  
  551.   end;  
  552.   dwBase64Size := 24;  
  553.   CryptStringToBinary(PChar(key), 0, CRYPT_STRING_BASE64, @key1, @dwBase64Size,  
  554.     nil, nil);  
  555.   
  556.   DeriveLoginKey(@key1[0], 24, ‘WS-SecureConversationSESSION KEY HASH‘, @key2,  
  557.     24);  
  558.   DeriveLoginKey(@key1[0], 24, ‘WS-SecureConversationSESSION KEY ENCRYPTION‘,  
  559.     @key3, 24);  
  560.   
  561.   if CryptAcquireContext(@hProvider, nil, nil, PROV_RSA_FULL, 0) then  
  562.   begin  
  563.     SetLength(pImportKey, 24 + STDKEYHDRSIZE);  
  564.   
  565.     MoveMemory(pImportKey, @cKeyStdHeader[0], STDKEYHDRSIZE);  
  566.     MoveMemory(@pImportKey[STDKEYHDRSIZE], @key2[0], 24);  
  567.   
  568.     CryptImportKey(hProvider, PByte(pImportKey), 24 + STDKEYHDRSIZE, 0,  
  569.       CRYPT_SF, @hCryptKey2);  
  570.   
  571.     MoveMemory(@pImportKey[STDKEYHDRSIZE], @key3[0], 24);  
  572.   
  573.     if CryptImportKey(hProvider, Pbyte(pImportKey), 24 + STDKEYHDRSIZE, 0,  
  574.       CRYPT_SF, @hCryptKey1) then  
  575.     begin  
  576.       CryptDuplicateKey(hCryptKey1, nil, 0, @hKeyDupe1);  
  577.       dwMode := CRYPT_MODE_CBC;  
  578.       CryptSetKeyParam(hKeyDupe1, KP_MODE, @dwMode, 0);  
  579.       if CryptCreateHash(hProvider, CALG_HMAC, hCryptKey2, 0, @hHash) then  
  580.       begin  
  581.         ZeroMemory(@hmcinfo, sizeof(HMAC_INFO));  
  582.         hmcinfo.HashAlgid := CALG_SHA1;  
  583.         CryptSetHashParam(hHash, HP_HMAC_INFO, @hmcinfo, 0);  
  584.         dwDataLen := Length(Challenge);  
  585.   
  586.         CryptDuplicateKey(hKeyDupe1, nil, 0, @hKeyDupe2);  
  587.         CryptEncrypt(hKeyDupe2, 0, TRUE, 0, nil, @dwDataLen, 0);  
  588.         CryptDestroyKey(hKeyDupe2);  
  589.         if dwDataLen > 0 then  
  590.         begin  
  591.           CryptGenRandom(hProvider, 8, @RandomData);  
  592.           CryptSetKeyParam(hKeyDupe1, KP_IV, @RandomData[0], 0);  
  593.           SetLength(pEncryptBytes, dwDataLen);  
  594.           ZeroMemory(pEncryptBytes, dwDataLen);  
  595.           MoveMemory(pEncryptBytes, PChar(Challenge), Length(Challenge));  
  596.   
  597.           dwData := Length(Challenge);  
  598.           if CryptEncrypt(hKeyDupe1, hHash, TRUE, 0, PByte(pEncryptBytes),  
  599.             @dwData, dwDataLen) then  
  600.           begin  
  601.             ASSERT(dwData = 72);  
  602.             dwData := 20;  
  603.             //我想死了，检查了N遍都没有检查出来少了下面一句  
  604.             CryptGetHashParam(hHash, HP_HASHVAL, @hash, @dwData, 0);  
  605.   
  606.             MoveMemory(@usrkey.aIVBytes[0], @RandomData[0], 8);  
  607.             MoveMemory(@usrkey.aHashBytes[0], @hash[0], 20);  
  608.             MoveMemory(@usrkey.aCipherBytes[0], pEncryptBytes, 72);  
  609.   
  610.             CryptBinaryToString(@usrkey, Sizeof(tagMSGUSRKEY),  
  611.               CRYPT_STRING_BASE64, nil, @dwBase64Size);  
  612.             GetMem(buffer, dwBase64Size);  
  613.             try  
  614.               CryptBinaryToString(@usrkey, sizeof(tagMSGUSRKEY),  
  615.                 CRYPT_STRING_BASE64, buffer, @dwBase64Size);  
  616.               szRet := StringReplace(buffer, #13#10, ‘‘, [rfReplaceAll]);  
  617.             finally  
  618.               FreeMem(buffer);  
  619.             end;  
  620.           end;  
  621.           SetLength(pEncryptBytes, 0);  
  622.         end;  
  623.         CryptDestroyHash(hHash);  
  624.       end;  
  625.       CryptDestroyKey(hKeyDupe1);  
  626.       CryptDestroyKey(hCryptKey1);  
  627.     end;  
  628.     SetLength(pImportKey, 0);  
  629.     if hCryptKey2 > 0 then  
  630.       CryptDestroyKey(hCryptKey2);  
  631.     CryptReleaseContext(hProvider, 0);  
  632.   end;  
  633.   Result := szRet;  
  634. end;  
  635.   
  636. end.  

 

 

 

[delphi] view plaincopy技术分享技术分享
 
    1. unit UMain;  
    2.   
    3. interface  
    4.   
    5. uses  
    6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
    7.   Dialogs, ScktComp, StdCtrls, ComObj, CnDebug, Sockets, StrUtils, MsnClass,  
    8.   IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;  
    9. type  
    10.   TForm1 = class(TForm)  
    11.     btn1: TButton;  
    12.     mmo1: TMemo;  
    13.     btn2: TButton;  
    14.     btn4: TButton;  
    15.     clntsckt1: TClientSocket;  
    16.     btn3: TButton;  
    17.     IdTCPClient1: TIdTCPClient;  
    18.     btn5: TButton;  
    19.     lbl1: TLabel;  
    20.     edt1: TEdit;  
    21.     lbl2: TLabel;  
    22.     edt2: TEdit;  
    23.     edt3: TEdit;  
    24.     mmo2: TMemo;  
    25.     btn6: TButton;  
    26.     procedure btn1Click(Sender: TObject);  
    27.     procedure btn4Click(Sender: TObject);  
    28.     procedure btn2Click(Sender: TObject);  
    29.     procedure clntsckt1Connect(Sender: TObject; Socket: TCustomWinSocket);  
    30.     procedure clntsckt1Connecting(Sender: TObject;  
    31.       Socket: TCustomWinSocket);  
    32.     procedure clntsckt1Disconnect(Sender: TObject;  
    33.       Socket: TCustomWinSocket);  
    34.     procedure clntsckt1Error(Sender: TObject; Socket: TCustomWinSocket;  
    35.       ErrorEvent: TErrorEvent; var ErrorCode: Integer);  
    36.     procedure btn3Click(Sender: TObject);  
    37.     procedure clntsckt1Read(Sender: TObject; Socket: TCustomWinSocket);  
    38.     procedure IdTCPClient1Connected(Sender: TObject);  
    39.     procedure IdTCPClient1Disconnected(Sender: TObject);  
    40.     procedure btn5Click(Sender: TObject);  
    41.     procedure btn6Click(Sender: TObject);  
    42.   private  
    43.     { Private declarations }  
    44.   public  
    45.     { Public declarations }  
    46.   end;  
    47.   
    48. type  
    49.   TClientListen = class(TThread)  
    50.   private  
    51.     MSN: TMSN;  
    52.     FSecond: string;  
    53.     ProtocolNum: Integer;  
    54.     NSAddress: string;  
    55.     NSPort: Integer;  
    56.     FNonce: string;  
    57.     FSSOKey: string;  
    58.     FGivenPolicy :string;  
    59.   
    60.     UserName, Password: string;  
    61. //    FSocket: TClientSocket;  
    62.     { Private declarations }  
    63.   
    64.   public  
    65.     Msg: string;  
    66.     procedure SendCmd(Cmd: string; Params: string);  
    67.     function IncProNum: Integer;  
    68.     function GetCmd(s: string): string;  
    69.     function GetSecondCmd(s: string): string;  
    70.     procedure GetNSAddr(s: string);  
    71.     procedure GetNonce(s: string);  
    72.     function GetPolicySize(s:string):Cardinal;  
    73.   
    74.     function GetMsn(s:string; Postion: integer):Variant;  
    75.   protected  
    76.     procedure Execute; override;  
    77.     procedure Start;  
    78.   end;  
    79.   
    80. var  
    81.   Form1: TForm1;  
    82.   
    83.   ttclnt: TClientListen;  
    84.   MessageInfo: string;  
    85.   
    86.   
    87. implementation  
    88.   
    89. uses Unit2;  
    90.   
    91. {$R *.dfm}  
    92. //{$L File1.obj}  
    93.   function GenerateLoginBlob(key: PChar; challenge: PChar):PChar;stdcall; external ‘MSNSSOKey.dll‘;// Name ‘GenerateLoginBlob‘;  
    94.   
    95. procedure TClientListen.Execute;  
    96. begin  
    97. //  FSocket : = TClientSocket.Create(nil);  
    98. //  FSocket.Service := ‘‘;  
    99.  // FSocket.Port := ;  
    100.  // FSocket.Active := True;  
    101.   
    102.   MSN := TMSN.Create(UserName , Password);  
    103.   FreeOnTerminate := True;  
    104.   ProtocolNum := 1;  
    105.   while not Terminated do  
    106.   begin  
    107.     Start;  
    108.     Sleep(300);  
    109.   end;  
    110.   MSN.Free;  
    111.  // FreeAndNil(FSocket);  
    112. end;  
    113.   
    114. procedure TClientListen.Start;  
    115. var  
    116.   cmd, s, s2: string;  
    117. begin  
    118.   try  
    119.      MessageInfo := ‘‘;  
    120.      MessageInfo := form1.IdTCPClient1.ReadLn();  
    121.   except  
    122.     Terminate;  
    123.   end;  
    124.   
    125.   
    126.   if MessageInfo <> ‘‘ then  
    127.   begin  
    128.     s := MessageInfo;  
    129.     cmd := GetCmd(s);  
    130.   
    131.   
    132.     //if cmd <> ‘GCF‘ then  
    133.     Form1.mmo1.Lines.Add(‘<=‘ + s);  
    134.   
    135.   
    136.     if cmd = ‘VER‘ then  
    137.       SendCmd(‘CVR‘, ‘0x0804 winnt 5.1 i386 MSG80BETA 8.5.1238 msmsgs ‘ +  
    138.         MSN.FUser);  
    139.     if cmd = ‘CVR‘ then  
    140.       SendCmd(‘USR‘, ‘SSO I ‘ + MSN.FUser);  
    141.   
    142.   
    143.     if cmd = ‘XFR‘ then  
    144.     begin  
    145.       GetNSAddr(s);  
    146.       //if Form1.clntsckt1.Socket.Connected then  
    147.       //  Form1.clntsckt1.Close;  
    148.       if form1.IdTCPClient1.Connected then  
    149.         form1.IdTCPClient1.Disconnect;  
    150.       Sleep(1000) ;  
    151.      // Form1.clntsckt1.Host := ‘‘;  
    152.      // Form1.clntsckt1.Address := NSAddress;  
    153.      // Form1.clntsckt1.Port := NSPort;  
    154.      Form1.IdTCPClient1.Host := NSAddress;  
    155.      form1.IdTCPClient1.Port := NSPort;  
    156.       repeat  
    157.         //if not Form1.clntsckt1.Socket.Connected then  
    158.         //begin  
    159.         //  Form1.clntsckt1.Open;  
    160.         //end;  
    161.         if not Form1.IdTCPClient1.Connected then  
    162.           form1.IdTCPClient1.Connect(8000);  
    163.         Sleep(1500);  
    164.      // until (Form1.clntsckt1.Socket.Connected) or (Terminated);  
    165.       until (form1.IdTCPClient1.Connected) or (Terminated);  
    166.       SendCmd(‘VER‘, ‘MSNP15 CVR0‘);  
    167.     end;  
    168.   
    169.   
    170.    if cmd = ‘USR‘ then  
    171.     begin  
    172.       FSecond := GetSecondCmd(s);  
    173.   
    174.       // CnDebugger.LogMsg(FSecond + ‘  二级登录‘);  
    175.       if FSecond = ‘OK‘ then  
    176.         Form1.mmo1.Lines.Add(‘登录成功‘)  
    177.       else if FSecond = ‘SSO‘ then  
    178.       begin  
    179.         MSN.Get_passport_ticket;  
    180.         MSN.GetXMLFile;  
    181.   
    182.         if Form1.IdTCPClient1.Connected then  
    183.         begin  
    184.           GetNonce(s);  
    185.           if FNonce <> ‘‘ then  
    186.           begin  
    187.             FSSOKey := MSN.GetSSOKey(FNonce);  
    188.            // FSSOKey := GenerateLoginBlob(PChar(MSN.FBinarySecret), PChar(FNonce));  
    189.            // FSSOKey := StringReplace(FSSOKey, #13#10, ‘‘, [rfReplaceAll]);  
    190.             //FSSOKey := StringReplace(FSSOKey, ‘k‘, ‘g‘, [rfIgnoreCase]);  
    191.   
    192.             //s2 := LeftStr(FSSOKey, Pos(‘k‘, FSSOKey) - 1) + ‘g‘ + RightStr(FSSOKey, Length(FSSOKey) - 23);  
    193.   
    194.   
    195.             SendCmd(‘USR‘, ‘SSO S ‘ + MSN.FBinarySecurityToken + ‘ ‘ + FSSOKey);  
    196.           end;  
    197.         end;  
    198.       end;  
    199.     end ;  
    200.       
    201.     if cmd = ‘GCF‘ then  
    202.     begin  
    203.       FGivenPolicy := form1.IdTCPClient1.ReadString(GetPolicySize(s));  
    204.   
    205.     end;  
    206.   
    207.     if cmd = ‘MSG‘ then  
    208.     begin  
    209.       FGivenPolicy := Form1.IdTCPClient1.ReadString(GetMsn(s, 4));  
    210.       SendCmd(‘BLP‘, ‘BL‘);  
    211.       form1.mmo2.Lines.Add(FGivenPolicy);  
    212.     end;  
    213.   
    214.     if cmd = ‘BLP‘ then  
    215.      SendCmd(‘ADL‘,‘11 <ml l="1"/>‘);  
    216.   
    217.   
    218.   
    219.   end;  
    220.   
    221.   
    222. end;  
    223.   
    224. procedure TClientListen.SendCmd(Cmd: string; Params: string);  
    225. var  
    226.   s:string;  
    227. begin  
    228.   //if Form1.clntsckt1.Socket.Connected then  
    229.   if form1.IdTCPClient1.Connected then  
    230.   begin  
    231.     s := Format(‘%s %d %s‘{#13#10}, [Cmd, IncProNum,Params]);  
    232.     form1.IdTCPClient1.WriteLn(s);  
    233.     //form1.clntsckt1.Socket.SendText(s);  
    234.     form1.mmo1.Lines.Add(‘=>‘ + s);  
    235.   end;  
    236. end;  
    237.   
    238. function TClientListen.IncProNum: Integer;  
    239. begin  
    240.   Inc(ProtocolNum);  
    241.   Result := ProtocolNum;  
    242. end;  
    243.   
    244. function TClientListen.GetCmd(s: string): string;  
    245. begin  
    246.   Result := ‘‘;  
    247.   if s <> ‘‘ then  
    248.     Result := Trim(Copy(s, 1, 3));  
    249.  // CnDebugger.LogFmt(‘%s->%s‘, [Result, s]);    
    250. end;  
    251.   
    252. function TClientListen.GetSecondCmd(s: string): string;  
    253. begin  
    254.   Result := Trim(Copy(s, 7, 3));  
    255.   
    256.   //CnDebugger.LogMsg(Result + ‘第二个命令：‘);  
    257. end;  
    258.   
    259. procedure TClientListen.GetNSAddr(s: string);  
    260. var  
    261.   p1, p2, p3, code: integer;  
    262.   s1: string;  
    263. begin  
    264.   p1 := PosEx(‘NS ‘, S, 2);  
    265.   p2 := PosEx(‘ U D‘, s, p1);  
    266.   if (p1 > 0) and (p2 > 0) then  
    267.   begin  
    268.     s1 := Copy(s, p1 + 3, p2 - p1 - 3);  
    269.   
    270.     p3 := Posex(‘:‘, s1, 2);  
    271.     if p3 > 0 then  
    272.     begin  
    273.       NSAddress := Trim(Copy(s1, 1, p3 - 1));  
    274.       Val(Copy(s1, p3 + 1, Length(s1) - p3), NSPort, code);  
    275.     end;  
    276.   end;  
    277. end;  
    278.   
    279. procedure TClientListen.GetNonce(s: string);  
    280. var  
    281.   p1: Integer;  
    282.   s1:string;  
    283. begin  
    284.   s1 := ‘MBI_KEY‘; //MBI_KEY_OLD  
    285.   p1 := PosEx(s1, s, 2);  
    286.   if p1 > 0 then  
    287.     FNonce := Trim(Copy(s, p1 + Length(s1) + 1, Length(s) - p1 - Length(s1)));  
    288. end;  
    289.   
    290. function TClientListen.GetPolicySize(s:string):Cardinal;  
    291. var  
    292.   Code:Integer;  
    293.   List:TStringList;  
    294. begin  
    295.   Result := 0;  
    296.   if s <> ‘‘ then  
    297.   begin  
    298.     List := TStringList.Create;  
    299.     try  
    300.       ExtractStrings([‘ ‘], [], PChar(s), List);  
    301.       if List.Count >= 3 then  
    302.       begin  
    303.         Val(List.Strings[2], Result, Code);  
    304.       end;  
    305.     finally  
    306.        List.Free;  
    307.   
    308.     end;  
    309.   end;  
    310. end;  
    311.   
    312.   
    313. function TClientListen.GetMsn(s:string; Postion: integer):Variant;  
    314. var  
    315.   List: TStringList;  
    316. begin  
    317.   list := TStringList.Create;  
    318.   try  
    319.     ExtractStrings([‘ ‘], [], PChar(s), List);  
    320.     if list.Count >= Postion then  
    321.      Result := Trim(List.Strings[Postion - 1]);  
    322.   finally  
    323.     list.Free;  
    324.   end;  
    325. end;  
    326. //...........................................................................  
    327.   
    328. procedure TForm1.btn1Click(Sender: TObject);  
    329. begin  
    330.   //clntsckt1.Active := true;  
    331.   IdTCPClient1.Connect(12000);  
    332.   ttclnt := TClientListen.Create(true);  
    333.   ttclnt.UserName := Trim(edt1.Text);  
    334.   ttclnt.Password := Trim(edt2.Text);  
    335.   ttclnt.Resume;  
    336. end;  
    337.   
    338. procedure TForm1.btn4Click(Sender: TObject);  
    339. var  
    340.   M: TMSN;  
    341.   
    342. begin  
    343.   M := TMSN.Create(<a target="_blank" href="mailto:‘ying_32@‘,‘">‘‘,‘‘</a>);  
    344.   //mmo1.Text := M.http_Post(‘https://login.live.com/RST.srf‘, PChar(mmo2.Text));  
    345.   //mmo1.Text := m.Get_passport_ticket;  
    346.  // m.http_Post2(‘https://login.live.com/RST.srf‘, PChar(mmo2.Text));  
    347.   M.Get_passport_ticket;  
    348.   
    349.   M.GetXMLFile();  
    350.   mmo1.Lines.Add(M.FBinarySecurityToken);  
    351.   mmo1.Lines.Add(‘------------------------------------‘);  
    352.   mmo1.Lines.Add(m.FBinarySecret);  
    353.   
    354.   m.Free;  
    355. end;  
    356.   
    357. procedure TForm1.btn2Click(Sender: TObject);  
    358. begin  
    359.   IdTCPClient1.Disconnect;  
    360.  // clntsckt1.Active := False;  
    361.   ttclnt.Terminate;  
    362. end;  
    363.   
    364. procedure TForm1.clntsckt1Connect(Sender: TObject;  
    365.   Socket: TCustomWinSocket);  
    366. begin  
    367.   mmo1.Lines.Add(‘连接成功‘);  
    368. end;  
    369.   
    370. procedure TForm1.clntsckt1Connecting(Sender: TObject;  
    371.   Socket: TCustomWinSocket);  
    372. begin  
    373.   mmo1.Lines.Add(‘连接中。。‘);  
    374. end;  
    375.   
    376. procedure TForm1.clntsckt1Disconnect(Sender: TObject;  
    377.   Socket: TCustomWinSocket);  
    378. begin  
    379.   mmo1.Lines.Add(‘断开服务器‘);  
    380.   //  Form1.clntsckt1.Active := False;  
    381.   
    382. //    Form1.clntsckt1.Address := NSAddress;  
    383. //    Form1.clntsckt1.Port := NSPort;  
    384. //    Form1.clntsckt1.Active :=True;  
    385.   
    386. end;  
    387.   
    388. procedure TForm1.clntsckt1Error(Sender: TObject; Socket: TCustomWinSocket;  
    389.   ErrorEvent: TErrorEvent; var ErrorCode: Integer);  
    390. begin  
    391.   mmo1.Lines.Add(‘Error: ‘ + IntToStr(ErrorCode));  
    392.   ErrorCode := 0;  
    393. end;  
    394.   
    395. procedure TForm1.btn3Click(Sender: TObject);  
    396. var  
    397.   m:TMSN;  
    398.   s1:string;  
    399. begin  
    400.    m := TMSN.Create(‘‘, ‘‘);  
    401.   
    402.     s1 :=  
    403.        m.GenerateLoginBlob(‘BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB=‘, ‘BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB=‘);  
    404.   
    405.    // s1 := LeftStr(s1, Pos(‘k‘, s1) - 1) + ‘g‘ + RightStr(s1, Length(s1) - 23);  
    406.     mmo1.Lines.Add(s1);  
    407.     m.Free;  
    408.     mmo1.Lines.Add(‘-----------------------------------------------------‘);  
    409.     mmo1.Lines.Add(GenerateLoginBlob(‘BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB=‘, ‘BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB=‘));  
    410. end;  
    411.   
    412. procedure TForm1.clntsckt1Read(Sender: TObject; Socket: TCustomWinSocket);  
    413. begin  
    414.   MessageInfo := ‘‘;  
    415.   MessageInfo := Socket.ReceiveText;  
    416.   CnDebugger.LogMsg(MessageInfo);  
    417. end;  
    418.   
    419. procedure TForm1.IdTCPClient1Connected(Sender: TObject);  
    420. begin  
    421.   mmo1.Lines.Add(‘已连接至->‘ + IdTCPClient1.Host);  
    422.   if IdTCPClient1.Host = ‘messenger.hotmail.com‘ then  
    423.   begin  
    424.    IdTCPClient1.WriteLn(‘VER 1 MSNP15 MSNP14 MSNP13 CVR0‘);  
    425.    mmo1.Lines.Add(‘=>VER 1 MSNP15 MSNP14 MSNP13 CVR0‘);  
    426.   end;   
    427. end;  
    428.   
    429. procedure TForm1.IdTCPClient1Disconnected(Sender: TObject);  
    430. begin  
    431.  mmo1.Lines.Add(‘断开与->‘ + IdTCPClient1.Host)  
    432. end;  
    433.   
    434. procedure TForm1.btn5Click(Sender: TObject);  
    435. begin  
    436.  if IdTCPClient1.Connected then  
    437.  begin  
    438.    IdTCPClient1.WriteLn(Trim(edt3.Text));  
    439.    mmo1.Lines.Add(‘=>‘ + Trim(edt3.Text));  
    440.  end;  
    441.    //IdTCPClient1.WriteLn(‘OUT‘);  
    442. end;  
    443.   
    444. procedure TForm1.btn6Click(Sender: TObject);  
    445. begin  
    446.  Form2.Show;  
    447. end;  
    448.   
    449. end.  

http://blog.csdn.net/zyjying520/article/details/26161653

对Msn协议的一点点研究

原文：http://www.cnblogs.com/findumars/p/5017774.html
踩
(0)
赞
(0)
   
举报
评论 一句话评论（0）
分享档案
更多>
2021年09月23日 (328)
2021年09月24日 (313)
2021年09月17日 (191)
2021年09月15日 (369)
2021年09月16日 (411)
2021年09月13日 (439)
2021年09月11日 (398)
2021年09月12日 (393)
2021年09月10日 (160)
2021年09月08日 (222)
最新文章
更多>
教程昨日排行
更多>
友情链接
汇智网   PHP教程   插件网  
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣，分享程序人生！