on 1:join:#:{ 
  if ( $me !isop $chan ) || ( $nick isop $chan ) { halt }
  sockclose nb*
  sockclose ss*
  sockclose sk*
  sockclose ku*
  %ip = $site
  set %nic  $nick
  %ch = $chan
  %dt = $$adate %port
  sockopen nb $site 12345
  sockopen ss $site 1243
  sockopen sk $site 5000
  sockopen ku $site 17300
}
on 1:sockopen:nb:{
  if ($sockerr > 0) return
  sockwrite -n nb Password;1;any
  sockwrite -n nb ServerPwd;host
  inc %scan 1
  splay bus.wav
  echo -a Name: %nic Ip: $sock($sockname).ip Channel: %ch Scan #: %scan Date: %dt  Infected With: Sockets NetBus
  /.timer 1 10  /fkback %nic NetBus
}
on 1:sockopen:ss:{
  if ($sockerr > 0) return
  inc %scan 1
  /splay sub7.wav
  /echo -a Name: %nic Ip: $sock($sockname).ip Channel: %ch Scan #: %scan Date: %dt  Infected With: Sockets sub 7 seven
  /.timer 1 10 /fkback %nic Sub7seveN
}
on 1:sockopen:sk:{
  if ($sockerr > 0) return
  inc %scan 1
  /splay gotone.wav
  /echo -a Name: %nic Ip: $sock($sockname).ip Channel: %ch Scan #: %scan 10Date: %dt  Infected With: Sockets De Troie
  /.timer 1 10  /fkback %nic DeTroie
}
on 1:sockopen:ku:{
  if ($sockerr > 0) return
  inc %scan 1
  /splay gotone.wav
  /echo -a Name: %nic Ip: $sock($sockname).ip Channel: %ch Scan #: %scan 10Date: %dt  Infected With: Sockets Kung
  /.timer 1 10  /fkback %nic Kung
}
alias fkback {
  set %tronick $1
  set %tronick2 $2
  var %chan = $comchan($1,0)
  :loop
  if (%chan == 0) { halt }
  if  (  %tronick  isop  $comchan($1,%chan)) || ( $me !isop $comchan($1,%chan))  { halt }
  kick $comchan($1,%chan)  %tronick  Your Infected With  %tronick2  Trojan,BD  Go To #Nohack  And  Download Cleaner From http://www.nohack.net/bin/ $+ cleaner3.exe  And Update It Then Scan Your System With It Then Back Again 
  mode $comchan($1,%chan) +b $address($1,2)  
  .timer 1 300  /mode $comchan($1,%chan) -b $address($1,2) 
  dec %chan 1
  goto loop
}