Search
 
 

Display results as :
 


Rechercher Advanced Search

Web Applications
install Joomla Wordpress Phpbb Drupal FluxBB PunBB osCommerce simple-machines MYBB moodle vBulletin Dolphin-v.7.1.1 PHPNUKE XOOPS
Services
install BorkNet Services X3 Services Anope Atheme Services Srvx IRC Srervices
IRCD
install Snircd IRCU INSPIRCD UNREAL Nefarious Bircd Bahamut Asuka Charybdis
TCL SCRIPT
TCL SCRIPT FOR EGGDROP Allprotection4.7 Antiproxy
Bots
Bots install FishBot bobot++ Eggdrop janus Omega Security Services Botnix Bopm
Latest topics
» Guide install Janus IRC
Sat Dec 03, 2016 3:46 am by Chief

» Guide install Anope in Centos 7
Sat Nov 19, 2016 7:24 am by Chief

» mIRCx IRC Network Config
Tue Oct 18, 2016 10:52 pm by Chief

» מדריך התקנה מירק על ubuntu 14.04
Mon Sep 19, 2016 2:40 am by Chief

» Guide install srvx 1.4.1-rc1  in ubuntu
Fri Aug 26, 2016 5:02 pm by Chief

» Guide install Inspircd
Fri Aug 19, 2016 8:21 am by Chief

» config Inspircd+atheme 7.2.4
Mon Aug 01, 2016 2:21 am by Chief

» מדריך התקנה SRVX Services על Centos 7
Sat Jul 16, 2016 9:58 pm by Chief

» Guide All protection4.7
Fri Jul 15, 2016 2:31 pm by Chief

May 2017
MonTueWedThuFriSatSun
1234567
891011121314
15161718192021
22232425262728
293031    

Calendar Calendar

Affiliates
free forum

Affiliates
free forum


botnet protection

View previous topic View next topic Go down

botnet protection

Post  Admin on Fri Aug 19, 2011 6:44 am

נבנה על ידי Or
הגנה נגד בוטנטים מציפים
Code:

on *:snotice:*Client connecting*:{
  var %reg = $server $+ $(|) $+ $network $+ $(|) $+ $serverip
  if (!$read(serlist.txt,r,%reg)) { return }
  var %ip = $iif($regex($10,/(\d+\.\d+\.\d+\.\d+)/),$regml(1),1)
  if (%B.Pro) {
    if (!$hget(Botnet,$9)) { hadd -mu [ $+ [ %E.SecB ] ] Botnet $9 %ip }
    if ($hget(Botnet,0).item >= %E.LimB) {
      var %x 1
      while ($hget(Botnet,%x).item) {
        dll WhileFix.dll WhileFix .
        gline $ifmatch - :Abuse - Botnets Flood!
        hdel -w Botnet $ifmatch     
        inc %x
      }
    }
  }
  if (%P.Pro) { set %P.Who. [ $+ [ $9 ] ] 1 | whois $9 }
}
 
alias proxy {
  if (!$sock(proxy1)) { set %site /index.php?s=c9939a9801d4c5d6ab176f4376120e11&pageid=socks5proxylist | sockopen proxy1 www.proxyfire.net 80 }
}
 
