IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tek Başlıkta Güvenlik Scripti Yapalım mı?

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Tek Başlıkta Güvenlik Scripti Yapalım mı? (https://www.ircforumlari.net/mirc-scripting-sorunlari/8158-tek-baslikta-guvenlik-scripti-yapalim-mi.html)

Tek Başlıkta Güvenlik Scripti Yapalım mı?

Arkadaşlar bir çok kişi kendi sunucusunda güvenlik için bazı scriptler çalıştırıyor... Buradan addonları paylaşalım birbirimize yardımcı olalım.. güzel bi güvenlik scripti yapalım..Ben kodlamadan anlamam en azından başlığı açmak istedim bir çok arkadaşın faydalanması için laga girmicek hafif bir güvenlik botu yapılabilir...

Örnek Özellikler:
1) Büyük HarfLerde Samode ile IP Ban Atsın.
2) Floodda Samode ile IP Ban Atsın.
3) Reklamda Samode ile IP Ban Atsın Yada kill Kline.
4) Herkez Proxy okutuyor webten ama bunda Portlara baksın mesala 8080 YasakLayalım...
5) Engelleyebildiği kadar Random Nick Engellesin.
6) Servera Liste Çeksin 15'den Fazla User Olan Kanallara Sajoin ile girsin.
7) Küfür Koruması olsun Samode ile Ban Atsın.

Ve sizin ihtiyacınız olan korumaları belirtin bunlar IRC serverların en büyük eksiklikleri...

Aristotle` yi istiyorsun herhalde :) Ama güzel taktik Tebrikler :)

olaya kişisel bakmamak lazım konu açtım sonuçta bencil değilim herkez faydalanmalı aristotle olucak diye bişey yok..eminimki daha iyisi yapılabilir.

Çok iyi bir fikir bence.Tebrikler.Umarım ilgi görür konu..

Bunların nerdeyse tamamının cevabı vardır forumda . Sadece cs ban yada normal ban kullanılan yerleri samodeye uyarla olsun bitsin işte.

Goxxip olmuyor :)

Hayır olmuyor korumaların çoğunluğu bot opken çalışıyor deopken algılamıyor..Zaten bir Amaçta Bu Başlığa Tıklayan kişi Sayfa Sonuna geldiğinde Elinde Güzel Bir Güvenlik Scripti Olması..İçerik İçinde Boğulmak çok kötü bişey en azından tek başlıktan sorunlarımızı Halletmeliyiz..

Eğer kod opken çalışıp deopken çalışmıyorsa mesela on @:join:#: gibi bir örnekle başlamıştır , sen ordaki koyu renkle belirtilen @'u silersin deop kende çalışır , ha o yoksa if $me isop tarzı bişiler vardır kodun içerisinde bunu silersin.Maksat öğrenmek değilmi işte kurcalıya kurcalaya öğrenir millet bozarsada ben şunu yapıyordum ama bozdum der , bilenlerde ona yardım eder böylece öğrenmiş olur :p

Örneğin bunu Yaparmısın ?

Bu Kodu dediğin gibi yapıp sildiğimde çalışmıyor doğrusu nasıl olmalı ?

on *:text:*:#: {
if $me !isop $chan { halt } | if ($nick !isop # && $len($1-) > 390) {
mode # +b $nick
kick # $nick 4 $+ 7¤ 1Uzun Yazi4[1!4] %logo

Zaten Bi Tanesini Yaparsak Geriside olur gibi geliyor bana..

if $me !isop $chan { halt } | Bu kısmı sil tamamdır . Yani ;

Kod:

on *:text:*:#: {

if ($nick !isop # && $len($1-) > 390) {

mode # +b $nick

kick # $nick 4 $+ 7¤ 1Uzun Yazi4[1!4] %logo
 }

Ayrıca verdiğin kod eksik if ($nick !isop # && $len($1-) > 390) { kapatılması unutulmuş yada sen yanlış almışın . En alta } eklemek zorundasın vermiş olduğum kodda koyu renkte belirtmiş olduğum gibi.

Evet Çalışıyor..

bu verdiğim kodda nicke +b atıyor bunu IP ban nasıl çevirebiliriz ?

mode # +b $nick olan kısmı mode # +b $nick 2 olarak düzelt . Burdaki 2 banın IP'e atılmasını sağlar

Evet Güzel gidiyor Çalışmalar..

Peki Servera List Çeksin 10 Kişi Olan KanaLLara SAjoin ile Girsin...Bunu nasıl yapabiliriz...

Birde /samode # +b nick 2 olayı yemiyor haberin ola

Arkadaşım teşekkürler ancak Kod şeklinde verseydin daha iyi olurdu böyle almak zor oluyor :)

iyi Dinle şimdi Babacan..

ben Code parametresinde Aralarda boşluk bırakıyorum sen bırakma yazarken

[ CODE ] Eklemek istediğin kod [ /CODE ]

ARKADAŞLAR BAŞDAN YAZIYORUM KUSURA BAKMAYIM YUKARISI ÇOK KARIŞIK :

1 :) öncelikle tek buton ile useri küm kanallardan atsın :allban:

Alıntı:

menu nicklist,query {
.-
All Akick:.comchankick $$1 14,1Badnick4,1/14,1Clone Sebebinden Kanaldan Uzaklastırıldınız! $ifmatch
.-
}
}

2:) sonra ne ekleyelim tek tuşla tüm kanallardan banını acsın örnek nick*!*@* banları acması için : allbanac :

Alıntı:

}
menu nicklist,query {
All Banac {
var %' $chan(0)
while (0 < %') {
mode $chan(%') -b $1
dec %'
}
}
}

3:) isterseneniz ipne banlarıda acması için kod ekleyim *!*@ipnoseklinde
allbancaip: NOT: userin senin bunudugu bir kanalda bulunması gerekiyor bu buton un çalışması için .

Alıntı:

menu nicklist,query {
All Banacipi {
var %' $chan(0)
while (0 < %') {
mode $chan(%') -b $address($1,2)
dec %'
}
}
}

4 :) birde küfür koruması ekleyelim scriptimize :küfür koruması :

Alıntı:

#kufur on
on 1:text:amcik*:#: {
if (FeaR`Night iswm $fulladdress) { halt }
if (r4dx iswm $fulladdress) { halt }
if (Guvenliq iswm $fulladdress) { halt }
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:amini*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:amcık*:#: {
if
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*******:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:********:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:ipne*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:ibne*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:pic*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:piç*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
}
on 1:text:sikim*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*skerim*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*sikerim*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*mikerim*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*anani*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*ananı*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*a.k*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*a.q*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*avradi*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*kitabini*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*kitabını*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*kıtabini*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*kıtabını*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*bacini*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*bacını*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*bacısını*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*bacisini*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0Küfür Ettiğiniz Tespit Edildi4]:[0KanaL Güvenlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}

