MIRCX IRC Network
Would you like to react to this message? Create an account in a few clicks or log in to continue.
MIRCX IRC Network

Welcome to MIRCX-Help Bots Scripts Eggdrop IRCD

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
Keywords

spamfilter  UnrealIRCd  gnuworld  nefarious2  freebsd  inspircd  bahamut  proxy  socket  mirc  qwebirc  iauth  conf  Pylink  srvx  mircx  borknet  ircd  SupyBot  install  snircd  postgreSQL  nefarious  2011  bopm  ircu  

Latest topics
» מדריך גירסה INSPIRCD V4
KaryoS Securitybot EmptySat Aug 05, 2023 2:09 am by Chief

» mIRCx IRC Network Config
KaryoS Securitybot EmptySat Jul 15, 2023 9:51 pm by Chief

» ircu2.10.12-pk with dnsbl
KaryoS Securitybot EmptyFri Mar 10, 2023 2:22 pm by Admin

» Guide install PyLink on New version FreeBSD
KaryoS Securitybot EmptyThu Dec 15, 2022 9:39 pm by Chief

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

» install Nefarious2 && X3 IRC Services in FreeBsd
KaryoS Securitybot EmptySat Nov 12, 2022 3:12 pm by Chief

» help problem with adduser in Freebsd 12
KaryoS Securitybot EmptyFri Nov 11, 2022 9:06 pm by Chief

» מדריך פקודות והתקנה בסרביס X3
KaryoS Securitybot EmptyFri Oct 28, 2022 1:43 pm by Chief

» מדריך הגדרות WebIRC in Nefarious2
KaryoS Securitybot EmptyThu Apr 07, 2022 4:45 am by Chief

April 2024
MonTueWedThuFriSatSun
1234567
891011121314
15161718192021
22232425262728
2930     

Calendar Calendar

Affiliates
free forum

Affiliates
free forum


KaryoS Securitybot

MIRCX IRC Network :: MIRCX :: MIRCX

Go down

KaryoS Securitybot Empty KaryoS Securitybot

Post  Admin Mon Apr 16, 2012 8:49 pm

