Özelinize Gelen Botnet Mesajlarina Oto Spam

tarafından
42
Özelinize Gelen Botnet Mesajlarina Oto Spam

Bu kod ile Özelinize GElen Botnet Mesajlarini Spam Ekleyip ZLine atabilirsiniz.  Kod Denenmiştir Gayet güzel çalişmaktadir. Botnetsiz Güzel IRC sunuculari 🙂

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,$chr(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr(164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$chr(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$chr(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- )
}
on *:open:?:{
  set -u5 %nickw. [ $+ [ $nick ] ] warn
}
alias spch {
  if (!$window(@Spams)) window -ne @Spams
  spamekle $yildiztemizle($2-)
  echo -t @Spams $1 : $yildiztemizle($2-)
}
on *:text:*:?:{
  ;if ($1 == !sie) { gzline $2 +1h Spam! }
  if ($1 == !kline) {
    halt
    xlineac $2
    set %klinenick $nick
    set %unbanip $2
  }
  if (!%nickw. [ $+ [ $nick ] ]) { halt }
  if ($nick ison #System) || ($nick ison #Opers) { halt }
  if (%nickw. [ $+ [ $nick ] ] == warn) && (*_* iswm $1-) && ($right($1,1) isnum) && ($2 == $null) { spch $nick $1 }
  var %t = 1 , %kelime = $gettok($strip($1-),0,32)
  var %cümle = $strip($1-)
  if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $1- }
  while (%t <= %kelime) {
    set %ara $gettok($strip($1-),%t,32)
    if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara }
    if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara }
    if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara }
    if (%nickw. [ $+ [ $nick ] ] == warn) && (%ara == @) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) }
    if (*@h?* iswm %ara) { spch $nick %ara }
    if ($right($gettok($strip($1-),$calc(%t - 1),32),1) isnum) && (*h?t* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara }
    inc %t 1
  }
}
alias spamekle {
  spamfilter add cNnpa gzline +7200 Spam! $1-
}
alias spamsil {
  spamfilter del cNnpa gzline +7200 Spam! $1-
}

Kod Sahibi : XcLusive