Search
Web Applications
install Joomla Wordpress Phpbb Drupal FluxBB PunBB osCommerce simple-machines MYBB moodle vBulletin Dolphin-v.7.1.1 PHPNUKE XOOPSServices
install BorkNet Services X3 Services Anope Atheme Services Srvx IRC SrervicesIRCD
install Snircd IRCU INSPIRCD UNREAL Nefarious Bircd Bahamut Asuka CharybdisTCL SCRIPT
TCL SCRIPT FOR EGGDROP
Allprotection4.7 AntiproxyBots
Bots install FishBot bobot++ Eggdrop janus Omega Security Services Botnix Bopm SupyBot PyLink HopmLatest topics
KaryoS Securitybot
MIRCX IRC Network :: MIRCX :: MIRCX
Page 1 of 1
KaryoS Securitybot
קוד:סיקירוטי חדרים
נבנה על ידי: KaryoS
זכויות שמורות ל KaryoS אין לעתיק או לחליף קרדיט!!
נבנה על ידי: 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 }
}
}
MIRCX IRC Network :: MIRCX :: MIRCX
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
|
|
Sat Aug 05, 2023 2:09 am by Chief
» mIRCx IRC Network Config
Sat Jul 15, 2023 9:51 pm by Chief
» ircu2.10.12-pk with dnsbl
Fri Mar 10, 2023 2:22 pm by Admin
» Guide install PyLink on New version FreeBSD
Thu Dec 15, 2022 9:39 pm by Chief
» מדריך התקנה PBot על מערכת הפעלה FreeBsd-12
Mon Dec 05, 2022 5:44 am by Chief
» install Nefarious2 && X3 IRC Services in FreeBsd
Sat Nov 12, 2022 3:12 pm by Chief
» help problem with adduser in Freebsd 12
Fri Nov 11, 2022 9:06 pm by Chief
» מדריך פקודות והתקנה בסרביס X3
Fri Oct 28, 2022 1:43 pm by Chief
» מדריך הגדרות WebIRC in Nefarious2
Thu Apr 07, 2022 4:45 am by Chief