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

Sayfa 2 Toplam 4 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster

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/)

- - Rast geLe fullname Ve identler'e gzLine (https://www.ircforumlari.net/mirc-scripting-sorunlari/125093-rast-gele-fullname-ve-identlere-gzline.html)

High	18 Ocak 2015 12:41

Cevap: Rast geLe fullname Ve identler'e gzLine

Alıntı:

CesuryureK Nickli Üyeden Alıntı (Mesaj 513663)

1. identler nasıl sadece harfmi yoksa harf ve rakam mı ve büyük küçük olarakmı yazılmış?
2. aynı şekilde fullname

şimdi vereceğim kod sadece "aklsjksjal" gibi identler için geçerli olacaktır ve sadece hepsi ufak olursa çalışacaktır

ident için;

Kod:

/spamfilter add u gzline +5m Rasgele_Ident_Tespit_Edildi_Identinizi_Değiştirip_5_Dakika_Sonra_Tekrar_Bağlanın! (?-i)^(.+![a-z]@.+:.+)$

Fullname için;

Kod:

/spamfilter add u gzline +5m Rasgele_Ident_Tespit_Edildi_Identinizi_Değiştirip_5_Dakika_Sonra_Tekrar_Bağlanın! (?-i)^(.+!.+@.+:[a-z])$

yukarıda verdiğim bilgileri detaylı şekilde bana anlatırsan sana daha iyi yardım edebilirim.

Selam hocam konu eski lakin ihtiyaç duyulan bir ekleme bence. Örnek istemişsiniz.
Fullname ; fFyYLnmoHWyVDbLeAgEWQVdtHsGKdVmbiiqWujNbNTeQWLL
gibi.Şimdiden teşekkürler aynı şekilde benzer nickler de oluyor tabiki yani bu vermiş olduğum örneğe göre ident, nick ve fullname üzerine bi spam eklenebilirse güzel olur Spam bilgim var ama yanlış bir şey yapmaktan çekindiğim için sizden yardım istiyorum

IRC-Dancer

28 Ocak 2015 23:44

Cevap: Rast geLe fullname Ve identler'e gzLine

