完美世界 邮件发包结构分析

 

1. function StrtoUnicode(Str:string):string;
2. var 
3.   s: string; 
4.   i, j, k: integer; 
5.   a: array [1..1000] of char; 
6. begin
7.   s:=''; 
8.   StringToWideChar(Str, @(a[1]), 500); 
9.   i:=1;
10.   while ((a[i]<>#0) or (a[i+1]<>#0)) do 
11.   begin 
12.     j:=Integer(a[i]); k:=Integer(a[i+1]);
13.     s:=s+Copy(Format('%X ',[j*$100+k+$10000]) ,2,4); 
14.     i:=i+2;
15.   end; 
16.   Result:=s; 
17. end;
19. function FanXie(Ans:String):string;
20. var
21. Str1,Str2,Str3,Str4:String;
22. begin
23.  Str1:=Copy(Ans,7,2);
24.  Str2:=Copy(Ans,5,2);
25.  Str3:=Copy(Ans,3,2);
26.  Str4:=Copy(Ans,1,2);
27.  FanXie:=Str1+Str2+Str3+Str4;
28. end;
30. procedure TForm1.Button1Click(Sender: TObject);
31. var
32. BaoTou:string;
33. BaoGu,BaoGu1,BaoMyID,BaoYouId,BaoL1,BaoL2,BaoWei:String;
34. BaoString,BaoLen:String;
35. TextOne,TextTwo:String;
36. L1,L2:Integer;
37. begin
38. BaoTou:='250019000000'; //包头
39. BaoGu:='74100000';      //固定包
40. BaoGu1:='00000005';      //固定包
41. BaoWei:='000000000000000000000000000000000000';//包尾        这里没去弄
42. BaoMyID:=IntToHex(StrToInt(Edit3.Text),8); //自己ID
43. BaoYouId:=IntToHex(StrToInt(Edit2.Text),8);//对方ID
44. TextOne:=StrtoUnicode(Edit1.Text); //主题
45. TextTwo:=StrtoUnicode(Memo1.Text); //内容
46. L1:=round(length(TextOne) / 2);//获取主题长
47. L2:=round(length(TextTwo) / 2);//获取内容长
48. BaoL1:=IntToHex(L1,2); //主题长转换
49. BaoL2:='80'+IntToHex(L2,2); //内容长转换  这里的80没搞懂 测试都能OK
50. BaoString:=BaoTou+'00000000'+BaoGu+BaoMyId+BaoGu1+BaoYouId+BaoL1+TextOne+BaoL2+TextTwo+BaoWei;
51. BaoLen:=FanXie(IntToHex(round(length(BaoString) / 2 - 10),8));
52. BaoString:=BaoTou+BaoLen+BaoGu+BaoMyId+BaoGu1+BaoYouId+BaoL1+TextOne+BaoL2+TextTwo+BaoWei;
53. Memo2.Text:=BaoString;
54. end;