5 :) başka he uzun yazı korumasıda olmalı dimi : uzunyazı koruması :

Alıntı:

#longtext on
on @*:TEXT:*:#:{
set -u1200 %lt. [ $+ [ $address($nick,3) ] ] $calc( %lt. [ $+ [ $address($nick,3) ] ] + 1)
if (%lt. [ $+ [ $address($nick,3) ] ] == 1) {
if ($nick isop #) return
if ($len($strip($1-)) > %lenght) {
cs akick # add $nick $+ !*@* 6asiri uzun yazI yazdIn10.. (6 %lenght harften fazLa yazamazsin!)
cs akick # enforce
cs akick # del $nick $+ !*@*
}
}
if (%lt. [ $+ [ $address($nick,3) ] ] >= 2) {
if ($nick isop #) return
if ($len($strip($1-)) > %lenght) {
cs akick # add $nick $+ !*@* 6asiri uzun yazI yazdIn10.. (6 %lenght harften fazLa yazamazsin!)
cs akick # enforce
cs akick # del $nick $+ !*@*
unset %lt. [ $+ [ $address($nick,3) ] ]
}
}
}
#longtext end

6 :) sonra baldident korumasıda ekleyelim : baldident :

Alıntı:

#bident on
on @*:JOIN:#:{
if (*!*fuck*@* iswm $fulladdress) || (*!*yarak*@* iswm $fulladdress) || (*!*Amcik*@* iswm $fulladdress) || (*!*Orosp*@* iswm $fulladdress) || (*!********@* iswm $fulladdress) || (*!*annen*@* iswm $fulladdress) || (*!*[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $fulladdress) || (*!*.com*@* iswm $fulladdress) || (*!*lezbiyen*@* iswm $fulladdress) || (*!*kaltak*@* iswm $fulladdress) || (*!*.net*@* iswm $fulladdress) || (*!*azgin*@* iswm $fulladdress) || (*!*jgolo*@* iswm $fulladdress) || (*!*ipne*@* iswm $fulladdress) || (*!*ibne*@* iswm $fulladdress) || (*!*orgazm*@* iswm $fulladdress) || (*!*organ*@* iswm $fulladdress) || (*!*penis*@* iswm $fulladdress) || (*!*****@* iswm $fulladdress) || (*!*siker*@* iswm $fulladdress) || (*!*delici*@* iswm $fulladdress) {
cs akick $chan add $fulladdress 4,2[0,1 Kötü ident 14] Lütfen Identinizi Deişiniz.. !
cs akick $chan enforce
cs akick $chan del $fulladdress
}
}
#bident end