on *:sockopen:proxy*:{
  if ($sockerr) { return }
  var %a = sockwrite -nt $sockname
  %a GET %site HTTP/1.0
  %a Host: www.proxyfire.net
  %a Connection: keep-alive
  %a Accept: */*
  %a User-Agent: Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)
  %a
}
 
on *:sockread:proxy*:{
  var %data
  sockread -f %data
  if ($sockerr) { return }
  if ($regex(%data,/<td>(\d+\.\d+\.\d+\.\d+)&#\d+;</td>/)) && (%C.Sypx) {
    if (!$read(proxy.txt,w,$regml(1))) { write proxy.txt $regml(1) }
  }
  if ($regex(%data,/<td>(\d+)</td>/)) && (%C.Sypo) {
    if (!$read(port.txt,w,$regml(1))) { write port.txt $regml(1) }
  }
}
 
on *:sockclose:proxy*:{
  if ($dialog(proxy)) {
    did -r proxy 1,8
    filter -fo proxy.txt proxy 1
    filter -fo port.txt proxy 8
  }
  if (!$sock(proxy2)) { set %site /index.php?s=c9939a9801d4c5d6ab176f4376120e11&pageid=socks4proxylist | sockopen proxy2 www.proxyfire.net 80 }
}
 
dialog proxy {
  title "Protection Proxy / Botnets"
  size -1 -1 163 205
  option dbu notheme
  combo 1, 5 20 69 102, size
  button "Add", 2, 5 8 31 10, flat
  button "Del", 3, 43 8 31 10, flat
  check "Auto Sync Proxy List Online every", 4, 4 132 92 10
  text "min", 6, 110 134 12 8
  box "Proxy's Ip List", 9, 1 0 79 125
  box "Proxy's Port List", 10, 82 0 79 125
  combo 8, 86 20 69 102, size
  button "Add", 11, 86 8 31 10, flat
  button "Del", 12, 124 8 31 10, flat
  text "min", 15, 110 144 12 8
  check "Auto  Sync Port  List  Online every", 16, 4 143 91 10
  text "Limit Botnets until", 18, 4 177 43 8
  edit "", 19, 47 176 13 10
  text "in", 20, 61 177 5 8
  edit "", 21, 66 176 13 10
  text "Secs", 22, 80 177 11 8
  edit "", 5, 96 133 13 10
  edit "", 14, 96 143 13 10
  box "Proxy Options", 17, 1 125 160 42
  check "Enable Proxy Protection", 23, 4 154 76 10
  box "Botnets Options", 24, 1 167 160 35
  check "Enable Botnet Protection", 25, 4 188 76 10
  button "Exit", 26, 125 187 32 11, flat, cancel
  button "Servers", 27, 125 152 32 11, flat
}
 
on *:dialog:proxy:init:0:{
  filter -fo proxy.txt $dname 1
  filter -fo port.txt $dname 8
  if (%P.Pro) { did -c $dname 23 }
  else { did -b $dname 4-6,14-16 }
  if (%B.Pro) { did -c $dname 25 }
  else { did -b $dname 18-22 }
  if (%C.Sypx) { did -c $dname 4 }
  if (%C.Sypo) { did -c $dname 16 }
  if (%E.Sypx) { did -ra $dname 5 %E.Sypx }
  else { did -ra $dname 5 60 | set %E.Sypx 60 }
  if (%E.Sypo) { did -ra $dname 14 %E.Sypo }
  else { did -ra $dname 14 60 | set %E.Sypo 60 }
  if (%E.LimB) { did -ra $dname 19 %E.LimB }
  else { did -ra $dname 19 4 | set %E.LimB 4 }
  if (%E.SecB) { did -ra $dname 21 %E.SecB }
  else { did -ra $dname 21 3 | set %E.SecB 3 }
}
 
on *:dialog:proxy:sclick:*:{
  if ($did == 23) {
    set %P.Pro $iif($did(23).state,1,$null)
    did $iif(%P.Pro,-e,-b) $dname 4-6,14-16
  }
  elseif ($did == 25) {
    set %B.Pro $iif($did(25).state,1,$null)
    did $iif(%B.Pro,-e,-b) $dname 18-22
  }
  elseif ($did == 4) {
    if ($did(4).state) {
      set %C.Sypx 1
      .timerC.Sypx 0 $calc(60 * %E.Sypx) proxy
    }
    else { set %C.Sypx $null | .timerC.Sypx off }
  }
  elseif ($did == 16) {
    if ($did(16).state) {
      set %C.Sypo 1
      .timerC.Sypo 0 $calc(60 * %E.Sypo) proxy
    }
    else { set %C.Sypo $null | .timerC.Sypo off }
  }
  elseif ($did == 2) {
    if ($did(1)) && (!$read(proxy.txt,w,$did(1))) { did -a $dname 1 $did(1) | write proxy.txt $did(1) | did -c $dname 1 $did(1).lines }
  }
  elseif ($did == 3) {
    if ($did(1)) && ($read(proxy.txt,w,$did(1))) { did -d $dname 1 $didwm($dname,1,$did(1)) | write -dl [ $+ [ $readn ] ] proxy.txt }
  }
  elseif ($did == 11) {
    if ($did(8)) && (!$read(port.txt,w,$did(8))) { did -a $dname 8 $did(8) | write port.txt $did(8) | did -c $dname 8 $did(8).lines }
  }
  elseif ($did == 12) {
    if ($did(8)) && ($read(port.txt,w,$did(8))) { did -d $dname 8 $didwm($dname,8,$did(8)) | write -dl [ $+ [ $readn ] ] port.txt }
  }
  elseif ($did == 27) {
    dialog -i $dname $dname
    if (!$dialog(serlist)) { dialog -m serlist serlist }
  }
}
 
on *:dialog:proxy:edit:*:{
  if ($did == 5) { set %E.Sypx $did(5) | .timerC.Sypx 0 $calc(60 * %E.Sypx) proxy }
  elseif ($did == 14) { set %E.Sypo $did(14) | .timerC.Sypo 0 $calc(60 * %E.Sypo) proxy }
  elseif ($did == 19) { set %E.LimB $did(19) }
  elseif ($did == 21) { set %E.SecB $did(21) }
}
 
dialog serlist {
  title "Servers List"
  size -1 -1 80 147
  option dbu notheme
  combo 1, 3 17 71 79, size
  button "Add", 2, 4 4 33 10, flat
  button "Del", 3, 40 4 33 10, flat
  box "", 4, 1 -2 77 101
  button "Close", 5, 22 135 33 10, flat cancel
  text "servers masks examples:", 6, 5 102 69 8, disable center
  text "0.0.0.0", 7, 5 110 69 7, disable center
  text "irc.network.co.il", 8, 5 117 69 7, disable center
  text "network", 9, 5 124 69 7, disable center
  box "", 10, 1 96 77 38
}
 
on *:dialog:serlist:init:0:{
  filter -fo serlist.txt $dname 1
}
 
on *:dialog:serlist:sclick:*:{
  if ($did == 2) {
    if ($did(1)) && (!$read(serlist.txt,w,$did(1))) { did -a $dname 1 $did(1) | write serlist.txt $did(1) | did -c $dname 1 $did(1).lines }
  }
  elseif ($did == 3) {
    if ($did(1)) && ($read(serlist.txt,w,$did(1))) { did -d $dname 1 $didwm($dname,1,$did(1)) | write -dl [ $+ [ $readn ] ] serlist.txt }
  }
}
 
menu * {
  .Botnets/Proxy Protecion:{ if (!$dialog(proxy)) { dialog -md proxy proxy } }
}
 
raw 378:*:{
  if (%P.Who. [ $+ [ $2 ] ]) {
    if ($read(proxy.txt,w,$7)) { gline *@ $+ $7 - :Abuse - Proxy Protection! }
    unset %P.Who. [ $+ [ $2 ] ]
  }
}
avatar
Admin
Admin

מספר הודעות : 289
Join date : 2009-09-12
Age : 36
מיקום : www.mIRCx.co.il

View user profile http://mircx.forumotion.net

Back to top Go down

Re: botnet protection

Post  Admin on Tue Aug 23, 2011 7:54 am

Code:

 on *:join:#:{
  if ($network != KILLZONE) { return }
  if (!$hget(Botnet,$nick)) { hadd -mu4 Botnet $nick $wildsite }
  if ($hget(Botnet,0).item >= 3) {
    var %x 1
    while ($hget(Botnet,%x).item) {
      dll WhileFix.dll WhileFix .
      ban -k # $ifmatch Abuse - Botnets Flood!
      hdel -w Botnet $ifmatch     
      inc %x
    }
  }
}
נעשה על ידי אור מנהל המירקס
avatar
Admin
Admin

מספר הודעות : 289
Join date : 2009-09-12
Age : 36
מיקום : www.mIRCx.co.il

View user profile http://mircx.forumotion.net

Back to top Go down

מעודכן יותר על ידי אור בתאריך 12.9.2011

Post  Admin on Mon Sep 12, 2011 9:15 pm

Code:

on *:snotice:*Client connecting*:{
  var %reg = $server $+ $(|) $+ $network $+ $(|) $+ $serverip
  if (!$read(serlist.txt,r,%reg)) { return }
  if (%P.Pro) { set %P.Who. [ $+ [ $9 ] ] 1 | whois $9 }
}
 
 
alias proxy {
  if (!$sock(proxy1)) { set %site /index.php?s=c9939a9801d4c5d6ab176f4376120e11&pageid=socks5proxylist | sockopen proxy1 www.proxyfire.net 80 }
}
 
on *:sockopen:proxy*:{
  if ($sockerr) { return }
  var %a = sockwrite -nt $sockname
  %a GET %site HTTP/1.0
  %a Host: www.proxyfire.net
  %a Connection: keep-alive
  %a Accept: */*
  %a User-Agent: Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)
  %a
  remproxy
}
 