קוד:סיקירוטי חדרים
נבנה על ידי: KaryoS
זכויות שמורות ל KaryoS אין לעתיק או לחליף קרדיט!!
Code:

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::------------------------------------------------------------------------------------------::
::------------------------------------------------------------------------------------------::
::------------------------------||||||||||||||||||||||||||||||------------------------------::
::------------------------------||    KaryoS Securitybot    ||------------------------------::
::------------------------------||||||||||||||||||||||||||||||------------------------------::
::------------------------------------------------------------------------------------------::
::------------------------------------------------------------------------------------------::
::---------------------------------- Last Update: 29/07/11 ---------------------------------::
::------------------------------------------------------------------------------------------::
::------------------------------------------------------------------------------------------::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
on *:action:*:%Settings.channel: {
  if ($target !ischan) {
    if ($nick isreg %Settings.channel) && (%Protections.PMBadwords) {
      var %x = 1
      while ($read(bw.txt,%x)) {
        if ($v1 isin $1-) { banit %Settings.channel $nick PMBadword detected (* $+ $ifmatch $+ *) | break }
        inc %x
      }
    }
  }
  if ($target ischan) && ($chan == %Settings.channel) && ($me isop #) {
    if ($1 == !Credits) && (!%FS) { inc -u5 %FS | msg # This Securitybot has been created by KaryoS }
    elseif ($1 == !Sstatus) && (!%FS) { inc -u5 %FS | msg # Flood: $iif(%Protections.Flood,03ON,04OFF) $+ 01, Massive flood: $iif(%Protections.Massiveflood,03ON,04OFF) $+ 01, Badwords: $iif(%Protections.Badwords,03ON,04OFF) $+ 01, PM Badwords: $iif(%Protections.PMBadwords,03ON,04OFF) $+ 01, Blacklist: $iif(%Protections.Blacklist,03ON,04OFF) | msg # Join part: $iif(%Protections.joinpart,03ON,04OFF) $+ 01, Join flood: $iif(%Protections.Joinflood,03ON,04OFF) $+ 01, Open proxy: $iif(%Protections.Openproxy,03ON,04OFF) $+ 01, Take over: $iif(%Protections.Takeover,03ON,04OFF) }
    if ($nick isreg #) {
      if (%Protections.flood) {
        inc -u5 %Systemflood. [ $+ [ $nick ] ]
        if ($(%Systemflood. [ $+ [ $nick ] ],2) == %Settings.floodtimes) { banit # $nick $wildsite Flood detected }
      }
      if (%Protections.Badwords) {
        var %x = 1
        while ($read(bw.txt,%x)) {
          if ($v1 isin $1-) { banit # $nick $wildsite Badword detected (* $+ $ifmatch $+ *) | break }
          inc %x
        }
      }
      if (%Protections.Massiveflood) {
        inc -u5 %System.massiveflood
        if (!$read(Ma.txt,w,$wildsite)) write Ma.txt $wildsite
        if (!$read(Mn.txt,w,$nick)) write Mn.txt $nick
        .timerMassiveflood_ $+ $nick 1 5 Removefrom Ma.txt $wildsite $(|) Removefrom Mn.txt $nick
        if (%System.massiveflood == %Settings.massivefloodtimes) && (!$timer(ENDMassive)) && (!$timer(ENDJoinFlood)) { mode %Settings.channel +mir | .timerBanit* off | .timerMassiveflood_* off | .timerENDMassive 1 3 FLOODWORK Massive }
      }
    }
  }
}
on *:nick: if ($read(Logged.txt,w,$nick)) write -l $+ $readn Logged.txt $newnick
on *:part:%Settings.channel: if ($read(Logged.txt,w,$nick)) write -dl $+ $readn Logged.txt
on *:quit: if ($read(Logged.txt,w,$nick)) write -dl $+ $readn Logged.txt
on *:text:*:*: {
  if ($target !ischan) {
    if (a == a) {
      if ($read(Logged.txt,w,$nick)) && (!%sflood) {
        inc -u4 %sflood
        if ($1 == !Logout) { write -dl $+ $readn Logged.txt | msg $nick You have been disconnected from the Security bot. }
        elseif ($1 == !Login) { msg $nick You are already connected to the Security bot. }
        elseif ($1 == !Owners) || ($1 == !Connected) { var %x = 1,%connected | while ($read(Logged.txt,%x)) { %Connected = %connected $v1 $+ ,  | inc %x } | msg $nick Connected owners: $left(%connected,-1) $+ . }
        elseif ($1 == !Help) || ($1 == !Commands) { msg $nick Commands Are: !Flood/Massive flood/Badwords/PM badwords/Blacklist/Join part/Join flood/Open proxy/Take over/Protected users <ON/OFF>, !Owners. }
        elseif ($1 == !Flood) && ($2 == ON || $2 == OFF) { $iif($2 == ON,inc,unset) %Protections.flood | msg $nick Flood protection is now $iif($2 == ON,3ON,4OFF) }
        elseif ($1 == !Massive) && ($2 == flood) && ($3 == ON || $3 == OFF) { $iif($3 == ON,inc,unset) %Protections.massiveflood | msg $nick Massive flood protection is now $iif($3 == ON,3ON,4OFF) }
        elseif ($1 == !Badwords) && ($2 == ON || $2 == OFF) { $iif($2 == ON,inc,unset) %Protections.badwords | msg $nick Badwords protection is now $iif($2 == ON,3ON,4OFF) }
        elseif ($1 == !PM) && ($2 == badwords) && ($3 == ON || $3 == OFF) { $iif($3 == ON,inc,unset) %Protections.pmbadwords | msg $nick PM Badwords protection is now $iif($3 == ON,3ON,4OFF) }
        elseif ($1 == !Blacklist) && ($2 == ON || $2 == OFF) { $iif($2 == ON,inc,unset) %Protections.blacklist | msg $nick Blacklist protection is now $iif($2 == ON,3ON,4OFF) }
        elseif ($1 == !Join) && ($2 == part) && ($3 == ON || $3 == OFF) { $iif($3 == ON,inc,unset) %Protections.joinpart | msg $nick Join part protection is now $iif($3 == ON,3ON,4OFF) }
        elseif ($1 == !Join) && ($2 == flood) && ($3 == ON || $3 == OFF) { $iif($3 == ON,inc,unset) %Protections.MassiveFlood | msg $nick Massive flood protection is now $iif($3 == ON,3ON,4OFF) }
        elseif ($1 == !Open) && ($2 == proxy) && ($3 == ON || $3 == OFF) { $iif($3 == ON,inc,unset) %Protections.Openproxy | msg $nick Open proxy protection is now $iif($3 == ON,3ON,4OFF) }
        elseif ($1 == !Take) && ($2 == over) && ($3 == ON || $3 == OFF) { $iif($3 == ON,inc,unset) %Protections.Takeover | msg $nick Take over protection is now $iif($3 == ON,3ON,4OFF) }
        elseif ($1 == !Protected) && ($2 == users) && ($3 == ON || $3 == OFF) { $iif($3 == ON,inc,unset) %Protections.Protected | msg $nick Protected users protection is now $iif($3 == ON,3ON,4OFF) }
        elseif ($1 == !All) && ($2 == ON || $2 == OFF) {
          if ($2 == ON) { .timer 1 0 $gettok($regsubex(@Protections.flood@Protections.badwords@Protections.PMBadwords@Protections.Joinpart@Protections.TakeOver@Protections.Openproxy@Protections.Blacklist@Protections.MassiveFlood@Protections.Joinflood@Protections.Protected,/(@)/g, $chr(32) $replace(\1,@,$!(|)) inc %),2-,32) }
          if ($2 == OFF) { }
          else unset %sflood
        }
      }
      elseif ($1 == !Login) && (!%sflood) {
        if ($2) {
          if ($2 == %Settings.masterpass) {
            write Logged.txt $nick
            msg $nick You have been connected to the Security bot.
            inc -u4 %sflood
          }
        }
      }
    }
    if ($nick isreg %Settings.channel) && (%Protections.PMBadwords) {
      var %x = 1
      while ($read(bw.txt,%x)) {
        if ($v1 isin $1-) { banit %Settings.channel $nick PMBadword detected (* $+ $ifmatch $+ *) | break }
        inc %x
      }
    }
  }
  if ($target ischan) && ($chan == %Settings.channel) && ($me isop #) {
    if ($1 == !Credits) && (!%FS) { inc -u5 %FS | msg # This Securitybot has been created by KaryoS }
    elseif ($1 == !Sstatus) && (!%FS) { inc -u5 %FS | msg # Flood: $iif(%Protections.Flood,03ON,04OFF) $+ 01, Massive flood: $iif(%Protections.Massiveflood,03ON,04OFF) $+ 01, Badwords: $iif(%Protections.Badwords,03ON,04OFF) $+ 01, PM Badwords: $iif(%Protections.PMBadwords,03ON,04OFF) $+ 01, Blacklist: $iif(%Protections.Blacklist,03ON,04OFF) | msg # Join part: $iif(%Protections.joinpart,03ON,04OFF) $+ 01, Join flood: $iif(%Protections.Joinflood,03ON,04OFF) $+ 01, Open proxy: $iif(%Protections.Openproxy,03ON,04OFF) $+ 01, Take over: $iif(%Protections.Takeover,03ON,04OFF) $+ 01, Protected users: $iif(%Protections.Protected,03ON,04OFF) }
    if ($nick isreg #) {
      if (%Protections.flood) {
        inc -u5 %Systemflood. [ $+ [ $nick ] ]
        if ($(%Systemflood. [ $+ [ $nick ] ],2) == %Settings.floodtimes) { banit # $nick $wildsite Flood detected }
      }
      if (%Protections.Badwords) {
        var %x = 1
        while ($read(bw.txt,%x)) {
          if ($v1 isin $1-) { banit # $nick $wildsite Badword detected (* $+ $ifmatch $+ *) | break }
          inc %x
        }
      }
      if (%Protections.Massiveflood) {
        inc -u5 %System.massiveflood
        if (!$read(Ma.txt,w,$wildsite)) write Ma.txt $wildsite
        if (!$read(Mn.txt,w,$nick)) write Mn.txt $nick
        .timerMassiveflood_ $+ $nick 1 5 Removefrom Ma.txt $wildsite $(|) Removefrom Mn.txt $nick
        if (%System.massiveflood == %Settings.massivefloodtimes) && (!%FLOODWORK) { mode %Settings.channel +mir | .timerBanit* off | .timerMassiveflood_* off | .timerENDMassive 1 3 FLOODWORK Massive }
      }
    }
  }
}
alias docheck {
  inc -u20 %System.PMBadwords
  .mode %Settings.channel +r
  hop %Settings.channel
  .timer 1 3 .mode %Settings.channel -r
}
on *:connect: .timer 1 3 join %Settings.channel | .timerpmbadwords 0 1200 docheck
on *:join:%Settings.channel: {
  if (%Protections.Joinflood) {
    inc -u5 %System.Joinflood
    if (!$read(Ja.txt,w,$wildsite)) write Ja.txt $wildsite
    if (!$read(Jn.txt,w,$nick)) write Jn.txt $nick
    .timerJoinflood_ $+ $nick 1 5 Removefrom Ja.txt $wildsite $(|) Removefrom Jn.txt $nick
    if (%System.Joinflood == %Settings.Joinfloodtimes) && (!%FLOODWORK) { mode %Settings.channel +mir | .timerBanit* off | .timerJoinflood_* off | .timerENDJoinFlood 1 3 FLOODWORK }
  }
  if (%Protections.Openproxy) {
    if ($level($ulist($address($nick,5))) == OpenProxy) {
      banit # $nick $maddress Openproxy detected ( $+ $maddress $+ )
    }
  }
  if (%Protections.blacklist) {
    var %x = 1
    while ($read(blacklist.txt,%x)) {
      var %b1 = $gettok($v1,1,32), %reason = $gettok($v1,2-,32)
      if ($nick isin %b1) || (%b1 isin $nick) || (%b1 == $wildsite) {
        banit # $nick $wildsite You are in my blacklist $+ $iif(%Reason,$chr(44) Reason: $v1)
        break
      }
      inc %x
    }
  }
}
alias Removefrom { if ($read($1,w,$2)) write -d [ $+ [ $readn ] ] $1 }
alias FLOODWORK {
  set %FLOODWORK 1
  .copy -o [ [ $iif(Massive isin $1,Ma,Ja) ] $+ ] .txt [ [ $iif(Massive isin $1,Ma,Ja) ] $+ ] -copy.txt
  .copy -o [ [ $iif(Massive isin $1,Mn,Jn) ] $+ ] .txt [ [ $iif(Massive isin $1,Mn,Jn) ] $+ ] -copy.txt
  .write -c [ [ $iif(Massive isin $1,Ma,Ja) ] $+ ] .txt | .write -c [ [ $iif(Massive isin $1,Mn,Jn) ] $+ ] .txt
  var %x = 1, %bans,%t = 0,%k = 1
  while ($read([ [ $iif(Massive isin $1,Ma,Ja) ] $+ ] -copy.txt,%x)) {
    %bans = %bans $v1
    if ($numtok(%bans,32) == $modespl) {
      .timer 1 %t mode %Settings.channel + $+ $str(b,$modespl) %bans
      %bans = $null
      inc %t
    }
    inc %x
  }
  if (%bans) { .timer 1 %t mode %Settings.channel + $+ $str(b,$modespl) %bans | inc %t }
  unset %fwk
  .timer 1 $calc(%t +2) FLOODWORKKICK $iif(Massive isin $1,Massiveflood,Joinflood)
}
alias FLOODWORKKICK {
  if (!%fwk) set %fwk 1
  var %rds = $read([ [ $iif(Massive isin $1,Mn,Jn) ] $+ ] -copy.txt,%fwk)
  if (%rds) {
    inc %System.id
    if (%rds ison %Settings.channel) {
      .kick %Settings.channel %rds Massive $iif(Join isin $1,Join $+ $chr(32)) $+ Flood detected (ID: $chr(35) $+ %System.id $+ )
      inc %fwk
      FLOODWORKKICKNEXT $1
    }
    else {
      inc %fwk
      FLOODWORKKICKNEXT quick $1
    }

  }
  else {
    .remove [ [ $iif(Massive isin $1,Ma,Ja) ] $+ ] -copy.txt
    .remove [ [ $iif(Massive isin $1,Mn,Jn) ] $+ ] -copy.txt
    unset %fwk
    unset %floodwork
    .timerEND [ $+ [ $iif(Massive isin $1,Massive,JoinFlood) ] ] 1 1 mode %Settings.channel -mir
  }
}
alias FLOODWORKKICKNEXT {
  if ($1 == quick) FLOODWORKKICK $2
  else .timer 1 3 FLOODWORKKICK $1
}
on *:part:%Settings.channel: {
  Removefrom Mn.txt $nick
  Removefrom Jn.txt $nick
  if (%Protections.joinpart) {
    inc -u15 %Systemjoinpart. [ $+ [ $nick ] ]
    if ($(%Systemjoinpart. [ $+ [ $nick ] ],2) == %Settings.joinpartimes) { banit # $nick $wildsite Join flood detected }
  }
}
alias banit { .timerBanit $+ $nick -m 1 800 banitnext $1- }
alias banitnext {
  if (!$timer(ENDJoinFlood)) && (!$timer(ENDMassive)) { inc %System.id | mode $1 +b $3 | if ($2 ison $1) kick $1 $2 $4- (ID: $chr(35) $+ %System.id $+ ) }
}
on !@*:MODE:%Settings.channel: if ((i isin $gettok($1,$iif(- isin $1,2,1),43)) || (k isin $gettok($1,$iif(- isin $1,2,1),43))) && (%Protections.takeover) && ($nick != Q) { .msg q ban # $nick Takeover detected | .timer 1 2 banit # $nick $wildsite Takeover detected | .mode # -ik $2 }
on !@*:BAN:%Settings.channel:{
  if (%Protections.Takeover) {
    if ($banmask iswm $address($me,5)) && ($nick != Q) { .msg q ban # $nick Takeover detected | .timer 3 1 msg q unbanme %Settings.channel | .timer 3 1 join %Settings.channel | .timer 2 2 banit # $nick $wildsite Takeover detected | .timer 3 1 msg q removeuser # $nick }
    if ($nick != Q) {
      var %x = 1
      while ($read(protected.txt,%x)) {
        var %b1 = $v1
        if ($banmask isin %b1) || (%b1 isin $banmask) {
          .mode # -b $banmask | .msg q ban # $nick $iif($ial(*!*@ $+ $right($banmask,-4),1).nick,$v1,He) Dont ban the protected users ! | .timer 3 1 msg q removeuser # $nick | banit # $nick $wildsite Dont ban the protected users !
          break
        }
        inc %x
      }
    }
    if ($nick != Q) {
      inc -u5 %bans. [ $+ [ $wildsite ] ]
      if (%bans. [ $+ [ $wildsite ] ] == %Protections.bankicks) { .timer 3 1 msg q ban # $nick Takeover detected | banit # $nick $wildsite Takeover detected }
    }
  }
}
on !@*:KICK:%Settings.channel:{
  if (%Protections.Takeover) {
    if ($knick == $me) && ($nick != Q) { .join # | .msg q ban # $nick Takeover detected | .timer 3 1 msg q removeuser # $nick }
    elseif ($right($address($knick,2),-4) isin %Settings.users) && ($nick != Q) { .msg q ban # $nick $knick Dont kick the protected users ! | .timer 3 1 msg q removeuser # $nick }
    elseif ($right($wildsite,-4) !isin %Settings.users) && ($nick != Q) {
      inc -u10 %sbk. $+ $nick   
      if ($(% $+ sbk. $+ $nick,2) == %Protections.bankicks) { .msg q ban # $knick Takeover detected | .timer 3 1 msg q removeuser # $nick }
    }
    elseif ($nick == Q) { .timer 3 1 join %Settings.channel }
  }
}
;; dialog ;;
menu * {
  Security bot: dialog $iif($dialog(SM),-v,-m) SM SM
}
dialog SM {
  title "KaryoS Security bot v1.0"
  size -1 -1 122 179
  option dbu
  text "Channel:", 4, 5 8 25 8
  text "Master pass:", 5, 5 19 31 8
  text "Ban duration:", 18, 5 30 34 8
  edit "", 6, 40 6 77 11, autohs
  edit "", 7, 40 17 77 11, autohs
  edit "", 19, 40 28 26 11, autohs
  text "", 20, 67 29 49 9
  box "Protections", 8, 5 44 112 118
  check "Text flood", 9, 9 54 50 10
  button "Set times", 3, 63 55 47 10
  check "Bad words", 10, 9 64 50 10
  button "Control", 21, 63 65 47 20
  check "Join part", 12, 9 84 50 10
  check "Take over", 13, 9 94 50 10
  button "Set times", 22, 63 85 47 10
  button "Set times", 23, 63 95 47 10
  button "Control", 24, 63 105 47 10
  check "Proxy blocker", 14, 9 104 50 10
  check "Black list", 15, 9 114 50 10
  button "Control", 25, 63 115 47 10
  button "Set times", 26, 63 125 47 10
  check "Massive flood", 16, 9 124 50 10
  check "Massive join", 17, 9 134 50 10
  button "Set times", 27, 63 135 47 10
  button "SAVE ALL", 28, 5 164 112 12
  check "PM badwords", 11, 9 74 50 10
  check "Protected", 1, 9 144 50 10
  button "Control", 2, 63 145 47 10
}
on *:dialog:*:*:*:{
  if ($dname == SM) {
    if ($devent == init) {
      did -a $dname 6 %Settings.Channel
      did -a $dname 7 %Settings.Masterpass
      did -a $dname 19 %Settings.unban
      if (%Protections.Protected) did -c $dname 1
      if (%Protections.Flood) did -c $dname 9
      if (%Protections.badwords) did -c $dname 10
      if (%Protections.PMBadwords) did -c $dname 11
      if (%Protections.Joinpart) did -c $dname 12
      if (%Protections.Takeover) did -c $dname 13
      if (%Protections.Openproxy) did -c $dname 14
      if (%Protections.Blacklist) did -c $dname 15
      if (%Protections.MassiveFlood) did -c $dname 16
      if (%Protections.JoinFlood) did -c $dname 17
      did -ra $dname 20 $gettok($duration($did(19)),1-3,32)
    }
    elseif ($devent == edit) && ($did == 19) { did -ra $dname 20 $gettok($duration($did(19)),1-3,32) }
    elseif ($devent == sclick) {
      if ($did == 3) { $iif($input(Set flood text times:,e,Settings,%Settings.floodtimes),set %Settings.floodtimes $v1) }
      elseif ($did == 26) { $iif($input(Set massive flood text times:,e,Settings,%Settings.massivefloodtimes),set %Settings.massivefloodtimes $v1) }
      elseif ($did == 21) { if ($dialog(Securitydialogcontrol)) dialog -x Securitydialogcontrol | dialog -m Securitydialogcontrol Securitydialogcontrol | dialog -t Securitydialogcontrol Badwords control | controlinit }
      elseif ($did == 22) { $iif($input(Set join part times:,e,Settings,%Settings.joinpartimes),set %Settings.joinpartimes $v1) }
      elseif ($did == 27) { $iif($input(Set join flood - join times:,e,Settings,%Settings.Joinfloodtimes),set %Settings.Joinfloodtimes $v1) }
      elseif ($did == 23) { $iif($input(Set ban and kicks times:,e,Settings,%Protections.bankicks),set %Protections.bankicks $v1) }
      elseif ($did == 24) { if ($dialog(Securitydialogcontrol)) dialog -x Securitydialogcontrol | dialog -m Securitydialogcontrol Securitydialogcontrol | dialog -t Securitydialogcontrol Openproxy control | controlinit }
      elseif ($did == 28) && (#* iswm $did(6)) { set %Settings.channel $did(6) }
      if ($did == 28) { set %Settings.masterpass $did(7) | set %Settings.unban $did(19) }
      elseif ($did == 25) { if ($dialog(Securitydialogcontrol)) dialog -x Securitydialogcontrol | dialog -m Securitydialogcontrol Securitydialogcontrol | dialog -t Securitydialogcontrol Blacklist control | controlinit }
      elseif ($did == 2) { if ($dialog(Securitydialogcontrol)) dialog -x Securitydialogcontrol | dialog -m Securitydialogcontrol Securitydialogcontrol | dialog -t Securitydialogcontrol Protected control | controlinit }
      elseif ($did isnum 9-17) || ($did == 1) {
        var %sset = $iif($did($did).state,inc,unset)
        goto $did
        :1 | %sset %Protections.Protected | halt
        :9 | %sset %Protections.flood | halt
        :10 | %sset %Protections.badwords | halt
        :11 | %sset %Protections.PMBadwords | halt
        :12 | %sset %Protections.Joinpart | halt
        :13 | %sset %Protections.TakeOver | halt
        :14 | %sset %Protections.Openproxy | halt
        :15 | %sset %Protections.Blacklist | halt
        :16 | %sset %Protections.MassiveFlood | halt
        :17 | %sset %Protections.Joinflood | halt
        halt
      }
    }
  }
  elseif ($dname == Securitydialogcontrol) {
    if ($devent == sclick) {
      if (Badword isin $dialog(Securitydialogcontrol).title) {
        if ($did == 2) { if ($input(Write words:,e,Settings)) { write bw.txt $replace($v1,$chr(35),$ $+ !chr(35)) } | controlinit }
        elseif ($did == 3) && ($did(1).seltext) && ($read(bw.txt,w,$replace($did(1).seltext,$chr(35),$ $+ !chr(35)))) { write -dl $+ $readn bw.txt | controlinit }
        elseif ($did == 4) && ($input(Are you sure clear all badwords ?,y,Clear)) { write -c bw.txt | controlinit }
      }
      elseif (Blacklist isin $dialog(Securitydialogcontrol).title) {
        if ($did == 2) { if ($input(Write address/nick:,e,Settings)) { write Blacklist.txt $v1 $input(Write reason (For no reason keep empty):,e,Reason) } | controlinit }
        elseif ($did == 3) && ($did(1).seltext) && (($read(Blacklist.txt,w,$did(1).seltext *) || $read(Blacklist.txt,w,$did(1).seltext))) { write -dl $+ $readn Blacklist.txt | controlinit }
        elseif ($did == 4) && ($input(Are you sure clear all blacklist ?,y,Clear)) { write -c Blacklist.txt | controlinit }
      }
      elseif (Protected isin $dialog(Securitydialogcontrol).title) {
        if ($did == 2) { if ($input(Write address/nick:,e,Settings)) { write Protected.txt $v1 } | controlinit }
        elseif ($did == 3) && ($did(1).seltext) && ($read(Protected.txt,w,$did(1).seltext)) { write -dl $+ $readn Protected.txt | controlinit }
        elseif ($did == 4) && ($input(Are you sure clear all protected ?,y,Clear)) { write -c Protected.txt | controlinit }
      }
      else {
        if ($did == 2) { $iif($input(Write address:,e,Settings),.auser OpenProxy $v1) | controlinit }
        elseif ($did == 3) && ($did(1).seltext) { .ruser OpenProxy $did(1).seltext | controlinit }
        elseif ($did == 4) && ($input(Are you sure clear all openproxy addresses ?,y,Clear)) {
          var %x = 1 | while ($ulist(*,Openproxy,%x)) { .rLEVEL OpenProxy | inc %x }
          controlinit
        }
      }
    }
  }
}
dialog Securitydialogcontrol {
  title "Control"
  size -1 -1 127 56
  option dbu
  list 1, 4 5 79 46, size
  button "Add", 2, 86 6 37 12
  button "Remove", 3, 86 22 37 12     
  button "Clear", 4, 86 38 37 12     
}
alias controlinit {
  did -r SecuritydialogControl 1
  if (Badwords isin $dialog(Securitydialogcontrol).title) {
    var %x = 1 | while ($read(bw.txt,%x)) { did -a SecuritydialogControl 1 $replace($v1,$ $+ chr(35),$chr(35),$ $+ !chr(35),$chr(35)) | inc %x }
  }
  elseif (Blacklist isin $dialog(Securitydialogcontrol).title) {
    var %x = 1 | while ($read(blacklist.txt,%x)) { did -a SecuritydialogControl 1 $gettok($v1,1,32) | inc %x }
  }
  elseif (Protected isin $dialog(Securitydialogcontrol).title) {
    var %x = 1 | while ($read(Protected.txt,%x)) { did -a SecuritydialogControl 1 $v1 | inc %x }
  }
  else {
    var %x = 1 | while ($ulist(*,Openproxy,%x)) { did -a SecuritydialogControl 1 $v1 | inc %x }
  }
}
KaryoS Securitybot by karyos
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

MIRCX IRC Network :: MIRCX :: MIRCX

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