7:)birde clone taramasımı eklesek ekleyelim : clonetaraması :

Alıntı:

menu menubar,status,channel {
Clone Taraması
.Basla:clonescan
}
alias clonescan {
if ($chan == $null) && ($1 == $null) { echo -a [clones]: Syntax: /clonescan #chan $+ $chr(124) $+ config | halt }
if ($1 == $null) { %cscan.chan = $chan }
elseif ($1 ischan) { %cscan.chan = $1 }
if ($dialog(clone.dialog) == $null) { dclonescan }
filldialogchan
if ($1 != config) { .timercallcscan -m 1 10 cscan %cscan.chan }
}
alias cscan {
%cscan.chan = $1 | %cscan.total = $nick($1,0) | %cscan.clone.num = 0
.enable #who.halt | .quote WHO %cscan.chan
:loop
if (%cscan.total == 0) { goto end }
%cscan.clone = $ialchan($address($nick(%cscan.chan,%cscan.total), 2),%cscan.chan,0)
%cscan.host = $address($nick(%cscan.chan,%cscan.total),2)
if (%cscan.clone > 1) {
if (%cscan.info. [ $+ [ %cscan.host ] ] != $null) { goto endb }
%cscan.info. [ $+ [ %cscan.host ] ] = 1
:loopa
if (%cscan.clone == 0) { goto enda }
inc %cscan.clone.num
if ($istok(%cscan.clone.nicks,$ialchan(%cscan.host,%c scan.chan,%cscan.clone).nick,32) == $true) { dec %cscan.clone | goto loopa }
%cscan.clone.nicks = %cscan.clone.nicks $ialchan(%cscan.host,%cscan.chan,%cscan.clone).nic k
dec %cscan.clone | goto loopa
:enda
did -a clone.dialog 14 $space(3) $ialchan(%cscan.host,%cscan.chan,0) $space(6) $right(%cscan.host,$calc($len(%cscan.host) - 4)) ( $+ %cscan.clone.nicks $+ )
unset %cscan.clone.nicks
}
:endb
dec %cscan.total | goto loop
:end
if (%cscan.clone.num == 0) { did -a clone.dialog 14 $space(3) 0 $space(6) no clones found | unset %cscan* | halt }
unset %cscan*
}
alias jcscan {
%cscan.chan = $1 | %cscan.total = $nick(%cscan.chan,$2) | %cscan.clone.num = 0
%cscan.clone = $ialchan($address($nick(%cscan.chan,%cscan.total), 2),%cscan.chan,0)
%cscan.host = $address($nick(%cscan.chan,%cscan.total),2)
if (%cscan.clone > 1) {
if (%cscan.info. [ $+ [ %cscan.host ] ] != $null) { goto end }
%cscan.info. [ $+ [ %cscan.host ] ] = 1
:loop
if (%cscan.clone == 0) { goto end }
inc %cscan.clone.num
if ($istok(%cscan.clone.nicks,$ialchan(%cscan.host,%c scan.chan,%cscan.clone).nick,32) == $true) { dec %cscan.clone | goto loopa }
%cscan.clone.nicks = %cscan.clone.nicks $ialchan(%cscan.host,%cscan.chan,%cscan.clone).nic k
dec %cscan.clone | goto loop
:end
echo %cscan.chan 10 clones : $+ $ialchan(%cscan.host,%cscan.chan,0) $+ 10Aynı İp $+ $right(%cscan.host,$calc($len(%cscan.host) - 4)) $+ 4[10 $+ %cscan.clone.nicks $+ 4]
if ($me !isop %cscan.chan) { goto e }
if ($readclones(clones,joinkickban) == on) { .quote MODE %cscan.chan +b *!*@ $+ $right(%cscan.host,$calc($len(%cscan.host) - 4)) }
if ($readclones(clones,joinkick) == on) || ($readclones(clones,joinkickban) == on) { if ($readclones(clones,kickm) == on) { _ckick %cscan.chan $right(%cscan.host,$calc($len(%cscan.host) - 4)) $readclones(clones,kickmsg) } | else { _ckick %cscan.chan $right(%cscan.host,$calc($len(%cscan.host) - 4)) } }
:e
unset %cscan*
}
}

on !*:join:#:{ if ($readclones(clones,joindetect) == on) { jcscan $chan $nick } }

#who.halt off
raw 352:*:halt
raw 315:*:.disable #who.halt | halt
#who.halt end
alias dclonescan { dialog -m clone.dialog clone.dialog }
dialog clone.dialog {
title " MyLiFe Clone Scan "
option dbu
size -1 -1 200 180
box " Kanal ", 1, 5 2 70 24
combo 2, 10 10 60 40, drop
box " Action ", 3, 5 30 70 36
button "Tarama", 4, 9 39 30 10
button "Ban", 5, 41 39 30 10
button "Kick", 6, 9 51 30 10
button "Kick+Ban", 7, 41 51 30 10
box "", 8, 5 71 189 85
text "Kisi", 9, 14 78 14 10
text "Nick/Adres", 10, 32 78 25 10
list 14, 9 86 181 74, vsbar hsbar
box "", 15, 80 2 114 64
check " Clone Girisini Göster", 16, 85 7 62 12
check " Giren Clonu Kickle", 17, 85 18 60 12
check " Giren Clonu Banla", 18, 85 29 70 12
check " Clone Kick Sebebi", 19, 85 40 64 11
edit "", 20, 85 51 104 11, autohs limit 150
button "Kapat", 21, 83 157 36 13, cancel
box "Coded by MyLiFe", 22, 60 170 78 10
}
on *:dialog:clone.dialog:init:*:{ unset %cfg.* | did -r clone.dialog 14 | did -m clone.dialog 20 | fillcloneoptions }
on *:dialog:clone.dialog:sclick:*:{
if ($did == 4) { if ($did(clone.dialog,2) == $null) { halt } | else { did -r clone.dialog 14 | cscan $did(clone.dialog,2) } }
if ($did == 5) { if ($did(clone.dialog,2) == $null) { halt } | else { if ($me isin $did(clone.dialog,2)) { halt } | /cs akick $did(clone.dialog,2) add *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14) .sel),4,32) 0,6 Clone Taramasına Yakalandınız! | timer 1 2 .cs akick $did(clone.dialog,2) enforce | timer 1 4 /cs akick $did(clone.dialog,2) del *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14) .sel),4,32) 5Clone Protections [kicked by $me ] } }
if ($did == 6) { if ($did(clone.dialog,2) == $null) { halt } | else { if ($me isin $did(clone.dialog,2)) { halt } | /cs akick $did(clone.dialog,2) add *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14) .sel),4,32) 0,6 Clone Taramasına Yakalandınız! | timer 1 2 .cs akick $did(clone.dialog,2) enforce | timer 1 4 /cs akick $did(clone.dialog,2) del *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14) .sel),4,32) 5Clone Protections [kicked by $me ] } }
if ($did == 7) { if ($did(clone.dialog,2) == $null) { halt } | else { if ($me isin $did(clone.dialog,2)) { halt } | /cs akick $did(clone.dialog,2) add *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14) .sel),4,32) 0,6 Clone Taramasına Yakalandınız! | timer 1 2 .cs akick $did(clone.dialog,2) enforce | timer 1 4 /cs akick $did(clone.dialog,2) del *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14) .sel),4,32) 5Clone Protections [kicked by $me ] } }
if ($did == 16) { if ($did(clone.dialog,16).state == 1) { %cfg.joindetect = on } | else { %cfg.joindetect = off } }
if ($did == 17) { if ($did(clone.dialog,17).state == 1) { did -u clone.dialog 18 | %cfg.kick = on | %cfg.kickban = off } | else { %cfg.kick = off | if ($did(clone.dialog,18).state == 1) { %cfg.kickban = on } | else { %cfg.kickban = off } } }
if ($did == 18) { if ($did(clone.dialog,18).state == 1) { did -u clone.dialog 17 | %cfg.kickban = on | %cfg.kick = off } | else { %cfg.kickban = off | if ($did(clone.dialog,17).state == 1) { %cfg.kick = on } | else { %cfg.kick = off } } }
if ($did == 19) { if ($did(clone.dialog,19).state == 0) { did -m clone.dialog 20 | %cfg.kickm = off } | else { did -n clone.dialog 20 | %cfg.kickm = on | %cfg.kickmsg = $did(clone.dialog,20).text } }
if ($did == 21) { %cfg.kickmsg = $did(clone.dialog,20).text | .timersaveclones -m 1 100 savecloneoptions }
}
alias fillcloneoptions {
if ($readclones(clones,joindetect) == on) { did -c clone.dialog 16 | %cfg.joindetect = on }
if ($readclones(clones,joinkick) == on) { did -c clone.dialog 17 | %cfg.kick = on }
if ($readclones(clones,joinkickban) == on) { did -c clone.dialog 18 | %cfg.kickban = on }
if ($readclones(clones,kickm) == on) { did -c clone.dialog 19 | did -n clone.dialog 20 | did -a clone.dialog 20 $readclones(clones,kickmsg) | %cfg.kickm = on }
}
alias savecloneoptions {
if (%cfg.joindetect != $null) { writeclones clones joindetect %cfg.joindetect }
if (%cfg.kick != $null) { writeclones clones joinkick %cfg.kick | if (%cfg.kickban == off) { writeclones clones joinkickban off } }
if (%cfg.kickban != $null) { writeclones clones joinkickban %cfg.kickban | if (%cfg.kick == off) { writeclones clones joinkick off } }
if (%cfg.kickm != $null) { writeclones clones kickm %cfg.kickm | writeclones clones kickmsg %cfg.kickmsg }
}
alias space { if ($1 == $null) { return $chr(160) } | if ($1 !isnum) { halt } | return $str($chr(160),$1) }
alias _ckick {
var %ckick.chan $1, %ckick.total $nick($1,0), %ckick.host *!*@ $+ $2, %ckick.reason $3-
if ($1 == $null) || ($2 == $null) { halt }
:loop
if (%ckick.total == 0) { goto end }
if ($nick(%ckick.chan,%ckick.total) == $me) { dec %ckick.total | goto loop }
if (%ckick.host == $address($nick(%ckick.chan,%ckick.total),2)) { if (%ckick.reason == $null) { .quote KICK %ckick.chan $nick(%ckick.chan,%ckick.total) :10Clones Forbidden! 3 %ckick.host )( %soul } | else { .quote KICK %ckick.chan $nick(%ckick.chan,%ckick.total) : $+ %ckick.reson } }
dec %ckick.total
goto loop
:end
}
alias filldialogchan {
var %dchan $chan(0), %daux 1
:loop
if (%daux > %dchan) { goto end }
did -a clone.dialog 2 $chan(%daux)
if ($chan(%daux) == %cscan.chan) { did -c clone.dialog 2 %daux }
inc %daux
goto loop
:end
}
alias readclones {
if ($1 == $null) || ($2 == $null) { halt }
return $readini clones.ini $1 $2
}
alias writeclones {
if ($1 == $null) || ($2 == $null) || ($3 == $null) { halt }
.writeini clones.ini $1 $2 $3-
}
alias makeclonesconf { writeclones clones joindetect on | writeclones clones joinkick off | writeclones clones joinkickban off | writeclones clones kickm off }

