Çevrimdışı

;kanal opları için
on *@:JOIN:#: {
if ($me isop #) {
if (a isin $nick) { halt } | if (A isin $nick) { halt }
if (e isin $nick) { halt } | if (E isin $nick) { halt } | if (i isin $nick) { halt }
if (I isin $nick) { halt } | if (o isin $nick) { halt } | if (O isin $nick) { halt }
if (u isin $nick) { halt } | if (U isin $nick) { halt } | if (1 isin $nick) { halt }
if (2 isin $nick) { halt } | if (3 isin $nick) { halt } | if (4 isin $nick) { halt }
if (5 isin $nick) { halt } | if (6 isin $nick) { halt } | if (7 isin $nick) { halt }
if (8 isin $nick) { halt } | if (9 isin $nick) { halt } | if (0 isin $nick) { halt }
if ($nick isin $address($nick,1)) {
;ceza
;.mode # +mi
.ban -u30 # $address($nick,2)
.kick # 10Reklam4•10Küfür4•10Clone4•10Spam4 •10Saldırı Yasaktır 4/!\ [30 DK. T4:Ban]
}
else {
.ban -u600 # $address($nick,2)
kick # $nick perm 4 •10Banned 4Trojan
}
}
bu sekil dene

 

Çevrimdışı

Kod gayet iyi çalışıyor. Ama bizim bir opumuz var ve nicki "qp". Bu kodda anladığım kadarıyla içinde sessiz harf olmayanları atıyor. Ve bunu verilen sayılarla 1 harfli 2 harfli 3 harfli gibi çoğaltılmış. Sanırım djiNn attığı mesajdaki sorunda bu. içlerinde sesli harf geçenleri atmıyor. bu kod idea da var ama idea sadece kickliyor.
1 ve 2 harfli nickleri atmaması için kodda ne gibi bir değişiklik gerekir.

__________________

 

Çevrimdışı

bu kod zaten Sesiz Harften Oluşan Random Nickler için Oldugunu Düşünüyorum Arasında Sesli Harf Olan Random Nickler için Bi Çözümde Zor Bişey Galiba..

 

Çevrimdışı

;kanal opları için
on *@:JOIN:#: {
if ($me isop #) {
if (a isin $nick) { halt } | if (A isin $nick) { halt } | if ($nick == qp) { halt }
if (e isin $nick) { halt } | if (E isin $nick) { halt } | if (i isin $nick) { halt }
if (I isin $nick) { halt } | if (o isin $nick) { halt } | if (O isin $nick) { halt }
if (u isin $nick) { halt } | if (U isin $nick) { halt } | if (1 isin $nick) { halt }
if (2 isin $nick) { halt } | if (3 isin $nick) { halt } | if (4 isin $nick) { halt }
if (5 isin $nick) { halt } | if (6 isin $nick) { halt } | if (7 isin $nick) { halt }
if (8 isin $nick) { halt } | if (9 isin $nick) { halt } | if (0 isin $nick) { halt }
if ($nick isin $address($nick,1)) {
;ceza
;.mode # +mi
.ban -u30 # $address($nick,2)
.kick # 10Reklam4•10Küfür4•10Clone4•10Spam4 •10Saldırı Yasaktır 4/!\ [30 DK. T4:Ban]
}
else {
.ban -u600 # $address($nick,2)
kick # $nick perm 4 •10Banned 4Trojan
}
}
;şeklinde değiştirirsen o operatoru kanaldan atmaz.Ayrıca atmamak istediğin kişileri bu sekilde ekleyebilirsin

 

Çevrimdışı

}
halt
}
}

halt ı kaldır join eventından görünür

__________________
2b|!2b=?

 

Çevrimdışı

ya tamam da şimdi arasında sesli harf olan random nickler ne olacak.. .) onlar var harbi cok uyuz birşey geliyor kanala listi kaydediyor cıkıyor sonra reklam yapiyor..

 

Çevrimdışı

