IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Nick ve ident Randomsa gzline (https://www.ircforumlari.net/mirc-scripting-sorunlari/308493-nick-ve-ident-randomsa-gzline.html)

Emrax 29 Aralık 2009 17:31

Acil Nick ve ident Randomsa gzline
 
Hocam S.a..
Benim bir isteğim olacaktı coder hocalarımdan..
Sunucuya yapılan saldırılar %90 " randomnick!randomident@ " şeklinde..
Sadece random nick koruması eklesek bu kez user atılacak.. Yada sadece ident random olsa yine user atılma şansı olacak..
O yüzden sizden isteğim identi ve nick i aynı anda Randomsa gzline atılsın..
Foruma baktım bi kod verilmiş ama çalışmadı demiş arkadaş..
Gözümden de kaçmış olabilir başka konular..
Lütefen konum silinmesin varsa o kod link atılırsa memnun olurum..
Şimdiden teşekkür ederim..
Saygılar..

fatal 29 Aralık 2009 17:59

Cevap: Nick ve ident Randomsa gzline
 
Kod:

on @!*:JOIN:#:{ 
if (!$regex($nick,/korunannick1|korunannick2/i)) { 
tokenize 33 $gettok($fulladdress,1,64)
if (!$hget($+($chan,$cid,drone),$nick)) && (($len($1) > 4) || ($len($2) > 4)) && ($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]{4/)) || ($regex($2,/[aeiou]{4}/)) { 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) { ban $chan $nick 2 | .timer 1 600 mode $chan -b $address($nick,2) | kick $chan $nick (Random (Rastgele) Nick ve/veya Ident..)[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) { echo 4 -s ban -ku600 $chan $nick 2 autokicked: [exp/ma] You are infected with an IRC trojan/virus. }
}

Ban atıyor şu anda, ban'ları line olarak değiştirirsen işine yarayabilir.

Emrax 29 Aralık 2009 18:06

Cevap: Nick ve ident Randomsa gzline
 
Hocam aynı kişinin identi ve nicki randomsa atıyor dimi bu?

Emrax 30 Aralık 2009 00:46

Cevap: Nick ve ident Randomsa gzline
 
Fikirlerinizi bekliyorum arkadaşlar.2 saattir forumda arıyorum ama ya ident random yada nick random olani atıyor.Ben sadece 2 side randomsa atmasını istiyorum :( (güncel olsun da bakın :S)

Skills 30 Aralık 2009 10:49

Cevap: Nick ve ident Randomsa gzline
 
/Spamfilter add u kill - Nickiniz_ve_Identiniz_Ayni _Olamaz! ^(.+)!.?\1@

Spam ekle, sende kurtul bizde kurtulalım :)

Emrax 30 Aralık 2009 11:04

Cevap: Nick ve ident Randomsa gzline
 
Hocam Litmus aramıyordum ben zatten ama CipriX halletti saolsun :)

SteNLie 30 Aralık 2009 12:13

Cevap: Nick ve ident Randomsa gzline
 
Ciprix in verdiği kodu bizlede paylaşa bilirmisiniz.

Emrax 30 Aralık 2009 13:01

Cevap: Nick ve ident Randomsa gzline
 
alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }
alias randn2 {
if $1- isalpha && $1- islower {
if (($count($1,a,e,i,o,u) >= 4)) { return $false }
if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {
if ($regex($1,/^[^aeiou]{3}/)) { return $true }
elseif ($regex($1,/([a-z])\1{2}/)) { return $true }
elseif ($regex($1,/[aeiou]{3/)) { return $true }
elseif ($regex($1,q[^u])) { return $true }
elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }
else { return $false }
}
}
}
alias randn {
if $1- isalpha && $1- islower {
if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
if ($len($1) == 7) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 8) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 9) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 10) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }
else { return $false }
}
}
on !*:join:#:{
var %identd = $gettok($gettok($address($nick,5),1,64),2,33),-1)
if ($randomnick($nick)) && ($randomnick(%identd)) { ban -k $chan $nick 2 random nick/ident kullanımı yasaktır.. }
}