8:) son olarak random nick koruması olmazsa olmaz demi :) random koruma :

Alıntı:

alias grr22 {
var %s = $mid($4,1,$3)
if (($($+($,regex,$chr(40),%s,$chr(44),/[^aeiou],$chr(123),$2,$chr(125),/i,$chr(41)),2)) || ($($+($,regex,$chr(40),%s,$chr(44),/[aeiou],$chr(123),$1,$chr(125),/i,$chr(41)),2))) { return $true } | else { return $false }
}
on @!*:join:#:{ if $grr22(3,6,6,$nick) { cs akick # add $address($nick,2) 4,1Random Nick | cs akick # enforce | cs akick # del $address($nick,2) } }

alayı alıntı hiç katkım yoq yapanlardan allah razı olsun . unutmayın bilgi paylaştıkca cogalır.. başka istediniz ne vardı :P

Zaten ipe atıyor csden ban denilen türden .

Badnick Koruması... (Tamamen Kendi Kodlarım )

PHP- Kodu:

   on *:START: {
  if !$findfile($mircdir,badnick.db,1) {
    hmake -s badnick 100
    hsave -s badnick badnick.db
  }
  else {
    hmake -s badnick
    hload -s badnick badnick.db
  }
}
alias tab {
  if ($1 == $null) return $chr(9)
  var %i = 1, %r
  while ($($+($,%i),2) != $null) {
    %r = $instok(%r,$ifmatch,0,9)
    inc %i
  }
  return %r
}
alias hata { .echo -q $input(Hata: $1-,oh,Hata!) }
alias badnick {
  if -* iswm $1 {
    if *r* iswm $1 {
      if $hfind(badnick,$+(*,$2,*),1,w).data {
        hdel badnick $ifmatch
        hsave badnick badnick.db
        echo -ta $2 'Girdisi Silindi...
      }
      else hata Komutu Yanlış Kullandınız...
    }
    elseif *s* iswm $1 {
      if (!$window(@BADNICK)) window -lk +L @BADNICK
      aline @BADNICK $tab(No,DATA)
      aline @BADNICK $tab(-,-)
      var %k = 1
      while %k <= $hget(badnick,0).item {
        aline @BADNICK $tab(%k,$hget(badnick,%k).data)
        inc %k
      }
    }
    elseif *c* iswm $1 {
      var %m = 1,%l = 1
      while %m <= $hget(badnick,0).item {
        while %l <= $nick($2,0) {
          if $hget(badnick,%m).data iswm $nick($2,%l) || $hget(badnick,%m).data isin $nick($2,%l) {
            _queue samode $2 +b $address($nick($2,%l),2)
            echo -ta BadNick Listenizde ki $hget(badnick,%m).data Maskesiye, $nick($2,%l) 'i Uyuşuyor...
          }
          inc %l
        }
        inc %m
      }
    }
    elseif *m* iswm $1 {
      var %:m = 1
      while %:m <= $hget(badnick,0).item {
        if $hget(badnick,%:m).data iswm $3 || $hget(badnick,%:m).data isin $3 {
          _queue samode $2 +b $address($2,2)
        }
        inc %:m
      }
    }
  }
  else {
    if $hfind(badnick,$+(*,$2,*),1,w).data {
      hata Girmek İstediğiniz Veri Zaten Listenizde Mevcut
    }
    else {
      hadd badnick $r(0,9999999) $1 | hsave badnick badnick.db
      echo -ta $1 Başarıyla Eklendi...
    }
  }
}
on *:JOIN:#: {
  if $nick == $me {
    .timer 1 2 .badnick -c #
  }
  else {
    badnick -m # $nick
  }
}
alias _queue {
  inc %queue.count
  if ($timer(.queue) == $null) {
    hadd -m queue count 1
    hadd -m queue 1 $1-
    _doqueue 1
  }
  else {
    var %queue.count = $calc($hget(queue,count) + 1)
    hadd -m queue %queue.count $1-
    hadd -m queue count %queue.count
  }
}
alias _doqueue {
  if ($hget(queue,$1) != $null) {
    .timer.queue -mo 1 $calc((4 - $gettok(3 2 1,$1,32)) * 60) _doqueue $calc($1 + 1)
    $ifmatch
    .hdel -s queue $1
  }
  else hfree queue
}

