Kodun amacı, Sunucu Üzerindedeki kanal topiclerini “/list” cekerek kontrol etmek
topiclerde reklam iceren bir url adresi varsa @topic-reklam penceresine rapor etmek. umarım işinize yarar . Global kanallarrıda muaf olarak ekleyebilirsiniz.

Kodları ALT+R yaparak Mirc remotesine ekleyiniz.

Kodlayan:SiLuet

;Kod başlar

raw 322:*:{
if !$istok(#oyun #radyo #operhelp #opers #helper #help,$2,32) {
if (www. isin $4-) || (gen.tr isin $4-) || (.org isin $4-) || (http: isin $4-) || (com. isin $4-) || (com.tr isin $4-) || (net. isin $4-) {
$iif(!$window(@topic-reklam),window -en @Topic-Reklam)
echo @Topic-Reklam 4 $2 10Kanal Topicinde 4Reklam Tesbiti.!!
echo @Topic-Reklam 10Kanal Topic => $4- | echo @Topic-Reklam 4-
}
}
}

;kod biter

Kullanımı : Mirc uzerinden ALT + R yapıp remote kısmına kodları ekleyiniz

Kodlayan: h4pp3n

alias tor_ { if ($1) { inc %xx | sockopen $+(tor*,%xx) tor.efnet.org 80 | sockmark $+(tor*,%xx) $1 } }
on *:sockopen:tor*:{
var %s sockwrite -n $sockname
%s GET /?i= $+ $sock($sockname).mark HTTP/1.1
%s Host: tor.efnet.org
%s $crlf
}
on *:sockread:tor*:{
var %x [ $+ [ $sockname ] ]
sockread %x [ $+ [ $sockname ] ]
if (*was found* iswm %x [ $+ [ $sockname ] ]) {
gzline $+(*@,$gettok($gettok(%x [ $+ [ $sockname ] ],-2,$asc(:)),-1,32)) 1h 1IP adresinizde 4PROXY ( $+ $gettok($gettok(%x [ $+ [ $sockname ] ],1,41),2,40) $+ ) 1girişi tespit edilmiştir.
sockclose $sockname
}
}
raw 352:*:{
tor_ $4
}
on *:snotice:*Client connecting*: {
.who +I $9
}

;##############################################
;# by SpecifiC – 29/07/07
;#
menu status,menubar,channel {
.-
.Tekrar Koruması
..Açık:.enable #xproxyx | .echo -a 0,2 Proxy Koruması Açıldı 
..Kapalı:.disable #xproxyx | .echo -a 0,2 Proxy Koruması Kapatıldı 
.-
}

#xproxyx on
on *:snotice:*Client*connecting*: {
var %dx = $gettok($right($left($10,-1),-1),2,64)
var %re = $iif($regex(%dx,-) != 1,$gettok(%dx,1,46),DONE)
if %re == DONE {
kline $9 Blocked HOSTNAME
goto end
}
;##############################################
;# Türkiye IP başlangıç haneleri. 88.147.44.55
;# Buraya bu ip numaralarını aralarında
;#boşluk bırakarak ekleyebiliriz.
;# Böylece bu ip numaraları ile başlayan
;# girişleri, servere almayacak.
;#
if $istok(81 85 88 80 212 195,%re,32) == $false {
kline $9 Blocked HOSTNAME
}
:end
}
#xproxyx end
;# End code
;###############################################

alias spamekle {
spamfilter add cpNna gzline – $server $yildiztemizle($1-)
}
alias spamsil {
spamfilter del cpNna gzline – $server $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,$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- )
}

Mirc de * /if: invalid format (line 4, aliases.ini) gibi hataları okutabildiğinizi hatta isterseniz rengini stilini değiştirebileceğinizi biliyormuydunuz?

şöyleki:
bir aliases oluşturalım adı deneme olsun
deneme {
if c = { echo alo }
:error
echo : $error
}
kasti olarak if fonksiyonunu hatalı yazdım /deneme yazınca gelen uyarı:
: * /if: invalid format (line 2, aliases.ini)
* /if: invalid format (line 2, aliases.ini)
: ile başlıyan bizim echo : $error dan gelen mesajımız
şimdi normal mirc nin mesajını iptal edelim

deneme {
if c = { echo alo }
:error
echo : $error
reseterror
}
böylece sadece : * /if: invalid format (line 2, aliases.ini) mesajını alırız

Eğer fonksiyonumuzda hata yoksa bu durumda yine error ifadesini görüntülemeye çalışacaktır bunu engellemenin yollarından iki tanesi :
1.
deneme {
if c = { echo alo }
halt
:error
echo : $error
reseterror
}

şeklinde kullanabilirsiniz eğer if komutumuz düzgün olsa idi halt ile işlemi sonlandırırdı.

2.
deneme {
if c = { echo alo }
:error
$derror($error)
reseterror
}

derror {
if $1 { return echo -t 7[5Hata!7]:5 $1- }
}

Benim tavsiyem 2. yöntemi kullanmanız böylece fonksiyonlarınızdaki hataları da özelleştirebilir. herhangi bir hatada debug.log oluşturup kullanıcıların sizinle irtibata geçmesini sağlayabilirsiniz. Bunları 1. dede yapabilirdiniz ama her fonksiyona eklemek yerine 1 fonksiyonu çağırmak çok daha kullanışlı olur.