Hocam kod bu ben bir deneme yaptım çalıştı ancak 2 denemede çalışmadı :S

----------

[10:37:14] * Ayrıldı: mIRCIndir-92154 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:37:14] * Giriş: mIRCIndir-92154 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:37:57] * mIRCIndir-92154 Nick değişerek sdjkhsadjsd Oldu
[10:38:04] * Ayrıldı: sdjkhsadjsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:38:04] * Giriş: sdjkhsadjsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:38:43] * Ayrıldı: sdjkhsadjsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:38:43] * Giriş: sdjkhsadjsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:39:42] * Ayrıldı: sdjkhsadjsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:39:43] * Giriş: sdjkhsadjsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:39:43] * X-ir mod değiştirdi:+b *!*@2DD80C33.199DC7D0.71A06DCE.IP
[10:39:44] * sdjkhsadjsd X-ir Tarafından Kanaldan Atıldı (random nick/ident kullanımı yasaktır..)

CoCoRiCo 31 Aralık 2009 09:17

Cevap: Nick ve ident Randomsa gzline
 
username 16 ile 52 karakter arasında attıgım PM'e bakılırsa..
bunu en kolay spamfilter ile cözersin
/spamfilter + u gzline - Clone_yasaktir! :[a-z]{16,32}
en köklü cözüm AntiRandom modülü kurmak.

Emrax 31 Aralık 2009 09:51

Cevap: Nick ve ident Randomsa gzline
 
alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }
alias randn2 {
if $1- isalpha {
if (($count($1,a,e,i,o,u) >= 4)) { return $false }
if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {
if ($regex($1,/^[^aeiou]{3}/)) { return $true }
elseif ($regex($1,/([a-z])\1{2}/)) { return $true }
elseif ($regex($1,/[aeiou]{3/)) { return $true }
elseif ($regex($1,q[^u])) { return $true }
elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }
else { return $false }
}
}
}
alias randn {
if $1- isalpha {
if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
if ($len($1) == 7) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 8) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 9) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 10) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }
else { return $false }
}
}
on !*:join:#mIRCTR:{
var %identd = $gettok($gettok($address($nick,5),1,64),2,33),-1)
if !$istok(Ahus neXGen_v2 aSk Admin SoylemIRC burak Dark izmIRC King Neveda asiL trnc zurna is0hbet kArA.qoSLu Sensizim mIRCKalbim IRC MT.Gops Turk ikiSohbet T-Mirc Sohbet TRSohbetLi Numberone Nickserv MultiMRC Quiet diE Damn lcX X K-Turk Kursun-v2 Bjk Love filmdizizl kuzu AfyoK Constantin SCScript yAkLaSmA mIRCindirU mIRCTRWeb KLBKvTurk TriviaBot mIRCIndir_ SohbetIRC Bitanem-v4 keleweb Intel MoDe mIRCTR KLBKBETA KTurkce KLBKveLite SohbeTTurk mIRCIndir KlbkTurkce kelebek d4rkL0rd KelebekTR ekelebek Sturk bad vXy,$right($gettok($10,1,64),-1),32) {
if ($randomnick($nick)) && ($randomnick(%identd)) { ban -k $chan $nick 2 0,1X-ir 5,1Security 0,1System5,1™9,1[0,10,1Råñdøm 0,1ñi¢k9,1] }
}


Hocam bu koddaki muaf identler işe yarar mı?

CoCoRiCo 31 Aralık 2009 10:25

Cevap: Nick ve ident Randomsa gzline
 
Kodun'da ki fonksiyonu nasıl bilmiyorum ama
arkadaslarında söyledigi gibi event'ın basında ayırırsan atmayacaktır.
Ama baska bir kodda yada event'a muaf etmiş isen bu ekleyecegin kod için kullanacagın event'ta muafiyet gecerli olmaz.

Emrax 31 Aralık 2009 10:34

Cevap: Nick ve ident Randomsa gzline
 
Hocam Agresif korumam da da bu muaf identleri kullanıyorum.Acaba bunda da kullansam işe yaramaz mı yani? Kusura bakmayın uykusuzum geç anlıyorum :s


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 16:43.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net