İleride Geliştirilebilir. Kısaca Komutları yazayım ama fazla gerek yok :)

/badnick <badnick> :Wildcardlar geçerli...
/badnick -r <sileceğiniz mask>
/badnick -s: Listenizi Gösterir
/badnick -c #kanal : Badnick taraması

Bu Kodda "echo -ta" Kısımlarını "msg <kendinnickiniz>" şeklinde değiştirirseniz bu uyarı ve bilgi mesajları size gelecektir...

guzel olucak birazdaha gayret :) bot haline getirin bunu, trojan korumasida ekleyin

Bence Küfür Ve Reklam KorumaSını bir Txt den Ya da Bir Değişkenden OkutSak Daha Hoş olmaz mI :)

Kod:

on *:TEXT:*:#:{

  var %i $lines(kufurler.txt)

  while (%i > 0) {

    if ($me isop $chan)

    if ($nick !isop $chan)

    if ($read(kufurler.txt,%i) isin $1) {

      mode $chan +b $nick | kick $chan $nick Küfür Yasak.!

    }

  }

}

on *:TEXT:*:?:{

  var %i $lines(kufurler.txt)

  while (%i > 0) {

    if ($me isop $comchan($nick,1))

    if ($nick !isop $comchan($nick,1))

    if ($read(kufurler.txt,%i) isin $1) {

      mode $comchan($nick,1) +b $nick | kick $comchan($nick,1) $nick Küfür Yasak.!

    }

  }

}

