Özele Gelen Botnet Mesajlarını oto spama almak MİRC!

Özele Gelen Botnet Mesajlarını oto spama almak MİRC! YENİ OLDUĞUNDAN DOLAYI AŞAĞIDAKİ KOD GİBİDİR... 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 (!%nickw. [ $+ [ $nick ] ]) { halt } var %t = 1 , %kelime = $strip($gettok($1-,0,32)) var %cümle = $strip($1-) if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $strip($1-) | halt } while (%t <= %kelime) { set %ara $strip($gettok($1-,%t,32)) if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara | halt } if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara | halt } if (*-* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara | halt } if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara | halt } if (*@* iswm %ara) && ($3) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) | halt } if (*@h?* iswm %ara) { spch $nick %ara | halt } 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 | halt } inc %t 1 } } alias yildiztemizle { var %y $+(.,?) , %yi %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) return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- ) } alias spamekle { spamfilter add cNnpa gzline +7200 Spam! $1- } alias spamsil { spamfilter del cNnpa gzline +7200 Spam! $1- }