Bu hazır Kod Sunucudaki: Kanallar Atılmış ReklamLarı Tarar Ve Reklamları Msg ile Bildirir.

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

Son Proxy Koruma

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
}

Mirc Hazır Kod: Proxy Koruma Sistemi:

;##############################################
;# 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
;###############################################

Mirc Alias ile Spam Eklemek

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 Error handling Çözümleri:
mirc 6.16 da olan :error, $error, /reseterror hakkında açıklama başka versiyonda varmı bilmiyorum.

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 Hazır Kodla Kanal girişinde Services Botları Konuşturmak bu remotu kullanabilmek için bütün yetkilerinizin acık olmasi lazım.

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 }
}
}

Mirc version cektirmekle bot saldırılarından ircd Nizi koruyun

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
}
}
}

Mirc Hazır Kodla Sunucunuza giriş Yapan Herkese Oto olarak Version Finger Sorgusu Yaptırmak

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
}
}