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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
iSafer_Option.pas
资源名称：00011511.rar　[点击查看]
上传用户：xiuanze55
上传日期：2017-08-03
资源大小：1080k
文件大小：44k
源码类别：

Delphi控件源码

开发平台：

Delphi

iSafer_Option.pas：源码内容
  1. unit iSafer_Option;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ComCtrls, ExtCtrls, StdCtrls, ShellAPI, Registry, IniFiles,
  8.   ScktComp, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  9.   Sockets,StrUtils,IdTrivialFTPBase, Menus, Buttons, Winsock, ImgList;
  11. type
  12.   TForm_Option = class(TForm)
  13.     PageControl1: TPageControl;
  14.     TabSheet_FWRule: TTabSheet;
  15.     TabSheet_Level: TTabSheet;
  16.     TabSheet_FWLog: TTabSheet;
  17.     TabSheet_Folder: TTabSheet;
  18.     GroupBox_Folder: TGroupBox;
  19.     ListView_Folder: TListView;
  20.     GroupBox_FWRule: TGroupBox;
  21.     ListView_FWRule: TListView;
  22.     GroupBox_Level: TGroupBox;
  23.     Label1: TLabel;
  24.     Label_Level0: TLabel;
  25.     Label_Level1: TLabel;
  26.     Label_Level2: TLabel;
  27.     TrackBar_Level: TTrackBar;
  28.     TabSheet_Port: TTabSheet;
  29.     GroupBox_Port: TGroupBox;
  30.     ListView_Port: TListView;
  31.     ListView_PortTemp: TListView;
  32.     Path_List: TListView;
  33.     LogPopupMenu: TPopupMenu;
  34.     mnuAddIPRule: TMenuItem;
  35.     N1: TMenuItem;
  36.     Display1: TMenuItem;
  37.     mnuAddPathRule: TMenuItem;
  38.     N2: TMenuItem;
  39.     mnuDirection: TMenuItem;
  40.     mnuPermission: TMenuItem;
  41.     mnuApplicationPath: TMenuItem;
  42.     mnuBytesReceived: TMenuItem;
  43.     mnuBytesSent: TMenuItem;
  44.     mnuSocketNumber: TMenuItem;
  45.     mnuClearLog: TMenuItem;
  46.     mnuHostName: TMenuItem;
  47.     ProgressBar: TProgressBar;
  48.     BmBtnAddNew: TBitBtn;
  49.     BmtBtnDelete: TBitBtn;
  50.     BmBtnFolderView: TBitBtn;
  51.     BmBtnReload: TBitBtn;
  52.     BmBtnFolderStop: TBitBtn;
  53.     BmBtnFolderInfo: TBitBtn;
  54.     BmBtnPortDefault: TBitBtn;
  55.     BmBtnPortBackDoor: TBitBtn;
  56.     BmBtnPortAll: TBitBtn;
  57.     FWImageList: TImageList;
  58.     BmBtnCancelSecuiry: TBitBtn;
  59.     BmBtnApplySecurity: TBitBtn;
  60.     ImageListForAppPath: TImageList;
  61.     Label2: TLabel;
  62.     Label3: TLabel;
  63.     Label4: TLabel;
  64.     GroupBox1: TGroupBox;
  65.     Label5: TLabel;
  66.     Label_Level3: TLabel;
  67.     GroupBox2: TGroupBox;
  68.     ListView_FWLog: TListView;
  70.     procedure UpdateFolderInfo(Sender: TObject);
  71.     procedure FormCreate(Sender: TObject);
  72.     procedure FormShow(Sender: TObject);
  73.     procedure FormDestroy(Sender: TObject);
  74.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  76.     procedure TabSheet_FolderShow(Sender: TObject);
  77.     // 焊救 荐霖 汲沥 - 包访 窃荐
  78.     procedure TabSheet_LevelShow(Sender: TObject);
  79.     procedure TrackBar_LevelChange(Sender: TObject);
  80.     // 规拳寒 肺弊 - 包访 窃荐
  82.     // 傍蜡 弃歹 包府 - 包访 窃荐
  83.     procedure ListView_FolderSelectItem(Sender: TObject; Item: TListItem;
  84.       Selected: Boolean);
  87.     
  88.     procedure Btn_FolderReloadClick(Sender: TObject);
  89.     // 器飘 胶牡 - 包访 窃荐
  91.     procedure ListView_FWRuleEnter(Sender: TObject);
  92.     procedure Path_ListEnter(Sender: TObject);
  93.     procedure ListView_FWRuleSelectItem(Sender: TObject; Item: TListItem;
  94.       Selected: Boolean);
  95.     procedure mnuAddIPRuleClick(Sender: TObject);
  96.     procedure mnuAddPathRuleClick(Sender: TObject);
  97.     procedure mnuDirectionClick(Sender: TObject);
  98.     procedure mnuApplicationPathClick(Sender: TObject);
  99.     procedure mnuBytesReceivedClick(Sender: TObject);
  100.     procedure mnuBytesSentClick(Sender: TObject);
  101.     procedure mnuSocketNumberClick(Sender: TObject);
  102.     procedure mnuPermissionClick(Sender: TObject);
  103.     procedure ListView_FWLogEnter(Sender: TObject);
  104.     procedure mnuClearLogClick(Sender: TObject);
  105.     procedure mnuHostNameClick(Sender: TObject);
  106.     procedure BmBtnAddNewClick(Sender: TObject);
  107.     procedure BmtBtnDeleteClick(Sender: TObject);
  108.     procedure BmBtnApplySecurityClick(Sender: TObject);
  109.     procedure BmBtnCancelSecuiryClick(Sender: TObject);
  110.     procedure BmBtnFolderViewClick(Sender: TObject);
  111.     procedure BmBtnFolderInfoClick(Sender: TObject);
  112.     procedure BmBtnFolderStopClick(Sender: TObject);
  113.     procedure BmBtnReloadClick(Sender: TObject);
  114.     procedure BmBtnPortDefaultClick(Sender: TObject);
  115.     procedure BmBtnPortBackDoorClick(Sender: TObject);
  116.     procedure BmBtnPortAllClick(Sender: TObject);
  117.     procedure mnuRuleAddnewClick(Sender: TObject);
  118.     procedure DeleteClick(Sender: TObject);
  119.     procedure mnuRuleChangePermisionClick(Sender: TObject);
  120.   
  122.     { Private declarations }
  123.   public
  124.      FDriverLoaded: BOOL;
  125.      bPortScanning: Boolean;
  126.      ServerSocket:TServerSocket;
  128.      //DDT
  129.      procedure TrapMSG(var MSGX: TMessage);
  130.      //DDT
  132.  {
  133.      Procedure FirewallCallback(name : pchar;
  134.                                 messageBuf : pointer; messageLen : dword;
  135.                                 answerBuf  : pointer    ; answerLen  : dword); stdcall;
  137.   }
  138.   end;
  140.   //DDT
  141.   LogInf=record
  142.      mTime: string[30];
  143.      mDirection:string[10];
  144.      mPermit:String[10];
  145.      mIP:string;
  146.      mHostName:shortstring;
  147.      mPort:String[10];
  148.      mPath:shortstring;
  149.      mToltalRec:String[30];
  150.      mToltalSen:String[30];
  151.      mTotalRecSen:String[30];
  152.      mSockNo:String[20];
  153.   end;
  154.   //DDT
  156. const
  157.   MSGUDP  = 'UDP  / RemoteIP: %3d.%3d.%3d.%3d / LocalPort: %5d';
  158.   MSGTCP  = 'TCP  / RemoteIP: %3d.%3d.%3d.%3d / LocalPort: %5d';
  159.   MSGICMP = 'ICMP / RemoteIP: %3d.%3d.%3d.%3d / Type     : %5d / Code: %5d';
  161.   //DDT
  162.   LogBuffSize=1024;
  163.   //DDT
  165. var
  166.   Form_Option: TForm_Option;
  167.   OS: TOSVersionInfo;
  168.   ChosenRuleType: Integer;
  169.   isLogStarted: Boolean;
  171.   //DDT
  172.   Logs: array[1..LogBuffSize] of LogInf ;
  173.   LogID: Integer;
  174.   mainHWND: HWND;
  175.   //DDT
  177.   //update on march 17, imagelist for logging.
  178.   logImages: TImageList;
  179.   logPaths:TStringlist;
  181.   const PATH_RULE_TYPE: Integer =1;
  182.   const IP_RULE_TYPE: Integer=0;
  183.   const REQUEST_TIMEOUT:Integer=1000;
  185.   
  187. implementation
  189. uses iSafer_Main, iSafer_Resource, iSafer_FWRule,
  190.   PSMFWRule, PSMFWLog,madCodeHook, FWDebug;//iShieldUnit_95, iShieldUnit_NT
  192. {$R *.dfm}
  194. function NameFromIP(ip:string;var hostname:shortstring): Boolean;
  195. var
  196.      WSAData: TWSAData;
  197.      InetAddr: u_long;
  198.      HostEntPtr: PHostEnt;
  199.      retVal:Boolean;
  201.      len: Integer;
  203. begin
  204.      WSAStartUp( $101, WSAData );
  205.      try
  206.           InetAddr := inet_addr(PChar(ip));
  207.           if InetAddr = SOCKET_ERROR then
  208.                raise Exception.Create( 'Invalid address entered' );
  210.           HostEntPtr := GetHostByAddr( @InetAddr, len, AF_INET );
  211.           if HostEntPtr = NIL then
  212.                raise Exception.Create( 'WinSock error: ' + IntToStr( WSAGetLastError() ) );
  214.           // Insert hostname into list
  215.           hostname := String( HostEntPtr^.h_name );
  216.           retVal:=True;
  217.      except
  218.           on E: Exception do begin
  219.               retVal:=False;
  220.           end;
  221.      end;
  222.      Result:=retVal;
  223. end;
  225. {Implement Log process call back function}//20040226
  226. Procedure PSMFW_Callback(name : pchar;
  227.                                 messageBuf : pointer; messageLen : dword;
  228.                                 answerBuf  : pointer    ; answerLen  : dword); stdcall;
  230. Var
  231.      HMapMutex: THandle;
  232.      LogItems:TPSMFWLog;
  233.      //ListItem: TListItem;
  234.      //strTmp:String;
  235.      //NumberOflogLine: Integer;
  237.      MyLogID:Integer;
  238. begin
  239.     //Check where there is space character
  240.     //at the beginning of the line
  241.     if(String(messageBuf)[1]=' ') then Exit;
  243.     MyLogID:=-1;
  244.     HMapMutex := CreateMutex(nil, false, pchar('PSMFirewallApplication'));
  245.     if HMapMutex <> 0 then begin
  246.       if WaitForSingleObject(HMapMutex,100) = WAIT_OBJECT_0 then  begin
  247.         LogID:=(LogID mod LogBuffSize) + 1;
  248.         MyLogID:=LogID;
  249.       end;
  250.       ReleaseMutex(HMapMutex);
  251.       CloseHandle(HMapMutex);
  252.     end;
  254.     if MyLogID>=0 then
  255.     with LogItems do begin
  256.       LogItems:= TPSMFWLog.Create;
  257.       LogItems.AssignLogItems(messageBuf);
  259.       Logs[MyLogID].mTime:=mTime;
  260.       Logs[MyLogID].mDirection:=mDirection;
  261.       Logs[MyLogID].mPermit:=mPermit;
  262.       Logs[MyLogID].mIP:=mIP;
  263.       Logs[MyLogID].mHostName:=mHostName;
  264.       Logs[MyLogID].mPort:=mPort;
  265.       Logs[MyLogID].mPath:=mPath;
  266.       Logs[MyLogID].mToltalRec:=mToltalRec;
  267.       Logs[MyLogID].mToltalSen:=mToltalSen;
  268.       Logs[MyLogID].mTotalRecSen:=mTotalRecSen;
  269.       Logs[MyLogID].mSockNo:=mSockNo;
  270.       Free;
  271.       PostMessage(mainHWND,WM_USER,MyLogID,MyLogID);
  272.     end;//with LogItems do begin
  273. end;
  275. //DDT20040226
  276. procedure TForm_Option.TrapMSG(var MSGX: TMessage);
  277. var
  278.   ListItem: TListItem;
  279. begin
  280.   case MSGX.Msg of
  281.     WM_USER://New log arrived
  282.       begin
  283.         if Form_Option.ListView_FWLog.Items.Count>500 then
  284.         begin
  285.           mnuClearLogClick(Nil);
  286.         end;
  288.         Form_Option.ListView_FWLog.Items.BeginUpdate;
  289.         ListItem:=Form_Option.ListView_FWLog.Items.Add;
  290.         ListItem.ImageIndex:=6;
  293.         //display log information
  294.         with Logs[MSGX.WParam] do
  295.         begin
  296.           //if(not NameFromIP(mIP,mHostName)) then mHostName:= mIP;
  297.           if(logPaths.IndexOf(mPath)<0) then //This Path is not added
  298.           begin
  299.               ListItem.ImageIndex:=logImages.AddIcon(Form_FWRule.GetICON(mPath));
  300.               logPaths.Add(LowerCase(mPath));
  301.           end
  302.           else //path is existing
  303.           begin
  304.                ListItem.ImageIndex:=logPaths.IndexOf(LowerCase(mPath));
  305.           end;
  306.          
  307.           ListItem.Caption:=mTime;
  308.           ListItem.SubItems.Add(mDirection);
  309.           //if  mPermit=0 then  strTmp:='DENY'
  310.           //else  strTmp:='ALLOW';
  311.           ListItem.SubItems.Add(mPermit);
  312.           ListItem.SubItems.Add(mIP);
  314.           ListItem.SubItems.Add(mHostName);
  317.           ListItem.SubItems.Add(mPort);
  319.           ListItem.SubItems.Add(mPath);
  322.           ListItem.SubItems.Add(mToltalRec);
  323.           ListItem.SubItems.Add(mToltalSen);
  324.           ListItem.SubItems.Add(mTotalRecSen);
  325.           ListItem.SubItems.Add(mSockNo);
  326.         end;
  327.         Form_Option.ListView_FWLog.Items.EndUpdate;
  328.         if((Form_Option.ListView_FWLog.Selected=Nil)) then
  329.           ListItem.MakeVisible(TRue);
  330.       end;
  332.     WM_USER+1://Reserved
  333.     else WndProc(MSGX);
  334.   end;
  335. end;
  336. //DDT
  338. // 傍蜡 弃歹 沥焊 舅酒郴扁
  339. procedure TForm_Option.UpdateFolderInfo(Sender: TObject);
  340. var
  341.      i, j: Integer;
  342.      sTemp: TStrings;
  343.      valueName, valuePath, valueRemark, strTemp: String;
  344.      valueSize: Integer;
  345.      valueBuf: PChar;
  346.      Registry, Registry2: TRegistry;
  347.      ListItem: TListItem;
  348. begin
  349.      ListView_Folder.Items.Clear;
  351.      // Windows NT/2000 拌凯
  352.      Registry:= TRegistry.Create;
  353.      Registry.RootKey:= HKEY_LOCAL_MACHINE;
  354.      if Registry.OpenKey('SYSTEMCurrentControlSetServiceslanmanserverShares', False) then begin
  355.           sTemp:= TStringList.Create;
  356.           Registry.GetValueNames(sTemp);
  357.           for i:=0 to sTemp.Count-1 do begin
  358.                valueName:= sTemp.Strings[i];
  359.                valueSize:= Registry.GetDataSize(valueName);
  360.                GetMem(ValueBuf, ValueSize);
  361.                try
  362.                     if Registry.ReadBinaryData(ValueName, ValueBuf^, ValueSize) <> 0 then begin
  363.                          for j:=0 to valueSize-1 do begin
  364.                               if valueBuf[j] = #0 then valueBuf[j]:= '|';
  365.                          end;
  366.                          valuePath:= '';
  367.                          strTemp:= valueBuf;
  368.                          if Pos('|Path=', strTemp) > 0 then begin
  369.                               Delete(strTemp, 1, Pos('|Path=', strTemp) + Length('|Path=') - 1);
  370.                               valuePath:= Copy(strTemp, 1, Pos('|', strTemp) - 1);
  371.                          end;
  372.                          valueRemark:= '';
  373.                          strTemp:= valueBuf;
  374.                          if Pos('|Remark=', strTemp) > 0 then begin
  375.                               Delete(strTemp, 1, Pos('|Remark=', strTemp) + Length('|Remark=') - 1);
  376.                               valueRemark:= Copy(strTemp, 1, Pos('|', strTemp) - 1);
  377.                          end;
  378.                          ListItem:= ListView_Folder.Items.Add;
  379.                          ListItem.ImageIndex:=8;
  380.                          ListItem.Caption:= valueName;
  381.                          ListItem.SubItems.Add(valuePath);
  382.                          ListItem.SubItems.Add(valueRemark);
  383.                     end;
  384.                finally
  385.                     FreeMem(ValueBuf);
  386.                end;
  387.           end;
  388.           sTemp.Free;
  389.           Registry.CloseKey;
  390.      end;
  391.      Registry.Free;
  393.      // Windows 95/98 拌凯
  394.      Registry:= TRegistry.Create;
  395.      Registry.RootKey:= HKEY_LOCAL_MACHINE;
  396.      if Registry.OpenKey('SoftwareMicrosoftWindowsCurrentVersionNetworkLanMan', False) then begin
  397.           sTemp:= TStringList.Create;
  398.           Registry.GetKeyNames(sTemp);
  399.           for i:=0 to sTemp.Count-1 do begin
  400.                valueName:= sTemp.Strings[i];
  401.                Registry2:= TRegistry.Create;
  402.                Registry2.RootKey:= HKEY_LOCAL_MACHINE;
  403.                if Registry2.OpenKey('SoftwareMicrosoftWindowsCurrentVersionNetworkLanMan' + valueName, False) then begin
  404.                     valuePath:= Registry2.ReadString('Path');
  405.                     valueRemark:= Registry2.ReadString('Remark');
  406.                     ListItem:= ListView_Folder.Items.Add;
  407.                     ListItem.Caption:= valueName;
  408.                     ListItem.SubItems.Add(valuePath);
  409.                     ListItem.SubItems.Add(valueRemark);
  410.                     Registry2.CloseKey;
  411.                end;
  412.                Registry2.Free;
  413.           end;
  414.           sTemp.Free;
  415.           Registry.CloseKey;
  416.      end;
  417.      Registry.Free;
  418. end;
  420. procedure TForm_Option.FormCreate(Sender: TObject);
  421. //var
  422. //     bCheck: Boolean;
  423. begin
  424.     //DDT
  425.     LogID:=0;
  426.     mainHWND:=self.Handle;
  427.     WindowProc:=TrapMSG;//Change the WindowProc to User's proc.
  428.     //DDT
  430.      // 函荐 檬扁汲沥
  431.      FDriverLoaded:= False;
  432.      bPortScanning:= False;
  434.      // 滚瓢 劝己拳 惑怕 檬扁拳
  435.      BmBtnFolderView.Enabled:= False;
  436.      BmBtnFolderInfo.Enabled:= False;
  437.      BmBtnFolderStop.Enabled:= False;
  439.      // 扁夯 其捞瘤 汲沥
  440.      PageControl1.ActivePage:= TabSheet_FWRule;
  442.      // OS 滚傈 沥焊 舅酒郴扁
  443.      ZeroMemory(@OS,SizeOf(OS));
  444.      OS.dwOSVersionInfoSize:=SizeOf(OS);
  445.      GetVersionEx(OS);
  447.      // 鸥捞赣 檬扁拳
  448.      //Timer_Init.Enabled:= True;
  450.      BmBtnApplySecurity.Enabled:=False;
  452.      isLogStarted:=False;
  454.      //Init log-image list.
  455.      logImages:=TImageList.Create(Self);
  456.      logPaths:=TStringList.Create;
  458.      logImages.AddIcon(NIl);
  459.      logPaths.Add('%$default$%');
  461.      ListView_FWLog.SmallImages:= logImages;
  463.      ServerSocket:=TServerSocket.Create(Form_Option);
  464. end;
  466. {
  467. Initial
  468. +Read rule set from Registry and Display it
  469. Feb 12, 2004
  470. LuuTruongHuy
  471. }
  472. procedure TForm_Option.FormShow(Sender: TObject);
  473. var
  474.      fwRule:TPSMFWRule;
  475.      ruleList:TStringList;
  478.      ListItem: TListItem;
  479.      i: Integer;
  480.      //for IP rules
  481.      fromIP: string;
  482.      toIP: string;
  483.      fromPort: Integer;
  484.      toPort: Integer;
  485.      //for Path rules
  486.      Path: string;
  487.      Permit: Integer;
  489.      bCheck: boolean;
  491.      imIndex:Integer;
  492. begin
  494.   //Start FireWall Log here--huynote
  496.      bCheck:= CreateIpcQueue('PSMFirewall', PSMFW_Callback);
  497.      if(not bCheck)then
  498.         Showmessage('Error when starting logging Firewall!')
  499.      else
  500.          isLogStarted:=True;
  502.   ruleList:=TStringList.Create;
  503.   fwRule.GetIPRuleList(ruleList);
  504.   //For IP Rule
  505.   for i:=0 to ruleList.Count-1 do
  506.   begin
  507.       fwRule.ExtractIPRule(ruleList[i],fromIP,toIP,fromPort,toPort,Permit);
  508.       ListItem:= ListView_FWRule.Items.Add;
  509.       ListItem.ImageIndex:=5;
  510.       ListItem.Caption:= fromIp+' ~'+toIP;
  511.       ListItem.SubItems.Add(Format('%d ~%d',[fromPort,toPort])) ;
  512.       ListItem.SubItems.Add('TCP/UDP');
  513.       if( permit=1) then
  514.           ListItem.SubItems.Add('ALLOW')
  515.       else
  516.           ListItem.SubItems.Add('DENY');
  517.   end;
  518.   //For Path Rule
  519.   ruleList.Clear;
  520.   ImageListForAppPath.Clear;
  522.   fwRule.GetPathRuleList(ruleList);
  523.   for i:=0 to ruleList.Count-1 do
  524.   begin
  525.       fwRule.ExtractPathRule(ruleList[i],path, Permit);
  526.       imIndex:=ImageListForAppPath.AddIcon(Form_FWRule.GetICON(path));
  528.       ListItem:= Path_List.Items.Add;
  529.       ListItem.Caption:= path;
  530.       ListItem.ImageIndex:=  imIndex;
  531.       if permit=1 then
  532.           ListItem.SubItems.Add('ALLOW')
  533.           //ListItem.SubItems.i
  534.       else
  535.           ListItem.SubItems.Add('DENY');
  536.   end;
  537.   ruleList.Free;
  539.   //For security level.
  540.    TrackBar_Level.Position:=2-fwRule.GetSecurityLevel;
  542.    TrackBar_LevelChange(nil);
  543. end;
  545. {close form options}
  546. procedure TForm_Option.FormDestroy(Sender: TObject);
  547. begin
  548.      // 肺弊沤祸 辆丰
  549.      if isLogStarted then begin
  550.           DestroyIpcQueue('PSMFirewall');
  551.           isLogStarted:=False;
  552.      end;
  554.      while bPortScanning do begin
  555.           Sleep(100);
  556.           Application.ProcessMessages;
  557.      end;
  559.      logImages.Free;
  560.      logPaths.Free;
  561. end;
  563. procedure TForm_Option.FormClose(Sender: TObject;
  564.           var Action: TCloseAction);
  565. var
  566.     HMapMutex:THandle;
  567. begin
  568.      //Hide form
  569.      Action:=caHide;   //TRR
  571.      if isLogStarted then begin
  572.           //Stop Logging function.
  573.           DestroyIpcQueue('PSMFirewall');
  574.           isLogStarted:=False;
  575.      end;
  577.      ListView_FWRule.Clear;
  579.      HMapMutex := CreateMutex(nil, false, pchar('PSMFirewallApplication'));
  580.      if HMapMutex <> 0 then begin
  581.           if WaitForSingleObject(HMapMutex,100) = WAIT_OBJECT_0 then
  582.           begin
  583.                 ListView_FWLog.Clear;
  584.           end;
  585.      end;
  586.      ReleaseMutex(HMapMutex);
  587.      CloseHandle(HMapMutex);
  589.      Path_List.Clear;
  591.      while bPortScanning do begin
  592.           Sleep(100);
  593.           Application.ProcessMessages;
  594.      end;
  596. end;
  599. {
  600. Show Shared Folder List View
  601. }
  602. procedure TForm_Option.TabSheet_FolderShow(Sender: TObject);
  603. begin
  604.      UpdateFolderInfo(self);
  605. end;
  606. {
  607. Show tab-page of choosing security level.
  608. }
  609. procedure TForm_Option.TabSheet_LevelShow(Sender: TObject);
  610. begin
  611. ;
  612. end;
  614. procedure TForm_Option.TrackBar_LevelChange(Sender: TObject);
  615. var
  616.      nLevel: Integer;
  617. begin
  618.      nLevel:= 2 - TrackBar_Level.Position;
  619.      if (nLevel = 0) then begin
  620.           Label_Level0.Caption:= 'Low';
  621.           Label_Level2.Caption:= '- All IP/Ports are allow except:';
  622.           Label_Level3.Caption:= '- All dened IP/Ports in the rule set are blocked';
  623.      end else if (nLevel = 1) then begin
  624.           Label_Level0.Caption:= 'Medium';
  625.           Label_Level2.Caption:= '- Allow only Well - Known Ports';
  626.           Label_Level3.Caption:= '- All dened IP/Ports in the rule set are blocked'
  627.      end else if (nLevel = 2) then begin
  628.           Label_Level0.Caption:= 'High';
  629.           Label_Level2.Caption:= '- Block all IP/Ports except:';
  630.           Label_Level3.Caption:= '- All allowed IP/Ports in the rule set are allowed'
  631.      end;
  632.      //Btn_Level_OK.Enabled:= True;
  634.      BmBtnApplySecurity.Enabled:=True;
  635. end;
  637. {
  638. Select Shared foler in list view
  639. }
  640. procedure TForm_Option.ListView_FolderSelectItem(Sender: TObject;
  641.   Item: TListItem; Selected: Boolean);
  642. begin
  643.      if ListView_Folder.ItemIndex < 0 then begin
  644.           BmBtnFolderView.Enabled:= False;
  645.           BmBtnFolderInfo.Enabled:= False;
  646.           BmBtnFolderStop.Enabled:= False;
  647.      end else begin
  648.           BmBtnFolderView.Enabled:= True;
  649.           BmBtnFolderInfo.Enabled:= True;
  650.           BmBtnFolderStop.Enabled:= True;
  652.      end;
  653. end;
  654. {
  655. For shared folder
  656. }
  657. {
  658. procedure TForm_Option.Btn_FolderViewClick(Sender: TObject);     // 弃歹 郴侩 焊扁
  659. var
  660.      nIndex: Integer;
  661.      strPath: String;
  662. begin
  663.      nIndex:= ListView_Folder.ItemIndex;
  664.      if nIndex >= 0 then begin
  665.           strPath:= ListView_Folder.Items.Item[nIndex].SubItems.Strings[0];
  666.           ShellExecute(Handle,'open','explorer',PChar(strPath),'',SW_SHOWNORMAL);
  667.      end;
  668. end;
  669. }
  671. {
  672. For shared folder
  673. }
  675. {
  676. For shared folder
  677. }
  678. procedure TForm_Option.Btn_FolderReloadClick(Sender: TObject);   // 货肺 绊魔
  679. begin
  680.      UpdateFolderInfo(self);
  681. end;
  689. procedure TForm_Option.ListView_FWRuleEnter(Sender: TObject);
  690. begin
  691.     ChosenRuleType:=IP_RULE_TYPE;
  692. end;
  694. procedure TForm_Option.Path_ListEnter(Sender: TObject);
  695. begin
  696.      ChosenRuleType:=PATH_RULE_TYPE;
  697. end;
  700. procedure TForm_Option.ListView_FWRuleSelectItem(Sender: TObject;
  701.   Item: TListItem; Selected: Boolean);
  702. begin
  703. end;
  705. {Add IP Rule from Log list by selecting add IP rule on popup menu}
  706. procedure TForm_Option.mnuAddIPRuleClick(Sender: TObject);
  707. var
  708.     //selectedIndex: Integer;
  709.     //Rule Items
  710.     //time:string;
  711.     ip: string;
  712.     //port: integer;
  713.     sPort:String;
  714.     permission: integer;
  716.     //SelItem:TListItem;
  717.     //strTmp:String;
  718.     fwRule:TPSMFWRule;
  719. begin
  720.      if  ListView_FWLog.Selected= nil then
  721.           MessageBox(Self.Handle,'Select one item in log list first','PSM Firewall',MB_OK or MB_ICONEXCLAMATION)
  723.      else
  724.           begin
  725.                 ip:= ListView_FWLog.Selected.SubItems[2];    //IP column
  726.                 sPort:= ListView_FWLog.Selected.SubItems[4]; //Port column
  728.                 if CompareText('DENY',ListView_FWLog.Selected.SubItems[1])=0 then
  729.                     Permission:=0
  730.                 else Permission:=1;
  731.                 //ShowMessage(ip);
  733.                 //Form_FWRule.MaskEdit_sIP.Text:=fwRule.IPStd(PChar(ip));
  734.                 Form_FWRule.SetIPFrom(fwRule.IPStd(PChar(ip)));
  735.                 Form_FWRule.MaskEdit_sPort.Text:=Format('%5s',[sPort]);
  736.                 Form_FWRule.Radio_IP_Single.Checked:=TRUE;
  737.                 Form_FWRule.Radio_Port_Single.Checked:=TRUE;
  738.                 if Permission=1 then
  739.                     Form_FWRule.Radio_Access_Allow.Checked:=True
  740.                 else
  741.                     Form_FWRule.Radio_Access_Deny.Checked:=True;
  742.                 Form_FWRule.FWRule.ActivePage:=Form_FWRule.IpRulePage;
  743.                 Form_FWRule.Show;
  745.           end;
  746. end;
  747. {Add Path Rule From Log List}
  748. procedure TForm_Option.mnuAddPathRuleClick(Sender: TObject);
  749. var
  750.      path: string;
  751.      permission: integer;
  752. begin
  753.      if  ListView_FWLog.Selected= nil then
  754.           MessageBox(Self.Handle,'Select one item in log list first','PSM Firewall',MB_OK or MB_ICONEXCLAMATION)
  756.      else
  757.           begin
  758.                 path:= ListView_FWLog.Selected.SubItems[5]; //Path column
  760.                 if CompareText('DENY',ListView_FWLog.Selected.SubItems[1])=0 then
  761.                     Permission:=0
  762.                 else Permission:=1;
  763.                 //ShowMessage(path);
  765.                 Form_FWRule.PathEdit.Text:=LowerCase(path);
  768.                 if Permission=1 then
  769.                     Form_FWRule.Permission.ItemIndex:=0
  770.                 else
  771.                     Form_FWRule.Permission.ItemIndex:=1;
  773.                 Form_FWRule.FWRule.ActivePage:=Form_FWRule.PathRulePage;
  774.                 Form_FWRule.Show;
  776.           end;
  777. end;
  778. {display or hide direction column}
  779. procedure TForm_Option.mnuDirectionClick(Sender: TObject);
  780. begin
  781.     if mnuDirection.Checked then
  782.     begin
  783.          mnuDirection.Checked:= False;
  784.          ListView_FWLog.Columns[1].Width:=0;
  785.     end
  786.     else
  787.     begin
  788.          mnuDirection.Checked:= TRue;
  789.          ListView_FWLog.Columns[1].Width:=70;
  790.     end;
  791. end;
  792. {display application path or not}
  793. procedure TForm_Option.mnuApplicationPathClick(Sender: TObject);
  794. begin
  795.     if mnuApplicationpath.Checked then
  796.     begin
  797.          mnuApplicationpath.Checked:= False;
  798.          ListView_FWLog.Columns[6].Width:=0;
  799.     end
  800.     else
  801.     begin
  802.          mnuApplicationpath.Checked:= True;
  803.          ListView_FWLog.Columns[6].Width:=250;
  804.     end;
  805. end;
  806. {display or hide bytes received}
  807. procedure TForm_Option.mnuBytesReceivedClick(Sender: TObject);
  808. begin
  809.     if mnuBytesReceived.Checked then
  810.     begin
  811.          mnuBytesReceived.Checked:= False;
  812.          ListView_FWLog.Columns[7].Width:=0;
  813.     end
  814.     else
  815.     begin
  816.          mnuBytesReceived.Checked:= True;
  817.          ListView_FWLog.Columns[7].Width:=70;
  818.     end;
  819. end;
  821. procedure TForm_Option.mnuBytesSentClick(Sender: TObject);
  822. begin
  823.     if mnuBytesSent.Checked then
  824.     begin
  825.          mnuBytesSent.Checked:= False;
  826.          ListView_FWLog.Columns[8].Width:=0;
  827.     end
  828.     else
  829.     begin
  830.          mnuBytesSent.Checked:= True;
  831.          ListView_FWLog.Columns[8].Width:=70;
  832.     end;
  833. end;
  835. procedure TForm_Option.mnuSocketNumberClick(Sender: TObject);
  836. begin
  837.     if mnuSocketNumber.Checked then
  838.     begin
  839.          mnuSocketNumber.Checked:= False;
  840.          ListView_FWLog.Columns[10].Width:=0;
  841.          //ListView_FWLog.Columns[10].//
  842.     end
  843.     else
  844.     begin
  845.          mnuSocketNumber.Checked:= True;
  846.          ListView_FWLog.Columns[10].Width:=50;
  847.     end;
  848. end;
  850. procedure TForm_Option.mnuPermissionClick(Sender: TObject);
  851. begin
  852.      if mnuPermission.Checked then
  853.     begin
  854.          mnuPermission.Checked:= False;
  855.          ListView_FWLog.Columns[2].Width:=0;
  856.     end
  857.     else
  858.     begin
  859.          mnuPermission.Checked:= True;
  860.          ListView_FWLog.Columns[2].Width:=70;
  861.     end;
  862. end;
  864. procedure TForm_Option.ListView_FWLogEnter(Sender: TObject);
  865. begin
  866.      if(ListView_FWLog.Selected<>Nil) then
  867.           ListView_FWLog.Selected.MakeVisible(False);
  869. end;
  871. procedure TForm_Option.mnuClearLogClick(Sender: TObject);
  872. //var
  873. //HMapMutex: THandle;
  874. begin
  875.      //HMapMutex := CreateMutex(nil, false, pchar('PSMFirewallApplication'));
  876.      //if HMapMutex <> 0 then begin
  877.      //     if WaitForSingleObject(HMapMutex,100) = WAIT_OBJECT_0 then
  878.       //    begin
  879.                ListView_FWLog.Visible:=False;
  880.                ListView_FWLog.Items.BeginUpdate;
  881.                ListView_FWLog.Items.Clear;
  882.                ListView_FWLog.Items.EndUpdate;
  883.                ListView_FWLog.Visible:=True;
  884.         //  end;
  885.      //end;
  886.      //ReleaseMutex(HMapMutex);
  887.      //CloseHandle(HMapMutex);
  888. end;
  890. procedure TForm_Option.mnuHostNameClick(Sender: TObject);
  891. begin
  892.      if mnuHostName.Checked then
  893.     begin
  894.          mnuHostName.Checked:= False;
  895.          ListView_FWLog.Columns[4].Width:=0;
  896.     end
  897.     else
  898.     begin
  899.          mnuHostName.Checked:= True;
  900.          ListView_FWLog.Columns[4].Width:=150;
  901.     end;
  902. end;
  904. {
  905. Add new Rule, This function displays rule editor dialog
  906. }
  908. procedure TForm_Option.BmBtnAddNewClick(Sender: TObject);
  909. begin
  910.       Form_FWRule.ShowModal;
  911. end;
  913. {
  914. remove Rules from display list
  915. Huy marked.
  916. }
  918. procedure TForm_Option.BmtBtnDeleteClick(Sender: TObject);
  919. var
  920.      nIndex: Integer;
  921.      //strFileName: String;
  922.      //bSuccess: Boolean;
  923.      //TempFile: TextFile;
  924.      //Huy
  925.      RuleIdentify: String;
  926.      //StrTmp:String;
  927.      FromIP,ToIP:string;
  928.      FWRule: TPSMFWRule;
  929.      Delim: Integer;
  931.      //h:String;
  932. begin
  933.         nIndex:= ListView_FWRule.ItemIndex;
  935.      if((nIndex >= 0) and (ChosenRuleType=IP_RULE_TYPE)) then begin
  936.           if Application.MessageBox('Delete the selected IP/Port rule?', 'PSM Firewall', MB_YESNO) = IDYES then begin
  937.                {Remove from Registry}
  938.                RuleIdentify:= ListView_FWRule.Items.Item[nIndex].Caption;
  939.                Delim:=Pos('~',RuleIdentify);
  940.                FromIP:=Trim(LeftStr(RuleIdentify,Delim-1));
  941.                ToIP:=Trim(RightStr(RuleIdentify,Length(RuleIdentify)-Delim));
  942.                //AnsiReplaceStr(RuleIdentify,'~','|');
  943.                FWRule.RemoveIPRule(PChar(FromIP),PChar(ToIP));
  944.                {Remore from Displaying List}
  945.                ListView_FWRule.Items.Delete(nIndex);
  947.                if(Form_Main.bFWStart)then
  948.                 ApplyFWStatus(1);
  950.           end;
  952.      end else begin //No rule is selected in IP Rule list, then try with Path List
  953.           nIndex:= Path_List.ItemIndex;
  954.           if(( nIndex>=0) and (ChosenRuleType=PATH_RULE_TYPE)) then
  955.                begin
  956.                     if Application.MessageBox('Delete the selected application rule?', 'PSM Firewall', MB_YESNO) = IDYES then begin
  957.                         //delete from registry
  958.                         RuleIdentify:= Path_List.Items.Item[nIndex].Caption;
  959.                         FWRule.RemovePathRule(Pchar(RuleIdentify));
  960.                         //delre from List
  961.                         Path_List.Items.Delete(nIndex);
  962.                         if(Form_Main.bFWStart)then
  963.                               ApplyFWStatus(1);
  964.                     end;
  965.                end
  966.           else
  967.            Application.MessageBox('Select the rule first!', 'iSafer', MB_OK);
  968.      end;
  969. end;
  970. {
  971. Apply sercurity level
  972. }
  973. procedure TForm_Option.BmBtnApplySecurityClick(Sender: TObject);
  974. var
  975.      nLevel: Integer;
  976.      fwRuler:TPSMFWRule;
  977. begin
  978.      nLevel:= 2 - TrackBar_Level.Position;
  979.      fwRuler.SetSecurityLevel(nLevel);
  980.      BmBtnApplySecurity.Enabled:= False;
  982.      if(Form_Main.bFWStart)then
  983.               ApplyFWStatus(1);
  984.               
  985. end;
  986. {
  987. Cancel apply sercurity level
  988. }
  989. procedure TForm_Option.BmBtnCancelSecuiryClick(Sender: TObject);
  990. var
  991.      nLevel: Integer;
  992.      fwRule:TPSMFWRule;
  993. begin
  994.      nLevel:=fwRule.GetSecurityLevel;
  995.      TrackBar_Level.Position:= 2 - nLevel;
  996.      BmBtnApplySecurity.Enabled:= False;
  997. end;
  999. procedure TForm_Option.BmBtnFolderViewClick(Sender: TObject);
  1000. var
  1001.      nIndex: Integer;
  1002.      strPath: String;
  1003. begin
  1004.      nIndex:= ListView_Folder.ItemIndex;
  1005.      if nIndex >= 0 then begin
  1006.           strPath:= ListView_Folder.Items.Item[nIndex].SubItems.Strings[0];
  1007.           ShellExecute(Handle,'open','explorer',PChar(strPath),'',SW_SHOWNORMAL);
  1008.      end;
  1009. end;
  1011. procedure TForm_Option.BmBtnFolderInfoClick(Sender: TObject);
  1012. var
  1013.      nIndex: Integer;
  1014.      strItem: String;
  1015.      ExecInfo: TShellExecuteInfo;
  1016. begin
  1017.      nIndex:= ListView_Folder.ItemIndex;
  1018.      if nIndex >= 0 then begin
  1019.           strItem:= ListView_Folder.Items.Item[nIndex].SubItems.Strings[0];
  1020.           FillChar(ExecInfo, SizeOf(ExecInfo), 0);
  1021.           ExecInfo.cbSize := SizeOf(TShellExecuteInfo);
  1022.           ExecInfo.fMask := SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS;
  1023.           ExecInfo.lpFile := PChar(strItem);
  1024.           ExecInfo.lpVerb := 'Properties';
  1025.           ExecInfo.nShow := SW_SHOWDEFAULT;
  1026.           ShellExecuteEx(@ExecInfo);
  1027.      end;
  1028. end;
  1030. procedure TForm_Option.BmBtnFolderStopClick(Sender: TObject);
  1033.    type
  1034.      tFuncNT = function(ServerName, NetName: LPWSTR; Reserved: DWORD): DWord; stdcall;
  1035.      tFunc95 = function(ServerName, NetName: PChar; Reserved: DWORD): Integer; stdcall;
  1036. var
  1037.      nIndex: Integer;
  1038.      strNameNT: WideString;
  1039.      strName95: String;
  1040.      strPath, strTemp: String;
  1041.      DLLHandle: THandle;
  1042.      MyFuncNT: TFuncNT;
  1043.      MyFunc95: TFunc95;
  1044. begin
  1045.      nIndex:= ListView_Folder.ItemIndex;
  1046.      if nIndex >= 0 then begin
  1047.           strNameNT:= ListView_Folder.Items.Item[nIndex].Caption;
  1048.           strName95:= ListView_Folder.Items.Item[nIndex].Caption;
  1049.           strPath:= ListView_Folder.Items.Item[nIndex].SubItems.Strings[0];
  1050.           strTemp:= strName95 + ' -- Unshare the selected folder?';
  1051.           if Application.MessageBox(PChar(strTemp), 'iSafer', MB_YESNO) = IDYES then begin
  1052.                if OS.dwPlatformId = VER_PLATFORM_WIN32_NT then begin
  1053.                     // Windows NT/2000 拌凯
  1054.                     DLLHandle:= LoadLibrary('netapi32.dll');
  1055.                     if DLLHandle < 32 then exit;
  1056.                     @MyFuncNT:= GetProcAddress(DLLHandle, 'NetShareDel');
  1057.                     if not (@MyFuncNT = nil) then begin
  1058.                          MyFuncNT('', PWideChar(strNameNT), 0);
  1059.                     end;
  1060.                     FreeLibrary(DLLHandle);
  1061.                end else begin
  1062.                     // Windows 95/98 拌凯
  1063.                     DLLHandle:= LoadLibrary('svrapi.dll');
  1064.                     if DLLHandle < 32 then exit;
  1065.                     @MyFunc95:= GetProcAddress(DLLHandle, 'NetShareDel');
  1066.                     if not (@MyFunc95 = nil) then begin
  1067.                          MyFunc95('', PChar(strName95), 0);
  1068.                     end;
  1069.                     FreeLibrary(DLLHandle);
  1070.                end;
  1071.                UpdateFolderInfo(self);   // 傍蜡 弃歹 沥焊 舅酒郴扁
  1072.           end;
  1073.      end;
  1074. end;
  1076. procedure TForm_Option.BmBtnReloadClick(Sender: TObject);
  1077. begin
  1078.         UpdateFolderInfo(self);
  1079. end;
  1081. procedure TForm_Option.BmBtnPortDefaultClick(Sender: TObject);
  1082. var
  1083.      i, nPortCount: Integer;
  1084.      PortNumber:Integer;
  1085.      currTh:Integer;
  1086.      ListItem: TListItem;
  1087. begin
  1088.       nPortCount:=0;
  1089.       ListView_PortTemp.Width:= 0;
  1090.       ListView_PortTemp.Height:= 0;
  1091.       ListView_PortTemp.Visible:= True;
  1093.       for i:=0 to ListView_PortTemp.Items.Count-1 do
  1094.                if ListView_PortTemp.Items.Item[i].SubItems.Strings[1] = 'Default' then begin
  1095.                     inc(nPortCount);
  1096.                end;
  1097.       ProgressBar.Min:=0;
  1098.       ProgressBar.Max:=100;
  1099.       ProgressBar.Position:=0;
  1100.       bPortScanning:= True;
  1102.       ListView_Port.Items.BeginUpdate;
  1103.       ListView_Port.Items.Clear;
  1105.       currTh:=0;
  1106.       for i:=0 to ListView_PortTemp.Items.Count-1 do begin
  1107.                if ListView_PortTemp.Items.Item[i].SubItems.Strings[1] = 'Default' then
  1108.                begin
  1110.                     ProgressBar.Position := Round(100*currTh/nPortCount);
  1111.                     PortNumber:= StrToInt(ListView_PortTemp.Items.Item[i].SubItems.Strings[0]);
  1113.                     try
  1114.                          // Trying to open serversocket
  1115.                          ServerSocket.Port := PortNumber;
  1116.                          ServerSocket.Open();
  1117.                          ServerSocket.Close();
  1118.                          ListItem:= ListView_Port.Items.Add;
  1119.                          ListItem.ImageIndex:=7;
  1120.                          ListItem.Caption:= ListView_PortTemp.Items.Item[i].Caption;
  1121.                          ListItem.SubItems.Add(ListView_PortTemp.Items.Item[i].SubItems.Strings[0]);
  1122.                          ListItem.SubItems.Add('Close');
  1123.                     except
  1124.                          ListItem:= ListView_Port.Items.Add;
  1125.                          ListItem.ImageIndex:=7;
  1126.                          ListItem.Caption:= ListView_PortTemp.Items.Item[i].Caption;
  1127.                          ListItem.SubItems.Add(ListView_PortTemp.Items.Item[i].SubItems.Strings[0]);
  1128.                          ListItem.SubItems.Add(' Open ');
  1129.                     end; // try/except
  1131.                     inc(currTh);
  1132.                end;
  1133.           end;
  1134.       bPortScanning:= False;
  1135.       ListView_Port.Items.EndUpdate;
  1136.       ListView_PortTemp.Visible:= False;
  1137.       ProgressBar.Position :=0;
  1139. end;
  1143. procedure TForm_Option.BmBtnPortBackDoorClick(Sender: TObject);
  1144. var
  1145.      i, nPortCount: Integer;
  1146.      PortNumber:Integer;
  1147.      currTh:Integer;
  1148.      ListItem: TListItem;
  1149. begin
  1150.      //Count the number of backdoor port
  1151.       nPortCount:=0;
  1152.       ListView_PortTemp.Width:= 0;
  1153.       ListView_PortTemp.Height:= 0;
  1154.       ListView_PortTemp.Visible:= True;
  1156.       for i:=0 to ListView_PortTemp.Items.Count-1 do
  1157.                if ListView_PortTemp.Items.Item[i].SubItems.Strings[1] = 'Backdoor' then begin
  1158.                     inc(nPortCount);
  1159.                end;
  1160.       ProgressBar.Min:=0;
  1161.       ProgressBar.Max:=100;
  1162.       ProgressBar.Position:=0;
  1163.       bPortScanning:= True;
  1165.       ListView_Port.Items.BeginUpdate;
  1166.       ListView_Port.Items.Clear;
  1168.       currTh:=0;
  1169.       for i:=0 to ListView_PortTemp.Items.Count-1 do begin
  1170.                if ListView_PortTemp.Items.Item[i].SubItems.Strings[1] = 'Backdoor' then
  1171.                begin
  1173.                     ProgressBar.Position := Round(100*currTh/nPortCount);
  1174.                     PortNumber:= StrToInt(ListView_PortTemp.Items.Item[i].SubItems.Strings[0]);
  1176.                     try
  1177.                          // Trying to open serversocket
  1178.                          ServerSocket.Port := PortNumber;
  1179.                          ServerSocket.Open();
  1180.                          ServerSocket.Close();
  1182.                          ListItem:= ListView_Port.Items.Add;
  1183.                          ListItem.ImageIndex:=7;
  1184.                          ListItem.Caption:= ListView_PortTemp.Items.Item[i].Caption;
  1185.                          ListItem.SubItems.Add(ListView_PortTemp.Items.Item[i].SubItems.Strings[0]);
  1186.                          ListItem.SubItems.Add('Close');
  1187.                     except
  1188.                          ListItem:= ListView_Port.Items.Add;
  1190.                          ListItem.ImageIndex:=7;
  1191.                          ListItem.Caption:= ListView_PortTemp.Items.Item[i].Caption;
  1192.                          ListItem.SubItems.Add(ListView_PortTemp.Items.Item[i].SubItems.Strings[0]);
  1193.                          ListItem.SubItems.Add(' Open ');
  1194.                     end; // try/except
  1196.                     inc(currTh);
  1197.                end;
  1198.           end;
  1199.       bPortScanning:= False;
  1200.       ListView_Port.Items.EndUpdate;
  1201.       ListView_PortTemp.Visible:= False;
  1202.       ProgressBar.Position :=0;
  1204. end;
  1206. procedure TForm_Option.BmBtnPortAllClick(Sender: TObject);
  1208. var
  1209.      i, nPortCount: Integer;
  1210.      PortNumber:Integer;
  1211.      currTh:Integer;
  1212.      ListItem: TListItem;
  1213. begin
  1214.       nPortCount:=0;
  1215.       ListView_PortTemp.Width:= 0;
  1216.       ListView_PortTemp.Height:= 0;
  1217.       ListView_PortTemp.Visible:= True;
  1219.       for i:=0 to ListView_PortTemp.Items.Count-1 do
  1220.            inc(nPortCount);
  1221.       ProgressBar.Min:=0;
  1222.       ProgressBar.Max:=100;
  1223.       ProgressBar.Position:=0;
  1224.       bPortScanning:= True;
  1226.       ListView_Port.Items.BeginUpdate;
  1227.       ListView_Port.Items.Clear;
  1229.       currTh:=0;
  1230.       for i:=0 to ListView_PortTemp.Items.Count-1 do begin
  1231.                //if ListView_PortTemp.Items.Item[i].SubItems.Strings[1] = 'Backdoor' then
  1234.                     ProgressBar.Position := Round(100*currTh/nPortCount);
  1235.                     PortNumber:= StrToInt(ListView_PortTemp.Items.Item[i].SubItems.Strings[0]);
  1237.                          // Trying to open serversocket
  1238.                     try
  1239.                            ServerSocket.Port := PortNumber;
  1240.                            ServerSocket.Open();
  1241.                            ServerSocket.Close();
  1242.                            ListItem:= ListView_Port.Items.Add;
  1243.                            ListItem.ImageIndex:=7;
  1244.                            ListItem.Caption:= ListView_PortTemp.Items.Item[i].Caption;
  1245.                            ListItem.SubItems.Add(ListView_PortTemp.Items.Item[i].SubItems.Strings[0]);
  1246.                            ListItem.SubItems.Add('Close');
  1247.                     except
  1248.                            ListItem:= ListView_Port.Items.Add;
  1249.                            ListItem.ImageIndex:=7;
  1250.                            ListItem.Caption:= ListView_PortTemp.Items.Item[i].Caption;
  1251.                            ListItem.SubItems.Add(ListView_PortTemp.Items.Item[i].SubItems.Strings[0]);
  1252.                            ListItem.SubItems.Add(' Open ');
  1253.                     end;//Try
  1255.                     inc(currTh);
  1256.                //end;
  1257.           end;
  1258.       bPortScanning:= False;
  1259.       ListView_Port.Items.EndUpdate;
  1260.       ListView_PortTemp.Visible:= False;
  1261.       ProgressBar.Position :=0;
  1262. end;
  1264. procedure TForm_Option.mnuRuleAddnewClick(Sender: TObject);
  1265. begin
  1266.       if(ChosenRuleType=IP_RULE_TYPE) then
  1267.         begin
  1268.             Form_FWRule.FWRule.ActivePage:=Form_FWRule.IpRulePage;
  1269.             Form_FWRule.ShowModal;
  1270.         end
  1271.       else  if (ChosenRuleType=PATH_RULE_TYPE) then
  1272.         begin
  1273.                 Form_FWRule.FWRule.ActivePage:=Form_FWRule.PathRulePage;
  1274.                 Form_FWRule.ShowModal;
  1275.         end;
  1276. end;
  1278. procedure TForm_Option.DeleteClick(Sender: TObject);
  1279. begin
  1280.         BmtBtnDeleteClick(nil);
  1281. end;
  1283. procedure TForm_Option.mnuRuleChangePermisionClick(Sender: TObject);
  1284. var
  1285.     FWRule :TPSMFWRule;
  1286.     RuleIdentify:string;
  1287.     nIndex:Integer;
  1288.     Delim:Integer;
  1290.     FromIP:string;
  1291.     ToIP:string;
  1293.     FromPort:string;
  1294.     ToPort:string;
  1295.     PortRange:string;
  1297.     SlectedItem:TListItem;
  1298.     Permision:String;
  1300.     PermissionValue:Integer;
  1302.     strmsg:string;
  1303. begin
  1304.      if(ChosenRuleType=IP_RULE_TYPE) then
  1305.            begin
  1306.                nIndex:=  ListView_FWRule.ItemIndex;
  1307.                if(nIndex>=0) then
  1308.                begin
  1309.                       SlectedItem:= ListView_FWRule.Items.Item[nIndex];
  1310.                       RuleIdentify:= SlectedItem.Caption;
  1311.                       Delim:=Pos('~',RuleIdentify);
  1312.                       FromIP:=Trim(LeftStr(RuleIdentify,Delim-1));
  1313.                       ToIP:=Trim(RightStr(RuleIdentify,Length(RuleIdentify)-Delim));
  1316.                       PortRange:= SlectedItem.SubItems[0];
  1317.                       Permision:= SlectedItem.SubItems[2];
  1319.                       Delim:=Pos('~',PortRange);
  1320.                       FromPort:=Trim(LeftStr(PortRange,Delim-1));
  1321.                       ToPort:=Trim(RightStr(PortRange,Length(PortRange)-Delim));
  1323.                       if(Permision='DENY') then PermissionValue:=0
  1324.                         else  PermissionValue:=1;
  1326.                       strmsg:='IP Rule : '#13#10'IP range:   [From '+ FromIP+' , To '+ ToIP+']'#13#10;
  1327.                       strmsg:=strmsg+'Port range:   ['+FromPort+', '+ ToPort+']'#13#10;
  1328.                       strmsg:=strmsg+'Permission:   '+ Permision+''#13#10;
  1329.                       strmsg:=strmsg+'**********************'#13#10;
  1330.                       if(Permision='DENY') then
  1331.                            strmsg:=strmsg+'Change permission to (Allow)?'
  1332.                       else  strmsg:=strmsg+'Change permission to (Deny)?';
  1336.                       if Application.MessageBox(PChar(strmsg),'PSM Firewall', MB_YESNO) = IDYES then
  1337.                         begin
  1338.                             if(Permision='DENY') then
  1339.                                 begin
  1340.                                         FWRule.ModifyIPrule(Pchar(fromIP),PChar(toIP),StrToInt(fromPort),strtoint(toPort),StrToInt(fromPort),strtoint(toPort),1);
  1341.                                         SlectedItem.SubItems[2]:='ALLOW';
  1342.                                 end
  1343.                             else
  1344.                                 begin
  1345.                                         FWRule.ModifyIPrule(Pchar(fromIP),PChar(toIP),StrToInt(fromPort),strtoint(toPort),strtoint(fromPort),strtoint(toPort),0) ;
  1346.                                         SlectedItem.SubItems[2]:='DENY' ;
  1347.                                 end;
  1348.                             if(Form_Main.bFWStart) then
  1349.                                 ApplyFWStatus(1);
  1350.                         end
  1352.                         //   Application.MessageBox('No rule is selected', 'PSM Firewall', MB_OK);
  1353.                end;
  1354.            end
  1355.         else if(ChosenRuleType=PATH_RULE_TYPE) then
  1356.            begin
  1357.                 nIndex:=  Path_List.ItemIndex;
  1358.                 if(nIndex>=0) then
  1359.                     begin
  1360.                          SlectedItem:=Path_List.Items.Item[nIndex];
  1361.                          RuleIdentify:= SlectedItem.Caption;
  1362.                          Permision:= SlectedItem.SubItems[0];
  1364.                          strmsg:='Application rule : '#13#10'program path =   '+RuleIdentify+' '#13#10;
  1365.                          strmsg:=strmsg+'Permission:   '+ Permision+''#13#10;
  1366.                          strmsg:=strmsg+'**********************'#13#10;
  1367.                          if(Permision='DENY') then
  1368.                            strmsg:=strmsg+'Change permission to (Allow)?'
  1369.                          else  strmsg:=strmsg+'Change permission to (Deny)?';
  1371.                         if Application.MessageBox(PChar(strmsg),'PSM Firewall', MB_YESNO) = IDYES then
  1372.                              begin
  1373.                                    if(Permision='DENY') then
  1374.                                          begin
  1375.                                              FWRule.ModifyPathrule(Pchar(RuleIdentify),1) ;
  1376.                                              SlectedItem.SubItems[0]:='ALLOW';
  1377.                                           end
  1378.                                    else
  1379.                                          begin
  1380.                                             FWRule.ModifyPathrule(Pchar(RuleIdentify),0) ;
  1381.                                             SlectedItem.SubItems[0]:='DENY' ;
  1382.                                           end;
  1383.                                     if(Form_Main.bFWStart) then
  1384.                                              ApplyFWStatus(1);
  1385.                              end;
  1386.                     end
  1387.                 else
  1388.                         begin
  1389.                               Application.MessageBox('No rule is selected', 'PSM Firewall', MB_OK);
  1390.                         end;
  1391.            end;
  1392. end;
  1394. end.