#psyloinc on
on *:join:#flood: if ($nick == $me) .msg birc op #flood 123456
on *:join:#flood: if ($nick == $me) .msg birc op #flood 123456
on ^!@*:text:*:#: $iif($nick isreg #,$x($1-),halt)
on ^!@*:notice:*:#: $iif($nick isreg #,$x($1-),halt)
on ^!@*:action:*:#: $iif($nick isreg #,$x($1-),halt)
on *:ctcpreply:*: $iif($nick isreg #,.k # $nick reply)
ctcp !@*:*:#: $iif($nick isreg #,.k # $nick ping)
alias x {
.hadd -u2m a $regex($1-,/[[:cntrl:]]/g)
if ($hregex(a,$regex($1-,/[[:cntrl:]]/g)) > 49) .k # $nick colour
.hadd -u2m b $regex($1-,/[[:upper:]]/g)
if ($hregex(b,$regex($1-,/[[:upper:]]/g)) > 49) .k # $nick Besar
.hadd -u2m c $regex($1-,/[[:digit:]]/g)
if ($hregex(c,$regex($1-,/[[:digit:]]/g)) > 49) .k # $nick Nombor
.hadd -u2m d $regex($1-,/[[:punct:]]/g)
if ($hregex(d,$regex($1-,/[[:punct:]]/g)) > 49) .k # $nick Simbol
.hadd -u2m e $regex($1-,/[ $chr(160) ]/g)
if ($hregex(e,$regex($1-,/[ $chr(160) ]/g)) > 49) .k # $nick Kosong
.hadd -u2m f $regex($1-,/[ $chr(174) ]/g)
if ($hregex(f,$regex($1-,/[ $chr(174) ]/g)) > 49) .k # $nick Ascii
.hadd -u2m g $regex($1-,/./g)
if ($hregex(g,$regex($1-,/./g)) > 199) .k # $nick Text terlebih panjang la sayang
.hadd -u2m h $regex($1-,/\b(burit|sex|pepek|kimak|kelentit|kotey|kote|pelir|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|babi|butuh|konek|suck|fuck)\b/Si))
if ($hregex(h,$regex($1-,/\b(burit|sex|pepek|kimak|kelentit|kotey|kote|pelir|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|babi|butuh|konek|suck|fuck)\b/Si))) .k # $nick Kelucahan melampau
.hadd -u2m i $regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si))
if ($hregex(i,$regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3 })\S*)|#[^\40]\S*)/Si))) .k # $nick Iklan
.hinc -u4m repeat [ $+ [ $chan ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(repeat [ $+ [ $chan ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { .k # $nick Ulangs berapa kali | halt }
.hinc -u7m text [ $+ [ $chan ] ] $nick 1 | if ($hget(text [ $+ [ $chan ] ],$nick) > 4) { .k # $nick Garis | halt }
.hinc -u4m newrow [ $+ [ # ] ] $address($nick,3) 1 | if ($hget(newrow [ $+ [ # ] ],$address($nick,3)) > 4) { .k # $nick new.rows | halt }
.hinc -u7m newrpt [ $+ [ # ] $+ [ $address($nick,3) ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(newrpt [ $+ [ # ] $+ [ $address($nick,3) ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { .k # $nick berapa kali nak ulang? | halt }
.hinc -u5m sp $hash($+(#$chan,$address($nick,3),$remove($strip($1-),$chr(160),$chr(32))),32) 1 | if $hget(sp,$hash($+($chan,$address($nick,3),$remove($strip($1-),$chr(160),$chr(32))),32)) > 2) { .k # $nick berapa kali nak ulang? | halt }
}
off ^*:logon:*:{ /debug -input Nul ExploitCatcher }
alias ExploitCatcher {
if ($regex($1, /^<- :([^!]*)![^@]*@[^ ]*\s*PRIVMSG\s*(\S*)\s*:\001\s*DCC\s*(SEND|RESUME).*"(?:[^" ]*\s){32}.*$/i)) {
var %nk = $regml(1), %tt = $regml(2)
.ignore -5u %nk
if ($me isop %tt) {
$k(%tt,%nk,exploit)
.b
}
}
}
alias -l k {
if ($2 ison $1) {
.inc -u8 %z 1
if (%z isnum 1-20) {
.KICK $1 $2 4,1 » 4,6» P-s-y-l-o-i-n-c 4,1 » 4,6»
.b
}
.hadd -m hnick $+($1,.,$2,.,$3)
if (%z == 100) {
.set %a 1
.timerdc 1 5 _delaycalc
}
}
halt
}
alias _hfree {
if ($hget(hnick) != $null) {
.hfree hnick
}
}
alias -l _delaycalc {
:loop
if (%a == $hget(hnick,0).item) goto end
var %b = $gettok($hget(hnick,%a).item,1,46)
var %c = $gettok($hget(hnick,%a).item,2,46)
var %d = $gettok($hget(hnick,%a).item,3,46)
if (%c ison %b) {
inc %a 1
_delaykick %b %c %d
}
inc %a 1
goto loop
:end
_hfree
.unset %a
}
alias -l _delaykick {
if ($2 ison $1) {
.KICK $1 $2 psyloinc
.timeronggeng -qmcdos 1 1000 _delaycalc
}
.halt
}
alias b {
.hadd -mu10 mb $nick $+ !*@*psyloinc*
.timerb1 1 46 .mode # + $+ $str(b,$hget(mb,*).item) $hget(mb,1).item $hget(mb,2).item $hget(mb,3).item $hget(mb,4).item $hget(mb,5).item $hget(mb,6).item $hget(mb,7).item $hget(mb,8).item $hget(mb,9).item $hget(mb,10).item $hget(mb,11).item $hget(mb,12).item
.b2
}
alias b1 {
.hadd -mu10 mbb $nick $+ !*@*psylo.Inc*
.timerb2 1 47 .mode # + $+ $str(b,$hget(mbb,*).item) $hget(mbb,1).item $hget(mbb,2).item $hget(mbb,3).item $hget(mbb,4).item $hget(mbb,5).item $hget(mbb,6).item $hget(mbb,7).item $hget(mbb,8).item $hget(mbb,9).item $hget(mbb,10).item $hget(mbb,11).item $hget(mbb,12).item
.b3
}
alias b2 {
.hadd -mu10 mmbb $nick $+ !*@*psylo.Inc.My*
.timerb3 1 48 .mode # + $+ $str(b,$hget(mmbb,*).item) $hget(mmbb,1).item $hget(mmbb,2).item $hget(mmbb,3).item $hget(mmbb,4).item $hget(mmbb,5).item $hget(mmbb,6).item $hget(mmbb,7).item $hget(mmbb,8).item $hget(mmbb,9).item $hget(mmbb,10).item $hget(mmbb,11).item $hget(mmbb,12).item
}
#psyloinc end