DALnet'teki bir arkadaşımın kendi kanalında kullandığı random nickleri kickleyen kodu aşağıdan alabilirsin, hepsini olmasa da çoğunu kicklediğini söyledi, denemediğim için bilemeyeceğim. mIRC'nin hangi nickin random olup olmadığını bilmesi imkansızdır, onun için random nicklerin ortak özelliklerini bulman gerek, örneğin hepsi ctcp time'a cevap vermiyor olabilir, kanala giren nicke /ctcp $nick time gönderdiğinde 5 saniye içinde cevap gelmezse kanaldan atabilirsin, benim bulunduğum kanallarda random nickler yaklaşık 10 saniye kanalda duruyor..
İşte kod:
on @!*:JOIN:#:{
tokenize 33 $gettok($fulladdress,1,64)
if (!$hget($+($chan,$cid,drone),$nick)) && (($len($1) > 3) || ($len($2) > 3)) && ($regex($1,/^[a-z]+$) && $regex($2,/^~?[a-z]+$)) {
if ($regex($1,/^[^aeiou]{4}/)) || ($regex($2,/^(~?)[^aeiou]{4}/)) { goto end }
elseif ($regex($1,/([a-z])\1{2}/)) || ($regex($2,/([a-z])\1{2}/)) { goto end }
elseif ($regex($1,/[aeiou]{3}/)) || ($regex($2,/[aeiou]{3}/)) { goto end }
elseif ($regex($1,q[^u]) || $regex($2,q[^])) { goto end }
elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) || ($regex($2,/[^aeioux]x[^aeiouyx]/)) { goto end }
else { halt }
:end
if ($nick ison $chan) { .raw kick $chan $nick :(When u pull my boot outta your ass, i want it back)[Drones Kicked: $+(%d.k,]) | inc %d.k }
hadd -mu60 $+($chan,$cid,drone) $replace($fulladdress,!,$chr(32))
halt
}
;elseif ($regex($nick,/^[A-Z][a-z]+[^0-9][0-9]{2}$/)) && (Guest* !iswm $nick) { ban -ku600 $chan $nick 2 autokicked: [exp/ma] You are infected with an IRC trojan/virus. Visit [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
}

 

Çevrimdışı

serverden Yasaklı Bir Olay Var
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ueailJlaa does not accept CTCPs

Nickler Bu şekil işte.. ueailJlaa

Ne Yapacağımı Bilemiyorum..

 

Çevrimdışı

on @*:JOIN:#kelebek: {
if (a isin $nick) { halt } | if (A isin $nick) { halt }
if (e isin $nick) { halt } | if (E isin $nick) { halt } | if (i isin $nick) { halt }
if (I isin $nick) { halt } | if (o isin $nick) { halt } | if (O isin $nick) { halt }
if (u isin $nick) { halt } | if (U isin $nick) { halt } | if (1 isin $nick) { halt }
if (2 isin $nick) { halt } | if (3 isin $nick) { halt } | if (4 isin $nick) { halt }
if (5 isin $nick) { halt } | if (6 isin $nick) { halt } | if (7 isin $nick) { halt }
if (8 isin $nick) { halt } | if (9 isin $nick) { halt } | if (0 isin $nick) { halt }
else {
.cs akick # add $address($nick,2) perm 4 •10Banned 4Trojan /From\=> Random Nick
.cs akick # enforce
.cs akick # del $address($nick,2)
}
}
Random nickleirn ortak bi yönü var oda hepsi küçük harf oluo ben öyle gördüm ve genelde sesli harf olarak diyelim e kullanılıyo o zaman sen bu code yi
on @*:JOIN:#kelebek: {
if (a isin $nick) { halt } | if (A isin $nick) { halt }
if (E isin $nick) { halt } | if (i isin $nick) { halt }
if (I isin $nick) { halt } | if (o isin $nick) { halt } | if (O isin $nick) { halt }
if (u isin $nick) { halt } | if (U isin $nick) { halt } | if (1 isin $nick) { halt }
if (2 isin $nick) { halt } | if (3 isin $nick) { halt } | if (4 isin $nick) { halt }
if (5 isin $nick) { halt } | if (6 isin $nick) { halt } | if (7 isin $nick) { halt }
if (8 isin $nick) { halt } | if (9 isin $nick) { halt } | if (0 isin $nick) { halt }
else {
.cs akick add # $address($nick,2) perm 4 •10Banned 4Trojan /From\=> Random Nick
.cs akick # enforce
.cs akick # del $address($nick,2)
}
}
Bu şekilde dğeiştirirsen e harfini devre dışı bırakacaktır yani kanala sdfenhg diye bir nick girerse banlıcaktır. Ama kötü tarafı kanala eser nicki girersede banlıcaktır Çünkü içinde sesli harf olarak sadece e var e de devre dışı olduğu için aynen dışarı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Ben böyle düşündüm Bilmem işine yararmı Kolay gelsin.

 

Çevrimdışı

Daha iyi bi koruma için detaylara önem vermek lazım...
Birkaç değişik program var saldırı için veya trojanlar mevcut...
Her birinin özelliğine göre ayrı ayrı korumalar yazılabilir ve ya hepsi birden açık tutulur ki
bu bazı masum userlarında arada kaynamasına sebep olabilir...
Veya saldırı başladıktan sonra fırsat kalırsa saldırı tarzına göre
gerekli korumalar devreye sokulur...

Genel olarak bakarsak saldırı botları veya trojanları random nickler kullanırlar...
Ama mesela bazısının yapısında nick ve ident aynıdır...
Bazısında nick ve ident farklı da olsa ikisi de randomdur...
Bazılarında nickler aynıda olsa ident sabittir... Basit bi ident ban ile bu saldırıdan kurtulunabilinir...
Bi de göze çarpan nickler ve identler farklı da olsa uzunlukları genelde aynıdır...
nick = 8 karakter ise identde = 8 karakterdir...
Ve genelde random nickler 7 - 10 karakter arasında oluşturulur...
Bunlardan ortak özellikler çıkarılıp detaylı bi koruma yazılabilir...

Saygılar...