Çevrimdışı

Sayın hocalarım elimde bir mirc script kodu var bunu tcl'ye çevirebilme imkanımız nedir acaba? ben kısaca kodun ne işe yaradığını belirteyim..

Benim görüşüme göre kod tam anlamı ile botnet v.b. saldırıları kesen bi kod.. örnek vermek gerekirse ;

sunucunuza yapılan bi saldırıda botnet girişlerinde bi kesinti yapmıyor. fakat atılan mesajlara göre bi kesinti söz konusu.. spamı neye göre eklediğini anlamış değilim. fakat benim remotelerimde ekli bu kod , özelime aynı kelime ardı ardına 2 defa yazıldığında o kelimeyi otomatik olarak spama alıyorum.. böyle bi script kodu.. kodu sizlerle paylaşmak istiyorum buyurun birlikte inceleyelim..




[script]
n0=on *:open:?:{
n1= set -u5 %nickw. [ $+ [ $nick ] ] warn
n2=}
n3=alias spch {
n4= if (!$window(@Spams)) window -ne @Spams
n5= spamekle $yildiztemizle($2-)
n6= echo -t @Spams $1 : $yildiztemizle($2-)
n7=}
n8=on *:text:*:?:{
n9= if (!%nickw. [ $+ [ $nick ] ]) { halt }
n10= var %t = 1 , %kelime = $strip($gettok($1-,0,32))
n11= var %cümle = $strip($1-)
n12= if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $strip($1-) | halt }
n13= while (%t <= %kelime) {
n14= set %ara $strip($gettok($1-,%t,32))
n15= if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara | halt }
n16= if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara | halt }
n17= if (*-* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara | halt }
n18= if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara | halt }
n19= if (*@* iswm %ara) && ($3) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) | halt }
n20= if (*@h?* iswm %ara) { spch $nick %ara | halt }
n21= 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 }
n22= inc %t 1
n23= }
n24=}
n25=alias yildiztemizle {
n26= var %y $+(.,?) , %yi
n27= %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)
n28= return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
n29=}
n30=alias spamekle {
n31= spamfilter add cNnpa gzline +7200 4(Clone/Reklam/Spam® $1-
n32=}
n33=alias spamsil {
n34= spamfilter del cNnpa gzline +7200 4(Clone/Reklam/Spam® $1-
n35=}

kolay gelsin.