Mirc ALT + R yaparak açılan yere aşagıdaki kodları yapıştırın. daha sonra mircinizde /remote on yazınız örnek olarak operservi ekledim siz istediginiz botu yazabilirsiniz hangi kanala girerseniz otomotik olarak o kanalda belirlediginiz mesajı yazacaktır..

on *:join:#: {
if ($nick == $me) {
MSG OperServ RAW :OperServ Privmsg $chan 4Z1aLi4M 1ChanneL Root Administrator 4Nick 1Has join to ChanneL.14..:: Nick 14is on IRC::..
else { halt | haltdef }
}
}

Bu hazır kod ile sunucunuzda bot saldırısı yapanları gline komutuyla uzaklaştırmış olursunuz. Günümüzde ki trojan saldırı botları, ” ctcp version ” sorgusuna yanıt vermemektedir. Dolayasıyla aşağıda ki hazır kod ile bu sorguya cevap vermeyen botlar sunucudan uzaklatırılmış olur. Mevcut hazır kodu mirc remote kısmına kopyalamanız yeterlidir.

on *:snotice:*Client connecting*: {
writeini version.ini $9 ip $+(*@,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64))
ctcp $9 version
.timer $+ $readini(version.ini,$9,ip) 1 30 versionban $9
}
alias versionban { gline $readini(version.ini,$1,ip) 1d :Trojan tespit edildi }
on 1:ctcpreply:* {
if ($1 == version) {
if ($regex($readini(version.ini,$nick,ip),\d) == 1) {
.timer $+ $readini(version.ini,$nick,ip) off
remini version.ini $nick
}
}
}

Kodlar ALT+R Yaparak Mircin Remote kısmına ekleniyor daha sonra Mircde /remote on komutunu kullanınız

on *:snotice:*client connecting*:{
.ctcp $9 version
.ctcp $9 finger
}
}

Öncelikle Mirc’i açınız ve aşagıdaki komutları sırası ile mircde yazınız. veya kopy pass yaparakta bu işlemi gerçekleştirebilirsiniz.

/alias /1 /say – -
/alias /2 /say – - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /3 /say – - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /4 /say – - 4MMMMMMMMMMMMMMM0XXXXXXXXXX 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /5 /say – - 4MMMMMMMMMMMMM0XXXXXXXXXXXXXX 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /6 /say – - 4MMMMMMMMMM0XXXXXXXXXXXXXXXXXXX 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /7 /say – - 4MMMMMMMMM0XXXXXXXXX4MMMMMMMMMM 0XXX4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /8 /say – - 4MMMMMMMM0XXXXXXXX4MMMMMMMMMMMMM0XX 4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /9 /say – - 4MMMMMMM0XXXXXXXX4MMMMMMMMMMMMM MMMMMM0XX4MMMMMMMMMMMMMMMMMMMMMM
/alias /10 /say – - 4MMMMMMM0XXXXXXX4MMMMMMMMM MMMMMMMMMMM0XXX4MM0XXXX4MMMMMMMMMMMMMMM
/alias /11 /say – - 4MMMMMMM0XXXXXX 0XXXXXXXX4MMMMMMMMMMMMMMMM
/alias /12 /say – - 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMM MM0XXXXXXXXXX4MMMMMMMMMMMMMMMMM
/alias /13 /say – - 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMM M0XXXXXXXXXXX4MMMMMMMMMMMMMMMMM
/alias /14 /say – - 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMM MMMM0XXXXXXXX4MMMMMMMMMMMMMMMM
/alias /15 /say – - 4MMMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMM MMM0XXX4MMM0XXX4MMMMMMMMMMMMMMM
/alias /16 /say – - 4MMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMMM MM0XXX4MMMMMMMMMMMMMMMMMMMMM
/alias /17 /say – - 4MMMMMMMM0XXXXXXXX4MMMMMMMMMMMMMM0X 4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /18 /say – - 4MMMMMMMMM0XXXXXXXXX4MMMMMMMMMM0XXX4M MMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /19 /say – - 4MMMMMMMMMM0XXXXXXXXXXXXXXXXXXX 
/alias /20 /say – - 4MMMMMMMMMMMM0XXXXXXXXXXXXXXXX4MMMMMM MMMMMMMMMMMMMMMMMMMMMMMM
/alias /21 /say – - 4MMMMMMMMMMMMMMM0XXXXXXXXX4MMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMM
/alias /22 /say – - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMM
/alias /23 /say – - 4MMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /24 /say – - 
/alias /f1 /1 | /2 | /3 | /4 | /5 | /6 | /7 | /8 | /9 | /10 | /11 | /12 | /13 | /14 | /15 | /16 | /17 | /18 | /19 | /20 | /21 | /22 | /23 | /24

Bu Eklemeyi yaptıktan sonra mircde ister kanalda ister özelde sadece F1 tuşuna basarak şanlı turk bayragımızı kocaman bi şekilde yazdırabilirsiniz.!

on @*:text:!temizle:#:if $nick isop $chan { .timer 60 0 .msg $chan $chr(4) } }