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

Latest topics
October 2017
MonTueWedThuFriSatSun
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendar Calendar

Affiliates
free forum

Affiliates
free forum


KaryoS Securitybot

View previous topic View next topic Go down

KaryoS Securitybot

Post  Admin on 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
avatar
Admin
Admin

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

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

Back to top Go down

View previous topic View next topic Back to top


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