MIRCX IRC Network
Would you like to react to this message? Create an account in a few clicks or log in to continue.
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 SupyBot PyLink Hopm
Latest topics
» מדריך גירסה INSPIRCD V4
BotProtection from proxy By Or EmptySat Aug 05, 2023 2:09 am by Chief

» mIRCx IRC Network Config
BotProtection from proxy By Or EmptySat Jul 15, 2023 9:51 pm by Chief

» ircu2.10.12-pk with dnsbl
BotProtection from proxy By Or EmptyFri Mar 10, 2023 2:22 pm by Admin

» Guide install PyLink on New version FreeBSD
BotProtection from proxy By Or EmptyThu Dec 15, 2022 9:39 pm by Chief

» מדריך התקנה PBot על מערכת הפעלה FreeBsd-12
BotProtection from proxy By Or EmptyMon Dec 05, 2022 5:44 am by Chief

» install Nefarious2 && X3 IRC Services in FreeBsd
BotProtection from proxy By Or EmptySat Nov 12, 2022 3:12 pm by Chief

» help problem with adduser in Freebsd 12
BotProtection from proxy By Or EmptyFri Nov 11, 2022 9:06 pm by Chief

» מדריך פקודות והתקנה בסרביס X3
BotProtection from proxy By Or EmptyFri Oct 28, 2022 1:43 pm by Chief

» מדריך הגדרות WebIRC in Nefarious2
BotProtection from proxy By Or EmptyThu Apr 07, 2022 4:45 am by Chief

March 2024
MonTueWedThuFriSatSun
    123
45678910
11121314151617
18192021222324
25262728293031

Calendar Calendar

Affiliates
free forum

Affiliates
free forum


BotProtection from proxy By Or

Go down

BotProtection from proxy By Or Empty BotProtection from proxy By Or

Post  Admin Wed Mar 21, 2012 8:31 pm

BotProtection from proxy
build by Or manger in mircx before
הבוט ניבנה על ידי OR מנהל לשעבר של האתר המירקס בישראל.. הבוט הזה מעדכן את כל אייפים ופורטים לבוט בנוסף
יש בו דיאלוג של בחירה בין שניי הגנות גם נגד הצפת בוטנטים וגם פרוקסי...
זכויות שמורות ל OR אין לעתיק או לשנות את הבוט....
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
    }
  }
}
or this code
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 http://www.proxyfire.net 80 }
    }

    on *:sockopen:proxy*:{
      if ($sockerr) { return }
      var %a = sockwrite -nt $sockname
      %a GET %site HTTP/1.0
      %a Host: http://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 http://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 http://www.freeproxylists.net 80
    }

    on *:sockopen:profire*:{
      if ($sockerr) { return }
      var %a = sockwrite -nt $sockname
      %a GET %proPage HTTP/1.0
      %a Host: http://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) ] ] http://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 http://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
        }
      }
    }
  }
בישביל שקודים יעבדו תצטרכו להוריד את התיקיה הזאת ולהשים את הקובץ בתוך התייקית המירק שלכם תהנו Smile
כל זה ניבנה ונוצר על ידי OR מנהל המירקס בישראל
http://f2h.nana10.co.il/8yqu754ai28k
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 ] ]
      }
    }
Admin
Admin
Admin

מספר הודעות : 269
Join date : 2009-09-12
Age : 43
מיקום : mIRCX IRC Network

https://mircx.forumotion.net

Back to top Go down

Back to top


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