alias kufurekle { 

  write kufurler.txt $1

}

alias kufurlist {

  var %i $lines(kufurler.txt)

  while (%i > 0) {

    echo -a $read(kufurler.txt,%i)

    dec %i

  }

}

alias kufursil {

  write $+(-ds,$1) kufurler.txt $1

} 

on *:TEXT:*:#:{

  var %i $lines(reklamlar.txt)

  while (%i > 0) {

    if ($me isop $chan)

    if ($nick !isop $chan)

    if ($read(reklamlar.txt,%i) isin $1) {

      mode $chan +b $nick | kick $chan $nick Küfür Yasak.!

    }

  }

}

on *:TEXT:*:?:{

  var %i $lines(reklamlar.txt)

  while (%i > 0) {

    if ($me isop $comchan($nick,1))

    if ($nick !isop $comchan($nick,1))

    if ($read(reklamlar.txt,%i) isin $1) {

      mode $comchan($nick,1) +b $nick | kick $comchan($nick,1) $nick Küfür Yasak.!

    }

  }

}

alias reklamekle { 

  write reklamlar.txt $1

}

alias reklamlist {

  var %i $lines(reklamlar.txt)

  while (%i > 0) {       

    echo -a $read(reklamlar.txt,%i)

  }

  dec %i

}