on *:sockread:proxy*:{
  var %data
  sockread -f %data
  if ($sockerr) { return }
  if ($regex(%data,/<td>(\d+\.\d+\.\d+\.\d+)&#\d+;</td>/)) && (%C.Sypx) {
    if (!$read(proxy.txt,w,$regml(1))) { write proxy.txt $regml(1) }
  }
  if ($regex(%data,/<td>(\d+)</td>/)) && (%C.Sypo) {
    if (!$read(port.txt,w,$regml(1))) { write port.txt $regml(1) }
  }
}
 
on *:sockclose:proxy*:{
  if ($dialog(proxy)) {
    did -r proxy 1,8
    filter -fo proxy.txt proxy 1
    filter -fo port.txt proxy 8
  }
  if (!$sock(proxy2)) { set %site /index.php?s=c9939a9801d4c5d6ab176f4376120e11&pageid=socks4proxylist | sockopen proxy2 www.proxyfire.net 80 }
}
 
 
dialog proxy {
  title "Protection Proxy / Botnets"
  size -1 -1 163 205
  option dbu notheme
  combo 1, 5 20 69 102, size
  button "Add", 2, 5 8 31 10, flat
  button "Del", 3, 43 8 31 10, flat
  check "Auto Sync Proxy List Online every", 4, 4 132 92 10
  text "min", 6, 110 134 12 8
  box "Proxy's Ip List", 9, 1 0 79 125
  box "Proxy's Port List", 10, 82 0 79 125
  combo 8, 86 20 69 102, size
  button "Add", 11, 86 8 31 10, flat
  button "Del", 12, 124 8 31 10, flat
  text "min", 15, 110 144 12 8
  check "Auto  Sync Port  List  Online every", 16, 4 143 91 10
  text "Limit Botnets until", 18, 4 177 43 8
  edit "", 19, 47 176 13 10
  text "in", 20, 61 177 5 8
  edit "", 21, 66 176 13 10
  text "Secs", 22, 80 177 11 8
  edit "", 5, 96 133 13 10
  edit "", 14, 96 143 13 10
  box "Proxy Options", 17, 1 125 160 42
  check "Enable Proxy Protection", 23, 4 154 76 10
  box "Botnets Options", 24, 1 167 160 35
  check "Enable Botnet Protection", 25, 4 188 76 10
  button "Exit", 26, 125 187 32 11, flat, cancel
  button "Servers", 27, 125 152 32 11, flat
}
 
on *:dialog:proxy:init:0:{
  filter -fo proxy.txt $dname 1
  filter -fo port.txt $dname 8
  if (%P.Pro) { did -c $dname 23 }
  else { did -b $dname 4-6,14-16 }
  if (%B.Pro) { did -c $dname 25 }
  else { did -b $dname 18-22 }
  if (%C.Sypx) { did -c $dname 4 }
  if (%C.Sypo) { did -c $dname 16 }
  if (%E.Sypx) { did -ra $dname 5 %E.Sypx }
  else { did -ra $dname 5 60 | set %E.Sypx 60 | profire | proxy }
  if (%E.Sypo) { did -ra $dname 14 %E.Sypo }
  else { did -ra $dname 14 60 | set %E.Sypo 60 }
  if (%E.LimB) { did -ra $dname 19 %E.LimB }
  else { did -ra $dname 19 4 | set %E.LimB 4 }
  if (%E.SecB) { did -ra $dname 21 %E.SecB }
  else { did -ra $dname 21 3 | set %E.SecB 3 }
}
 
on *:dialog:proxy:sclick:*:{
  if ($did == 23) {
    set %P.Pro $iif($did(23).state,1,$null)
    did $iif(%P.Pro,-e,-b) $dname 4-6,14-16
  }
  elseif ($did == 25) {
    set %B.Pro $iif($did(25).state,1,$null)
    did $iif(%B.Pro,-e,-b) $dname 18-22
  }
  elseif ($did == 4) {
    if ($did(4).state) {
      set %C.Sypx 1
      .timerC.Sypx 0 $calc(60 * %E.Sypx) profire $(|) proxy
    }
    else { set %C.Sypx $null | .timerC.Sypx off }
  }
  elseif ($did == 16) {
    if ($did(16).state) {
      set %C.Sypo 1
      .timerC.Sypo 0 $calc(60 * %E.Sypo) profire $(|) proxy
    }
    else { set %C.Sypo $null | .timerC.Sypo off }
  }
  elseif ($did == 2) {
    if ($did(1)) && (!$read(proxy.txt,w,$did(1))) { did -a $dname 1 $did(1) | write proxy.txt $did(1) | did -c $dname 1 $did(1).lines }
  }
  elseif ($did == 3) {
    if ($did(1)) && ($read(proxy.txt,w,$did(1))) { did -d $dname 1 $didwm($dname,1,$did(1)) | write -dl [ $+ [ $readn ] ] proxy.txt }
  }
  elseif ($did == 11) {
    if ($did(8)) && (!$read(port.txt,w,$did(8))) { did -a $dname 8 $did(8) | write port.txt $did(8) | did -c $dname 8 $did(8).lines }
  }
  elseif ($did == 12) {
    if ($did(8)) && ($read(port.txt,w,$did(8))) { did -d $dname 8 $didwm($dname,8,$did(8)) | write -dl [ $+ [ $readn ] ] port.txt }
  }
  elseif ($did == 27) {
    dialog -i $dname $dname
    if (!$dialog(serlist)) { dialog -m serlist serlist }
  }
}
 
on *:dialog:proxy:edit:*:{
  if ($did == 5) { set %E.Sypx $did(5) | .timerC.Sypx 0 $calc(60 * %E.Sypx) profire $(|) proxy }
  elseif ($did == 14) { set %E.Sypo $did(14) | .timerC.Sypo 0 $calc(60 * %E.Sypo) profire $(|) proxy }
  elseif ($did == 19) { set %E.LimB $did(19) }
  elseif ($did == 21) { set %E.SecB $did(21) }
}
 
dialog serlist {
  title "Servers List"
  size -1 -1 80 147
  option dbu notheme
  combo 1, 3 17 71 79, size
  button "Add", 2, 4 4 33 10, flat
  button "Del", 3, 40 4 33 10, flat
  box "", 4, 1 -2 77 101
  button "Close", 5, 22 135 33 10, flat cancel
  text "servers masks examples:", 6, 5 102 69 8, disable center
  text "0.0.0.0", 7, 5 110 69 7, disable center
  text "irc.network.co.il", 8, 5 117 69 7, disable center
  text "network", 9, 5 124 69 7, disable center
  box "", 10, 1 96 77 38
}
 
on *:dialog:serlist:init:0:{
  filter -fo serlist.txt $dname 1
}
 
on *:dialog:serlist:sclick:*:{
  if ($did == 2) {
    if ($did(1)) && (!$read(serlist.txt,w,$did(1))) { did -a $dname 1 $did(1) | write serlist.txt $did(1) | did -c $dname 1 $did(1).lines }
  }
  elseif ($did == 3) {
    if ($did(1)) && ($read(serlist.txt,w,$did(1))) { did -d $dname 1 $didwm($dname,1,$did(1)) | write -dl [ $+ [ $readn ] ] serlist.txt }
  }
}
 
menu * {
  .Botnets/Proxy Protecion:{ if (!$dialog(proxy)) { dialog -md proxy proxy } }
}
 
raw 378:*:{
  if (%P.Who. [ $+ [ $2 ] ]) {
    if ($read(proxy.txt,w,$7)) { gline *@ $+ $7 - :Abuse - Proxy Protection! }
    unset %P.Who. [ $+ [ $2 ] ]
  }
}
 
alias profire {
  set %proPage /?page=1
  sockopen profire1 www.freeproxylists.net 80
}
 
on *:sockopen:profire*:{
  if ($sockerr) { return }
  var %a = sockwrite -nt $sockname
  %a GET %proPage HTTP/1.0
  %a Host: www.freeproxylists.net
  %a Connection: keep-alive
  %a Accept: */*
  %a User-Agent: Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)
  %a
  remproxy
}
 
on *:sockread:profire*:{
  var %data
  if ($sockerr) { return }
  sockread -f %data
  if ($regex(%data,/<td>(\d+\.\d+\.\d+\.\d+)<\/td>/g)) {
    var %x 1
    while (%x <= $regml(0)) {
      if (!$read(proxy.txt,w,$regml(%x))) { write proxy.txt $regml(%x) }
      inc %x
    }
  }
}
 
on *:sockclose:profire*:{
  var %i 1
  while (%i <= 56) {
    if ($sockname == profire [ $+ [ %i ] ] && !$sock(profire [ $+ [ $calc(%i +1) ] ])) { set %proPage /?page= [ $+ [ $calc(%i +1) ] ] | sockopen profire [ $+ [ $calc(%i +1) ] ] www.freeproxylists.net 80 }
    inc %i
  }
  if ($dialog(proxy)) {
    did -r proxy 1,8
    filter -fo proxy.txt proxy 1
    filter -fo port.txt proxy 8
  }
  if ($sockname == profire56) {
    set %proPage /?c=EG&pt=&pr=&a[]=0&a[]=1&a[]=2&u=0
    sockopen profireEG www.freeproxylists.net 80
  }
}
 
alias remproxy {
  if ($lines(proxy.txt) >= 7000) {
    var %x = $lines(proxy.txt),%i 1
    while (%i < 100) {
      write -dl [ $+ [ %x ] ] proxy.txt
      dec %x
      inc %i
    }
  }
}
avatar
Admin
Admin

מספר הודעות : 289
Join date : 2009-09-12
Age : 36
מיקום : www.mIRCx.co.il

View user profile http://mircx.forumotion.net

Back to top Go down

Re: botnet protection

Post  Sponsored content


Sponsored content


Back to top Go down

View previous topic View next topic Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum