SERVOX : SCANNEUR ET IDENTIFICATEUR DE SERVEURS HTTP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;  Scanneur de serveurs : SERVOX
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Scanneur Servox (pour HTTP, IRC...)

alias servox {
  if (($1 != $null) || ($2 != $null) || ($3 != $null) || ($4 != $null)) {
    sockclose servox*
    if (%type == $null) set %type $?="Type de serveur à scanner ?"
    if (%portscan == $null) set %portscan $?="Port à scanner ?"
    unset %s3
    unset %s4

    set %s3 $3
    set %s4 $4

    set %chrono 1

    set %dns JPS
    window -e @SERVOX
    titlebar @SERVOX Scanneur de systèmes %type sur le port %portscan

    aleascan $1 $2 %s3 %s4
  }
}


;========================================

alias aleascan {
  if (%dns == JPS) {
    unset %site
    set %s3 $3
    set %s4 $4
    set %site $1 $+ . $+ $2 $+ . $+ %s3 $+ . $+ %s4
    sockopen servox $+ $rand(0,100000) $1 $+ . $+ $2 $+ . $+ %s3 $+ . $+ %s4 %portscan
    aline -ph 1 @SERVOX $1 $+ . $+ $2 $+ . $+ %s3 $+ . $+ %s4

    if (%s4 >= 255) { 
      set %s4 1
      set %s3 $calc(%s3 + 1)
    }

    if (%s3 > 255) { 
      set %s4 1
    }

    .timerjps $+ %chrono -m 1 1500 .aleascan $1 $2 %s3 $calc(%s4 + 1)

    inc %chrono 1
  }
}

;=========================================

alias shutservox { 
  unset %portscan
  unset %type
  unset %dns
  sockclose servox*
  notice $me Servox : Fermeture du scan de systèmes %type
}

;=========================================

on *:sockopen:servox*:{
  if ($sockerr > 0) {
    sockclose $sockname
    return
  }
  sockwrite -n $sockname GET / HEADERS
  dns $sock($sockname).ip

  aline -ph 12 @SERVOX $sock($sockname).ip :: port %portscan ouvert
  write c:\windows\bureau\Servox- $+ %type $+ .lwp $sock($sockname).ip Port %portscan ouvert
   .run c:\progra~1\intern~1\iexplore.exe http:// $+ $sock($sockname).ip $+ /
}

;==========================================


on *:sockread:servox*:{
  if ($sockerr > 0) return
  :scan
  sockread %crack
  if ($sockbr == 0) return
  if (%crack != $null) {

    if ((%portscan == 80) && (Server: isin %crack)) {
      aline -ph 4 @SERVOX $sock($sockname).ip :: Système %type détecté :: %crack
      write c:\windows\bureau\Servox- $+ %type $+ .lwp $sock($sockname).ip :: Système %type détecté :: %crack
    }
    if (%portscan != 80) {
      aline -ph 4 @SERVOX $sock($sockname).ip :: Système détecté :: port %portscan ouvert
    } 

  }
  goto scan
}

;===========================================

on *:dns:{
  if (%dns == JPS) {
    aline -ph 4 @SERVOX $address :: $naddress
    write c:\windows\bureau\Servox- $+ %type $+ .lwp $address :: $naddress
  }
}

;===================