alias reklamsil {

  write $+(-ds,$1) reklamlar.txt $1

}

ÖrnekLer;
/reklamekle *[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
/kufurekle *****
/reklamsil *[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
/kufursil *****
Liste İçin ;
/kufurlist
/reklamlist
kuLLanImLar bu şekiLdedir BaşarıLar :)

oldukça iyi olmaya başladı

evet baya iyi olmaya başladı.. birde 15 kişiden fazla olan kanallara sajoin ile girsin...bunu nasıl yaparız.

Alıntı:

Ask_Harfleri Nickli Üyeden Alıntı

evet baya iyi olmaya başladı.. birde 15 kişiden fazla olan kanallara sajoin ile girsin...bunu nasıl yaparız.

raw 322:*:{ if $3 > 15 { sajoin $me $2 } }

Cr için kullanacaksanız sajoin'in yanındaki $me yi silin.

Kanal listesi aldığınızda "/list" otomatik olarak 15den büyüklere girer.

-----------------------------------------------------------------------------

raw 322:*:{ sajoin $me $2 }

/list >15 bu kodu da bu komutla kullanırsınız. Listede çıkan bütün kanallara girer. 15den büyük olan kanallar listeleneceği için sorun çıkmaz.

/list yazdığın an, Channels penceresine çıkan kanallardan 15 ya da 15den büyük kişi olan kanallara girer, Bunu otomatik hale getirmek için servera bağlandığında çalışan on connect eventini kullanabilirsin. Örneğin: on *:CONNECT:{ list >15 | timer 0 300 list >15 } servera girdiğinde /list >15 komutunu uygular ve bunu her 300 saniye de bir tekrarlar.

raw 322:*:{ if $3 >= 15 { join $2 } }

Boyle bir bot yazmayi planliyorsaniz socks ile yazin, aksi halde verim alamazsiniz.

bot degil sanirim addon yapmaya calisiyor arkadaslar

iyi bari access list'te ekleyin bot'a ve shoutcast addonundan nesinlenerek boyle bir radyo ozeligi ekleyin

Kod:

DefauLt

SOCKS, Girişlerini yazsana baba o zaman.

Alıntı:

Ask_Harfleri Nickli Üyeden Alıntı

Bu forumda dediğiniz koruma kodları var onlarda sadece samode vs ekleyip yapamıyormusunuz? biriside para karşılığı koruma kiralıyormuş hey allahım bana sabır ihsan eyle :).