Fullname kısmını : (?-i)^(.+!.+@.+:^[A-Za-z]{20,35}$ yaptın mı coğunu engellersin

Feragat

29 Ocak 2015 01:02

Cevap: Rast geLe fullname Ve identler'e gzLine

Alıntı:

High Nickli Üyeden Alıntı (Mesaj 1041594506)

Selam hocam konu eski lakin ihtiyaç duyulan bir ekleme bence. Örnek istemişsiniz.
Fullname ; fFyYLnmoHWyVDbLeAgEWQVdtHsGKdVmbiiqWujNbNTeQWLL
gibi.Şimdiden teşekkürler aynı şekilde benzer nickler de oluyor tabiki yani bu vermiş olduğum örneğe göre ident, nick ve fullname üzerine bi spam eklenebilirse güzel olur Spam bilgim var ama yanlış bir şey yapmaktan çekindiğim için sizden yardım istiyorum

Belirli bir kalıbı yoksa eğer, rastgele fullname engelleme diye düzgün çalışan bir kod/komut/filtre yapamazsın. Mutlaka bir kalıbı baz alman gerek. (Yalnızca sesli harf tekrarı, yalnızca sessiz harf tekrarı, Sessiz harf-Rakam tekrarı, kombinasyonel girilmiş fullname'lar vb vb gibi..)
Bunun dışında kullanacakların user'ları etkileyecektir. O yüzden spamfilter eklerken özelliklede regex mantığını kullanacaksan özenli ve dikkatli olman gerekiyor.

Alıntı:

IRC-Dancer Nickli Üyeden Alıntı (Mesaj 1041603729)

Fullname kısmını : (?-i)^(.+!.+@.+:^[A-Za-z]{20,35}$ yaptın mı coğunu engellersin

Kodda 2 göze çarpan hata yapmışsın.
1- Eşleşileni yakalamaya çalıştığın kalıpta(back reference), ( parantez açmışsın fakat kapatmamışsın.

2- ^ "Cümle Başı" nı temsil eden operatörü kalıp içinde kullanmışsın. Yapmaya çalıştığın kalıptaki filtre zaten (:) bu karakterden sonra A-Z a-z ile başlayacak, yani fullname alfabetik karakterler ile başlayacak.

Alper

19 Ocak 2017 01:40

Cevap: Rast geLe fullname Ve identler'e gzLine

Alıntı:

AfraN Nickli Üyeden Alıntı (Mesaj 1041422755)

random ident 3 sessiz harf yanyana gelirse gzline atar.
3 rakamını kendinize göre ayarlayabilir, ve sessiz harfleri sesli harfler ile değişebilirsiniz.

Kod:

on *:join:#: { 

if (o isin $usermode) {

  if ($regex($gettok($gettok($address($nick,5),2,33),1,64),/[bcdfghjklmnprstvyz]{3}/i)) { gzline $nick süre sebep }

  } 

}

Random Fullname 3 sessiz harf yanyana gelirse zline atar.

Kod:

on *:join:#: { 

  if (o isin $usermode) { 

    who $nick

  } 

}

raw 352:*: {

  if ($regex($9,/[bcdfghjklmnprstvyz]{3}/i)) { gzline $6 süre sebep }

}

Merhaba,

Bu kodu snotice olarak nasıl yapabiliriz ?

Teşekkürler

cashmare

19 Ocak 2017 07:51

Cevap: Rast geLe fullname Ve identler'e gzLine

Alıntı:

pckopat Nickli Üyeden Alıntı (Mesaj 1041836494)

Merhaba,

Bu kodu snotice olarak nasıl yapabiliriz ?

Teşekkürler

Kod:

on *:snotice:*Client*connecting*: {

who $9

}

raw 352:*: {

  if ($regex($9,/[bcdfghjklmnprstvyz]{3}/i)) { gzline $6 süre sebep }

}

CoCoRiCo

19 Ocak 2017 08:50

Cevap: Rast geLe fullname Ve identler'e gzLine

bu kodla random kontrol edilirse sorun çıkar..

//echo :: $regex(SkyFaiL,/[bcdfghjklmnprstvyz]{3}/i)
//rand? SkyFaiL

Detaylar burada.. > [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
/testrand yada //rand? $left($encode($md5($+($r(a,z),$ticks)),m),$r(5,25) ) test için
/rand? username yada nick

Kod:

alias rand? {

  var %t = $remove($1,1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_),%s+ $regex(%t,/([aeoöuüıi])/ig),%s- $regex(%t,/([^aeoöuüıi])/ig)

  echo  Toplam: $len(%t) Sesli: %s+ Sessiz: %s-

  if $len(%t) > 4 { gr $len(%t) %s- $1 }

}

alias -l gr {

  ;oran buraya % cinsinden
   var %rate 73

  ;Grafik çubuk uzunlugu buraya 

  var %line 10

  var %% $round($iif($round($calc(($2 * 100) / $1),1) > 100, 100, $round($calc(($2 * 100) / $1),1)),0),$&

    %n $iif($2 > $1, $1, $2),%g %line,%go $+($chr(3),4,$chr(44),4) $chr(160),$& 

    %goc $+($chr(3),14,$chr(44),14) $chr(160),%t= $round($calc((%n * %line) / $1),0) 

  echo  $str(%go,%t=) $+ $str(%goc,$ceil($calc(%g - %t=))) $chr(15) $chr(37) $+ %% $3 $iif(%% > %rate,RANDOM)

}

alias testrand {

  :r | if $len(%r)  <= 50 { var %r $addtok(%r,$gettok($r(a,z) $r(A,Z),$r(1,2),32),32) | goto r }

  else {  var %r $remove(%r,$chr(32)) |  Rand? $left(%r,$r(5,$len(%r))) }

}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Alper

19 Ocak 2017 14:16

Cevap: Rast geLe fullname Ve identler'e gzLine

Kod:

on *:snotice:*: {  

  if $regex($1-,Client connecting on port) && ($regex($10,/[bcdfghjklmnprstvyz]{3}/i) || $regex($11,/[bcdfghjklmnprstvyz]{3}/i)) { kill $9 sebep } 

}

Bendeki Unreal girişte fullnameyide gösteriyor aynı mantıkla gittim $11 olarak denedim çalıştı.Kodu bu şekilde yapınca çalışıyor. Hem ident hemde fullname olarak 3 ve üzeri sessiz harf yanyana olunca atıyor ama ne gibi sorun yaşarım.

[ 14:10:33 ] [ Giriş ] *** Notice -- Client connecting on port 6667: Pisipisi (Dark@xxx) (asdfd) [clients]
[ 14:10:33 ] [ Çıkış ] *** Notice -- Client exiting: Pisipisi (Dark@xxx) (asdfd) [[irc.xxxx.Com] Local kill by pC`kOpAt (sebep)]

[ 14:08:24 ] [ Giriş ] *** Notice -- Client connecting on port 6667: Pisipisi (fgh@xxx) (x+y=100) [clients]
[ 14:08:25 ] [ Çıkış ] *** Notice -- Client exiting: Pisipisi (fgh@xxx) (x+y=100) [[irc.xxxx.Com] Local kill by pC`kOpAt (sebep)]

YellowLine

19 Ocak 2017 17:37

Cevap: Rast geLe fullname Ve identler'e gzLine

merhaba,
peki bunu spama nasıl alırız , oto girişte atılsın varmıdır bir yolu

CoCoRiCo

20 Ocak 2017 09:20

Cevap: Rast geLe fullname Ve identler'e gzLine

Alıntı:

YellowLine Nickli Üyeden Alıntı (Mesaj 1041836620)

merhaba,
peki bunu spama nasıl alırız , oto girişte atılsın varmıdır bir yolu

yeşil kısma hassaslık oranı yazarak kullanabilirsin (önerilen %73)
kırmızı satırları devre dışı bıraktım ekrana çubukları yansıtmaz.
/rand? kontrol_edilecek_kelime Nick

Kod:

alias rand? {

  var %t = $remove($1,1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_), %s+ $regex(%t,/([aeoöuüıiI])/gi),%s- $regex(%t,/([^aeoöuüıiI])/gi)
   ; echo  Toplam: $len(%t) Sesli: %s+ Sessiz: %s-

  ;if $len(%t) > 4 { gr $len(%t) %s- $1  }
 

  if $len(%t) > 4 && $gr($len(%t),%s-,$1,$2) { gzline $2 | hdel rand? $2  }

}

alias -l gr {

  ;oran buraya % cinsinden

  var %rate 73

  ;Grafik çubuk uzunlugu buraya 

  var %line 10

  var %% $round($iif($round($calc(($2 * 100) / $1),1) > 100, 100, $round($calc(($2 * 100) / $1),1)),0),$&

    %n $iif($2 > $1, $1, $2),%g %line,%go $+($chr(3),4,$chr(44),4) $chr(160),$& 

    %goc $+($chr(3),14,$chr(44),14) $chr(160),%t= $round($calc((%n * %line) / $1),0) 
 

 ; echo  $str(%go,%t=) $+ $str(%goc,$ceil($calc(%g - %t=))) $chr(15) $chr(37) $+ %% $3 $iif(%% > %rate,RANDOM $4 )
   $iif(%% > %rate,return $true)

}
 on *:snotice:*Client*connecting*: hadd -m rand? $4 $4

raw 311:*: if ($hget(rand?,$2)) rand? $remove($6-,$chr(32)) $2

elhale

08 Mart 2017 17:26

Cevap: Rast geLe fullname Ve identler'e gzLine

Alıntı:

pckopat Nickli Üyeden Alıntı (Mesaj 1041836591)

Kod:

on *:snotice:*: {  

  if $regex($1-,Client connecting on port) && ($regex($10,/[bcdfghjklmnprstvyz]{3}/i) || $regex($11,/[bcdfghjklmnprstvyz]{3}/i)) { kill $9 sebep } 

}

Djrina!jzpzv@106.46.136.172:yiha

Vindar!qzdun@58.23.181.42:adoyo

Nedin!oxlmx@179.91.62.130:gxeqc

Premt!nymi@211.143.22.11:trf

Mirdrit!xzue@119.40.106.136:mlt

Blega!olah@60.0.79.215:viyr

HacKBo[]Y]]]!brmgh@119.40.106.147:zgyj

Butar!qikm@125.94.0.254:ninje

Lucinda!oij@122.189.26.92:fklz

Kod:

on *:snotice:*: {  

  if $regex($1-,Client connecting on port) && $regex($6,/^([A-Z]{1,})([a-z]{1,})$/) || ($regex($10,/[bcdfghjklmnprstvyz]{3}/i) || $regex($11,/[bcdfghjklmnprstvyz]{3}/i)) { echo -as kill $9 sebep } 

}

Ancak normal kullanıcılar için yankılar alıyorum.

Eğer ben yanlış değilim

Nick - $6

ident - $10

fullname - $9

Bu yüzden böyle olmalı

Kod:

on *:snotice:*Client*connecting*:

raw 352:*: {

  if ($regex($6,/^([A-Z]{1,})([a-z]{1,})$/) || $regex($10,/[bcdfghjklmnprstvyz]{3}/i) || $regex($9,/[bcdfghjklmnprstvyz]{3}/i)) { echo -as kill $6 sebep }

}

Neyi yanlış yapıyorum?

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

Sayfa 2 Toplam 4 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster