IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Add-on ve snippet(parça) kod istekleri buraya

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Add-on ve snippet(parça) kod istekleri buraya (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/523479-add-ve-snippetparca-kod-istekleri-buraya.html)

Cevap: Add-on ve snippet(parça) kod istekleri buraya

olmuyor dostum bu remote

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Alıntı:

rhn Nickli Üyeden Alıntı (Mesaj 1041977459)

olmuyor dostum bu remote

çalışıyor sadece renk kodlarını eklemen gerekir ctrl+k ile

Cevap: Add-on ve snippet(parça) kod istekleri buraya

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

Denemeden kod paylaşımı yapmıyorum. Hatta çalıştığına dair resim eklemişim.

Ek olarak ctrl+k ya gerek yok sadece kodda renklendirdiğim sayıları değişmek yeterli olacaktır. 02 ve 04 olan yerler baştaki 0 yanıltmasın mesela nick rengi yeşil olsun istersen 02 olan yeri 03 olarak değiştirmen gerek. $chr(3) ctrl+k görevi görüyor $chr(2) ctrl+b yani ince yazı yazmaya yarar.

Cevap: Add-on ve snippet(parça) kod istekleri buraya

saol dostum iyiydi sevdim

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:34 -->-> Daha önceki mesaj 16:34 --

çaişti sağolun

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:40 -->-> Daha önceki mesaj 16:34 --

dostum bana bir kad kod lazım yardımcı olurmusun

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1041976334)

isteiğinizi daha acık şekilde belirtirmisiniz.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Tabiki Arkadaşım,

Kod:

menu * {

  .Random Nick Koruması

  ..Açık:.enable #ags | .echo -a 4,1Random Nick Koruması Açıldı..

  ..Kapalı:.disable #ags | .echo -a 4,1Random Nick Koruması Kapatıldı..

}
 

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 }

  }

bende bu şekilde bir koruma var fakat işlem görmüyor :) normal user'da atıyor, çözemediğim konu port ayarlarını ayarlıyamadım,
bazı saldırı nickleri ;

asdas@sdgfbsdf
asdfsd@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]f
asdfsa@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

örnekleri çoğaltabiliriz, ident + nick harf ve sayılarıda kapsayan veya bu şekilde gelen random saldırıları komple engellemek istiyorum, güncel bir korumanız varsa paylaşırsanız sevinirim, teşekkür cevapladığın için :)

Cevap: Add-on ve snippet(parça) kod istekleri buraya

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

Kodun tamamı buysa eksiklik var. Bu kodu kullanabilmen için event kullanman gerek.

Ya join yada snotice de kullanilabilir.

Muaf port kullanacaksan snotice eventi daha uygun.

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Alıntı:

pCkOpAt Nickli Üyeden Alıntı (Mesaj 1041990994)

o yüzden yardım talep ettik kardeşim :)

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Alıntı:

BaBuR Nickli Üyeden Alıntı (Mesaj 1041991244)

o yüzden yardım talep ettik kardeşim :)

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

Cevap: Add-on ve snippet(parça) kod istekleri buraya

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

Kod:

on $*:snotice:/.+Client connecting.+([0-9]{4}):\s(.+)\s\x28(.+)@.+/Si: { 

  if !$istok(7000,$regml(1),32) {

    var %t = $remove($regml(2),1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_),%t2 = $remove($regml(3),1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_),$&

      %n = $regml(2), %i = $regml(3), %s+ = $regex(%t,/([aeoui])/ig), %s- = $regex(%t,/([^aeoui])/ig), %s2+ = $regex(%t2,/([aeoui])/ig), %s2- $regex(%t2,/([^aeoui])/ig),$&

      %% = $round($iif($round($calc((%s- * 100) / $len(%t)),1) > 100, 100, $round($calc((%s- * 100) / $len(%t)),1)),0), %%2 = $round($iif($round($calc((%s2- * 100) / $len(%t2)),1) > 100, 100, $round($calc((%s2- * 100) / $len(%t2)),1)),0),$&

      %rate = 73

    if ($len(%t) > 4) && (%% > %rate) { 

      gline $+(*@,$regsubex($10,/..+@(.+)\x29/g,\1)) +0 Random Nick Olarak Algılandınız ! | return

    }

    if ($len(%t2) > 4) && (%%2 > %rate) { 

      gline $+(*@,$regsubex($10,/..+@(.+)\x29/g,\1)) +0 Random Ident Olarak Algılandınız !

    }

  }

}

CoCoRiCo nun paylaştığı kodun senin isteğine düzenlenmiş halidir. Direk alias olarak olarakta kullanabilirsin.

Kırmızı ile belirttiğim yer muaf port yeri birden fazla port varsa boşluk bırakıp ekleme yapabilrsin.
Mavi ile belirttiğim yer ise random nickin yüzdesi kaç oranında random olursa işlem yapması için.

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Alıntı:

CoCoRiCo Nickli Üyeden Alıntı (Mesaj 1041991369)

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

Emektar Abi Teşekkürler :)

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 21:06 -->-> Daha önceki mesaj 21:05 --

Alıntı:

pCkOpAt Nickli Üyeden Alıntı (Mesaj 1041992077)

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

Kod:

on $*:snotice:/.+Client connecting.+([0-9]{4}):\s(.+)\s\x28(.+)@.+/Si: { 

  if !$istok(7000,$regml(1),32) {

    var %t = $remove($regml(2),1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_),%t2 = $remove($regml(3),1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_),$&

      %n = $regml(2), %i = $regml(3), %s+ = $regex(%t,/([aeoui])/ig), %s- = $regex(%t,/([^aeoui])/ig), %s2+ = $regex(%t2,/([aeoui])/ig), %s2- $regex(%t2,/([^aeoui])/ig),$&

      %% = $round($iif($round($calc((%s- * 100) / $len(%t)),1) > 100, 100, $round($calc((%s- * 100) / $len(%t)),1)),0), %%2 = $round($iif($round($calc((%s2- * 100) / $len(%t2)),1) > 100, 100, $round($calc((%s2- * 100) / $len(%t2)),1)),0),$&

      %rate = 73

    if ($len(%t) > 4) && (%% > %rate) { 

      gline $+(*@,$regsubex($10,/..+@(.+)\x29/g,\1)) +0 Random Nick Olarak Algılandınız ! | return

    }

    if ($len(%t2) > 4) && (%%2 > %rate) { 

      gline $+(*@,$regsubex($10,/..+@(.+)\x29/g,\1)) +0 Random Ident Olarak Algılandınız !

    }

  }

}

Yardımın için teşekkürler, gerisini ayarlarım ben teşekkür ederim :)