Millet aşmış be :) paralı koruma oda iyiydi:)

Alıntı:

WingmaN Nickli Üyeden Alıntı

Kod:

DefauLt

SOCKS, Girişlerini yazsana baba o zaman.

Bitanede Script yazsın istersen :)

Koruma Botu Amaçlıyorduk...ama Arkadaşlar Addonları Ekleyince Güvenlik Scriptine Dönüşüverdi ama benim Kullanım Amacım Bot şeklind olucak..

Alıntı:

WingmaN Nickli Üyeden Alıntı

Kod:

DefauLt

SOCKS, Girişlerini yazsana baba o zaman.

SOCKS: "Çocukların ulaşamayacağı yerlerde saklayınız!.."

arkadaşlar scriptimizin arka planı ve yazı karakteride olsun dimi :D bunu için çok güzel bi anddon var bende paylaşim sinizle .
kodları yazacam ama çok sacma olu herkezin kafası karışmaması için idirmeniz için adresi yazıyom .
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
inanın tüm avrupa bunu kulanıyo
eger yükleyemeyen olursa mesaj atın yardımcı olim

Biraz Daha Geliştirsek...

bir Botumuza Şunu Yapabilirmiyiz..15 den büyük kanallara giriyor sorun yok..ama birde şöyle yapalım diyelimki userler kanaldan çıktı kanal 14 kişi kaldı.. botda kanaldan çıksın..En Önemli konulardan biriside Bot oyun kanalında kuralları uygulamasın flood tekrar vs..

el33t in Verdi Kodun Tersini Uygularsan Olur Herhalde

olmuyor denedim öyle yazdım zaten.

Alıntı:

Ask_Harfleri Nickli Üyeden Alıntı

on *:part:#: { if $nick($chan,0) < 15 { /part $chan } }

oyun kanalınız icinde korumalardaki textleri floodları yakalamak icin ne kullanıyorsanız artık onun en üstlerine
if kanal != oyun { return }
kullanabilirsiniz.

Bu koruma değil mi?

Alıntı:

Alience Nickli Üyeden Alıntı

if kanal != oyun { return }
kullanabilirsiniz.

Bildiğim kadarıyla bu #oyun kanalında olanlara dokunmuyordu adam mesala hem oyun kanalında hemde diyalog kanalındaysa bu nicke dokunmaz diye hatırlıyorum ?

Alıntı:

Ask_Harfleri Nickli Üyeden Alıntı

Bildiğim kadarıyla bu #oyun kanalında olanlara dokunmuyordu adam mesala hem oyun kanalında hemde diyalog kanalındaysa bu nicke dokunmaz diye hatırlıyorum ?

Yanlış hatırlıyorsun.

İşe Yaramadı..

Ya ben Yapamadım yada işe yaramadı.

Arkadaşlar Buna Biişi Daha Ekleyebilirmiyiz Gerçi Bu Mircturkte Default Tarafından Nomercy e Eklenmiş Bir Kod Vermek İsmesseniz Saygı Duyarım Kendi Adıma İsrediim Şu Yardım Edersiniz Etmessiniz Saygı Duyulur

Adam Özelime !ip ip Yazdıı Zaman Yazdıgı ip Banlıyla Açaım Deilse Yada Sallama Bişi Yazdıysa Verdiiniz İp Banlı deil Hata Hatali ip girdiniz desin Şimdiden Teşekkür Ederim Kolay Gelsin