| XcLusive | 26 Aralık 2008 11:20 |
Cevap: özelinize gelen botnet mesajlarına oto spam!
Kod:
alias spamcheck {
var %::nick = $1
if (*_* iswm $4-) && ($right($4,1) isnum) && ($5 == $null) { spch 1 %::nick $strip($4-) | halt }
if ($right($gettok($4-,$numtok($4-,32),32),2) isnum) { spch 2 %::nick $strip($gettok($4-,$numtok($4-,32),32)) | halt }
if ($right($4,1) isnum) && (!$5) { spch 3 %::nick $strip($4-) | halt }
if ($right($5,1) isnum) && (!$6) { spch 4 %::nick $strip($4-) | halt }
if ($right($4,1) == @) && (!$5) { spch 5 %::nick $strip($4-) | halt }
if ($right($gettok($4-,$numtok($4-,32),32),1) == f) && $mid($gettok($gettok($4-,$numtok($4-,32),32),$numtok($gettok($4-,$numtok($4-,32),32),32),32),$calc($len($gettok($4-,$numtok($4-,32),32)) -2),2) { spch 6 %::nick $right($gettok($4-,$numtok($4-,32),32),1) | halt }
if (*-* iswm $4) && (!$5) { spch 7 %::nick $strip($4-) | halt }
if (*_* iswm $5) && (!$6) { spch 8 %::nick $strip($4-) | halt }
if (*_* iswm $gettok($4-,$numtok($4-,32),32)) { spch 9 %::nick $strip($gettok($4-,$numtok($4-,32),32)) | halt }
if (*-* iswm $gettok($4-,$numtok($4-,32),32)) { spch 10 %::nick $strip($gettok($4-,$numtok($4-,32),32)) | halt }
if ($gettok($4-,$numtok($4-,32),32) isnum) { spch 11 %::nick $strip($gettok($4-,$numtok($4-,32),32)) | halt }
var %t = 1 , %kelime = $strip($gettok($4-,0,32))
var %cümle = $strip($4-)
if (%kelime == 2) && ($len($strip($4)) >= 5) && ($strip($5) == @) { spch 12 %::nick $strip($4-) | halt }
while (%t <= %kelime) {
set %ara $strip($gettok($4-,%t,32))
if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch 13 %::nick %ara | halt }
if (*ekle* iswm %ara) && ($6) { spch 14 %::nick %ara $gettok($strip($4-),$calc(%t + 1),32) | halt }
if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch 15 %::nick %ara | halt }
if (*-* iswm %ara) && ($right(%ara,1) isnum) { spch 16 %::nick %ara | halt }
if (*_* iswm %ara) && (*@* iswm %ara) { spch 17 %::nick %ara | halt }
if (*-* iswm %ara) && (*@* iswm %ara) { spch 18 %::nick %ara | halt }
if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch 19 %::nick %ara | halt }
if (*@h?* iswm %ara) { spch 20 %::nick $gettok($strip($4-),$calc(%t - 1),32) %ara | halt }
if ($right(%ara,1) == f) && $mid($gettok(%ara,$numtok(%ara,32),32),$calc($len(%ara) -2),2) { spch 21 %::nick %ara | halt }
if ($right($gettok($strip($4-),$calc(%t - 1),32),1) isnum) && $regex(%ara,/(.*hot.*|.*h0t.*)/i) { spch 22 %::nick $gettok($strip($4-),$calc(%t - 1),32) %ara | halt }
inc %t 1
}
}
on *:open:?:{
set -u5 %nickw. [ $+ [ $nick ] ] warn
}
on *:text:*:?:{
if (!%nickw. [ $+ [ $nick ] ]) { halt }
spamcheck $nick x y $1-
}
alias spch {
if !$window(@Spams) { window -ne @Spams }
echo 4 -t @Spams Spam : $2 - Mesaj : $3-
;buraya kick ve spamfilter komutu örnek:
spamekle $yildiztemizle($3-)
echo 4 -t @Spams Eklenen Spam : $yildiztemizle($3-)
}
alias spamekle {
spamfilter add cNnpa gzline +7200 Spam! $1-
}
alias spamsil {
spamfilter del cNnpa gzline +7200 Spam! $1-
}
alias yildiztemizle {
var %y $+(.,?) , %yi
if $numtok($1-,32) == 1 {
var %1kelime 1
}
%yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$ chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$ch r(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr (164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$ch r(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$ch r(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr( 34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr( 45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)
if %1kelime {
%yi = $+(^,%yi,$chr(36))
}
return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
}
bottan alıp mirc için uyarladım test etme fırsatım olmadı hataları vs. buraya yazarsınız mükemmel bir beklenti içersinde olmayın sonuçta bir mantıksal işlem :) |
