pop3_scan.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "pop3_scan.h"
#include "function_1.h"
#include "main.h"
#include "syncobjs.hpp"
#include "pop_scan.hpp"
#pragma package(smart_init)
extern unsigned long ping_ip_start;
extern unsigned long ping_ip_stop;//开始,结束的ip
extern int cur_ip;//已工作的ip数
extern int ping_thread_no;//pop_scan线程数
extern boolean thread_run;//是否停止

extern TStringList *port_lists;
extern TStringList *main_list;
extern boolean lookup_name;
extern int thread_type;//线程类型

extern TCriticalSection *ping_CriticalSection;//全局临界变量

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

void __fastcall TPop3_scan::ThreadDone(TObject * Sender)//退出线程
{
  ((TPop3_scan*)Sender)->Fpop_scan->Free();

  ping_thread_no--;//只找POP3主机
  main_f->Edit42->Text=IntToStr(ping_thread_no);
  if (ping_thread_no==0)
   {
     main_f->Bar->Position=0;
     main_f->Bar->Max=main_list->Count*port_lists->Count;
     main_f->Edit38->Text="扫描完毕,请查看...";
   }
}

__fastcall TPop3_scan::TPop3_scan(bool CreateSuspended)//建立线程
        : TThread(CreateSuspended)
{
  Fpop_scan=new Tpop_scan(main_f);
  OnTerminate =ThreadDone;
  FreeOnTerminate = True;
  Fpop_scan->Port=main_f->Edit44->Text;

  Fpop_scan->OnScan=OnScan;//只找POP3主机
  ping_thread_no++;

  main_f->Edit42->Text=IntToStr(ping_thread_no);
}

//---------------------------------------------------------------------------
void __fastcall TPop3_scan::Execute()
{
  int no;
  while (thread_run){
   ping_CriticalSection->Enter();//进入临界状态
    no=cur_ip;
    cur_ip++;
   if ((ping_ip_start+no)>ping_ip_stop)
     {
       ping_CriticalSection->Leave();//析放临界状态
       break;
     } else
    main_f->Edit38->Text=iptostr(ping_ip_start+no);
    main_f->Bar->Position=main_f->Bar->Position+1;

   ping_CriticalSection->Leave();//析放临界状态

   Fpop_scan->Address=iptostr(ping_ip_start+no);
   Fpop_scan->scan();
  }
}

void __fastcall TPop3_scan::OnScan(int Error)
{
 if (Error==0)
  {
   Synchronize(set_str);
  }
}

void __fastcall TPop3_scan::set_str()
{

  main_f->Edit40->Text=IntToStr(StrToInt(main_f->Edit40->Text)+1);
  main_f->pop3_list->Items->Add(Fpop_scan->Address);
  if (main_f->pop3_auto->Checked)
  {
   thread_type=110;
   main_f->thread_time->Enabled=true;
//    creat_pop3_detect();//建立查找用户线程
  }
}