dict.cpp

VC++编写的类似Sniffer的网络数据包监听程序

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "dict.h"
#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
extern boolean const_pass;//是否使用内定密码
Tdict_f *dict_f;
//---------------------------------------------------------------------------
__fastcall Tdict_f::Tdict_f(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tdict_f::N1Click(TObject *Sender)
{
 if (main_f->open_port->Execute())
  {
   ((TMemo *)PopupMenu1->PopupComponent)->Lines->LoadFromFile(main_f->open_port->FileName);
  }
}
//---------------------------------------------------------------------------
void __fastcall Tdict_f::N2Click(TObject *Sender)
{
 if (main_f->save_port->Execute())
  {
   ((TMemo *)PopupMenu1->PopupComponent)->Lines->SaveToFile(main_f->save_port->FileName);
  }
}
//---------------------------------------------------------------------------
void __fastcall Tdict_f::N4Click(TObject *Sender)
{
 ((TMemo *)PopupMenu1->PopupComponent)->Clear();
}
//---------------------------------------------------------------------------
void __fastcall Tdict_f::Button1Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------
void __fastcall Tdict_f::user_listChange(TObject *Sender)
{
 user_l->Caption=IntToStr(user_list->Lines->Count);
 pass_l->Caption=IntToStr(pass_list->Lines->Count);
}
//---------------------------------------------------------------------------
void __fastcall Tdict_f::N5Click(TObject *Sender)
{
 int i=0,len;
 AnsiString str;
for(i=0;i<main_f->share_user->Items->Count;i++)
  {
   str=main_f->share_user->Items->Item[i]->Text;
   len=str.Pos(">[");
   if (len>1)
    {str.Delete(1,len+1);
     str.SetLength(str.Pos("]")-1);
     if (((TMemo *)PopupMenu1->PopupComponent)->Lines->IndexOf(str)==-1)
      {
       ((TMemo *)PopupMenu1->PopupComponent)->Lines->Add(str);
      }
    }
  }
}
//---------------------------------------------------------------------------


void __fastcall Tdict_f::CheckBox1Click(TObject *Sender)
{
 const_pass=CheckBox1->Checked;
}
//---------------------------------------------------------------------------