**********************************************
VEGETA T v2.0
By uN|x
Official Home Page www.ircvegetascript.cjb.net
E-mail ircvegetascript@email.it
**********************************************

dialog Scan {
  title "[ VEGETA T ] v2.0 Scanner"
  size 297 155 169 142
  option dbu
  box "", 11, 0 0 92 44
  box "", 12, 92 0 76 44
  button "Netbus", 1, 4 8 37 12
  button "Telecomando", 2, 48 24 40 12
  button "Girl Friend", 3, 48 8 40 12
  button "Back Orifice", 4, 4 24 37 12
  button "Scan manuale", 5, 96 8 68 28
  edit "", 6, 64 56 104 10, multi return read
  text "Risultato", 7, 64 48 24 6
  icon 8, 0 48 61 91, immagini\vegeprote.bmp
  button "ESCI", 9, 64 124 104 15, ok
  icon 10, 100 80 25 25, immagini\baby.bmp
}
on *:dialog:scan:sclick:*:{
  if ($did == 1) { did -r scan 6 | .netbus | .splay sounds\click.wav }
  if ($did == 2) { did -r scan 6 | .telecomando | .splay sounds\click.wav  }
  if ($did == 3) { did -r scan 6 | .girlfriend | .splay sounds\click.wav  }
  if ($did == 4) { did -r scan 6 | .backorifice | .splay sounds\click.wav  }
  if ($did == 5) { did -r scan 6 | .timer 1 0 portamanual | .splay sounds\click.wav  }
  if ($did == 9) { .splay sounds\chiudi.wav }
}
alias portamanual {
  set %portamanual $$?="Porta da scanerizzare?" | if (%portamanual >= 1000000) { did -a scan 6 Porta non corretta | unset %portamanual | halt }
  if ($portfree(%portamanual) == $false) { did -a scan 6 Porta %portamanual Aperta }
  else { did -a scan 6 Porta %portamanual Chiusa }
  unset %portamanual
}
alias telecomando {
  if ($portfree(61466) == $false) { did -a scan 6 Rilevata infezione da TeleComando Detected }
  else { did -a scan 6 Telecomando non rilevato }
}
alias girlfriend {
  if ($portfree(21554) == $false) { did -a scan 6 Rilevata infezione da Girl Friend Detected }
  else { did -a scan 6 Girl Friend non rilevato }
}
alias backorifice {
  if ($portfree(31337) == $true && $portfree(666) == $true) { did -a scan 6 Back Orifice non rilevato }
  if ($portfree(31337) == $false) { did -a scan 6 Rilevata infezione da Back Orifice Detected }
  if ($portfree(666) == $false) { did -a scan 6 Rilevata infezione da Back Orifice Detected }
}
alias netbus {
  if ($portfree(12345) == $false) { did -a scan 6 Rilevata infezione da Netbus Detected }
  else { did -a scan 6 Netbus non rilevata }
} 
