Port Sniffer

Ahh endnu en Cracker wannabe.... we don't like your kind around here, begone

uranhjorten>>

Du er for langt ude!!!!

Hvis du endelig vil høre hvad jeg skal bruge det til så er det til en server jeg er i gang med at programmere på min skole til en mindre ø-gruppe...

nåååår ja..... ;D

Ved sq ik' helt om det er ok, http://download.com.com/3120-20-0.html?qt=port&tg=dl-2001

kan du ikke bare opfange output fra "netstat" (forudsat at det bliver til et windows program, det du laver), og så parse resultatet så det passer til det du skal bruge det til ?

Du kan gøre det med en (eller flere) TClientSocket komponent(er).

Lad os sige du bruger 1 ClientSocket.


ClientSocket->Address = "xxx.xxx.xxx.xxx"; // den ip du vil bruge
ClientSocket->Port    = 1;                // undersøg port 1
ClientSocket->Open();                      // Åben en forbindelse.

ClientSocket komponenten vil nu genere nogle events, alt afhængig af om der kunne skabes forbindelse eller ej.

Følgende events er værd at kigge på:
OnConnect 
OnDisconnet
OnError

Når du har afgjort om der kunne skabes forbindelse/ eller ej, så:

ClientSocket->Close();

Nu er du klar til at prøve den næste port.

ClientSocket->Port    = 2;                // undersøg port 2
ClientSocket->Open();                      // Åben en forbindelse.

Osv osv.

ok ,men hvor laver man det sådan så det køre i en lykke som checker om den er åben, og skriver i en ListBox hvis den er sandt..

Du kunne jo lave en tråd der scanner en port ad gangen.

Når tråden skal scanne en port, så signalerer du den med en semaphore.

Her er noget af Main koden. Den er ikke komplet. Den skal bare vise princippet:


// Denne metode sætter en socket forbindelse op, med en given IP+Port
TMainForm::ScanPort(int PortNr)
{
  ScanInProgress = false;
  ClientSocket->Close();                      // Luk forbindelsen.
  ClientSocket->Address = "xxx.xxx.xxx.xxx";  // den ip du vil bruge
  ClientSocket->Port    = PortNr;    // den port der skal undersøges 
  ScanInProgress = true;
  ClientSocket->Open();                      // Åben en forbindelse.
}

// Denne metode er en event routine fra ClientSocket, som indikerer, at du  fik forbindelse
void __fastcall TMainForm::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
  if (ScanInProgress)
  {
    // Du fik forbindelse. Registrer IP+PortNr.

    // Signaler din tråd. Du er nu klar til at scanne den næste port
    ReleaseSemaphore(ScanSemaphore,1,NULL);   
  }
}

// Denne metode er en event routine fra ClientSocket, som indikerer at der er sket en fejl. Porten anses for ikke at være tilgænglig (Det kan diskuteres!).
void __fastcall TMainForm::ClientSocket1Error(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
  ErrorCode = 0;
  if (ScanInProgress)
  {
    // Du fik en fejl.

    // Signaler din tråd. Du er nu klar til at scanne den næste port
    ReleaseSemaphore(ScanSemaphore,1,NULL);   
  }
}






Her er noget kode til tråden:

void TScanThread::ScanPort(int PortNr)
{
  MainForm->ScanPort(PortNr); 
}

void TScanThread::Execute()
{
  PortNr = 1;
  while (!Terminated)
  {
    WaitForSingleObject(ScanSemaphore,INFINITE);
    // Semaphore blev ignaleret.

    if (Terminated) return;  // Check om vi skal lukke ned.

    ScanPort(PortNr++);     
  }
}