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/)
-   -   oto ident spam (https://www.ircforumlari.net/mirc-scripting-sorunlari/591053-oto-ident-spam.html)

Darnasus 24 Mayıs 2014 12:55
oto ident spam
 
Merhaba,

Sunucumuza son bir haftadir yogun saldirilar oluyor. Saldirida baslica one cikan seyler ident ve fullname degistirerek saldiriliyor. Bunlari spama ekleyerek mudahale etmeye calisiyoruz. Bu saldirilara daha hizli cevap verebilmek adina soyle bir kod editlenebilir mi. 1 veya 2 saniye icerisinde sunucuya baglanan 4 ve uzeri ayni ident oldugunda, o ident bu sekilde ^(.+!ident@.+:.+)$ spama eklenecek ve islem uygulanacak. Boyle bir kodun saldirilari buyuk olcude durdurabilecegini dusunuyorum. Yardimci olabilecek arkadaslar yardim ederse sevinirim.

IRC-Dancer 24 Mayıs 2014 15:44
Cevap: oto ident spam
 
Kod:
on *:SNOTICE:*Client connecting on port *: {
  if $read(ident.txt,w,$remove($right($gettok($10,1,64 ),-1),~)) { return }
  inc -u2 %koruma 1
  if %koruma >= 4 { 
    /spamfilter add u block - - ^(.+! $+ $token($token($10,1,64),1,40) $+ @.+:.+)$ 
  msg #opers  Bilgi : Agresif  Saldırı Sebebiyle .+! $+ $token($token($10,1,64),1,40) $+ @.+:.+  eklendi.
  }
}
Kod:
if $read(ident.txt,w,$remove($right($gettok($10,1,64 ),-1),~)) { return }
Agresif girişde , spamfilter ekler ; identi : yukardaki kısa kod ise '' ident.txt '' muaf tutulcak identleri alt alta yaza bilirsin.

Lociz 24 Mayıs 2014 15:47
Cevap: oto ident spam
 
Kod:
on *:snotice:*Client connecting*:.enable #lcz | who +n $9
alias uygula .spamfilter add u gline - $+(^(.+!,$1,@.+:.+)$)
#lcz off
raw 352:*:inc -u2 $+(%,$3,.lcz) | $iif($eval($+(%,$3,.lcz)) >= 4,.uygula $3)
raw 315:*:.disable #lcz
#lcz end
spamfilter hakkında az cok bilgim var yazmaya calistim ama olmamis da olabilir.
eger 2 saniye degil de daha da artırmak istiyorsan inc -u2 kısmındaki 2 yi degistir. (saniye olarak)

kodu denemedim.

Darnasus 24 Mayıs 2014 18:34
Cevap: oto ident spam
 
Alıntı:
Lociz Nickli Üyeden Alıntı (Mesaj 1041439430)
Kod:
on *:snotice:*Client connecting*:.enable #lcz | who +n $9
alias uygula .spamfilter add u gline - $+(^(.+!,$1,@.+:.+)$)
#lcz off
raw 352:*:inc -u2 $+(%,$3,.lcz) | $iif($eval($+(%,$3,.lcz)) >= 4,.uygula $3)
raw 315:*:.disable #lcz
#lcz end
spamfilter hakkında az cok bilgim var yazmaya calistim ama olmamis da olabilir.
eger 2 saniye degil de daha da artırmak istiyorsan inc -u2 kısmındaki 2 yi degistir. (saniye olarak)

kodu denemedim.
Deneyip haber veririm @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Darnasus 24 Mayıs 2014 22:43
Cevap: oto ident spam
 
Alıntı:
Darnasus Nickli Üyeden Alıntı (Mesaj 1041439487)
Deneyip haber veririm @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Calismadi dostum. Benim elimde soyle bir ident korumasi var. who cekmeden calisiyor, 2 saniye icerisinde ayni identten 3 ve uzeri giris oldugunda islem uyguluyor, buna spam eklenebilir mi?

Alıntı:
menu * {
.» Ident Korumasi
..Açık:.enable #Ident | .echo -a 4Ident Korumasi On
..Kapalı:.disable #Ident | .echo -a 4Ident Korumasi Off
}

#Ident off
on *:snotice:*connecting*: {
var %ident $token($token($10,1,64),1,40)
if $istok(Ident3 ,%ident,32) { return }
hinc -mu2 ident %ident 1
if ($hget(ident,%ident) >= 3) { gline $9 :Reklam, spam yasaktir. | hdel -m ident %ident }
}
#Ident end

IRC-Dancer 25 Mayıs 2014 02:08
Cevap: oto ident spam
 
Kod:
gline $9 :Reklam, spam yasaktir.
;-Burayı altaki ile değiştir.
Kod:
/spamfilter add u block - - ^(.+! $+ $token($token($10,1,64),1,40) $+ @.+:.+)$

IRC-Dancer 25 Mayıs 2014 02:16
Cevap: oto ident spam
 
Alıntı:
Lociz Nickli Üyeden Alıntı (Mesaj 1041439430)
Kod:
on *:snotice:*Client connecting*:.enable #lcz | who +n $9
alias uygula .spamfilter add u gline - $+(^(.+!,$1,@.+:.+)$)
#lcz off
raw 352:*:inc -u2 $+(%,$3,.lcz) | $iif($eval($+(%,$3,.lcz)) >= 4,.uygula $3)
raw 315:*:.disable #lcz
#lcz end
spamfilter hakkında az cok bilgim var yazmaya calistim ama olmamis da olabilir.
eger 2 saniye degil de daha da artırmak istiyorsan inc -u2 kısmındaki 2 yi degistir. (saniye olarak)

kodu denemedim.
Kodda sorun yok , sadece ufak bir unutkanlık yapmış ;
Kod:
alias uygula .spamfilter add u gline - $+(^(.+!,$1,@.+:.+)$)
;-Yukardaki Kod'u alttaki ile değiştirirsen , sorunsuz çalışcaktır.
Kod:
alias uygula .spamfilter add u gline - Spam $+(^(.+!,$1,@.+:.+)$)

Darnasus 25 Mayıs 2014 03:10
Cevap: oto ident spam
 
Unutkanlik dedigin sadece spamfilter mesaji, buda calismasina mani olacak birsey degil.
Who cekmeden uygulatabilir miyiz bunu tokenle mesela. Who istememdeki sebeb ise, statusta bekleyenleri sajoinlemek icin kullandigim kodla cakismasi. Sunucuya giren herkese who cektiginden baska bir kanala sajoinleniyor. Benim paylastigim kodda gline yerine spam uygulatabilir miyiz? Ben beceremedim.

IRC-Dancer 25 Mayıs 2014 03:19
Cevap: oto ident spam
 
Kod:
menu * {
.» Ident Korumasi
..Açık:.enable #Ident | .echo -a 4Ident Korumasi On
..Kapalı:.disable #Ident | .echo -a 4Ident Korumasi Off
}

#Ident off
on *:snotice:*connecting*: {
var %ident $token($token($10,1,64),1,40)
if $istok(IdentMuaf IdentMuaf-1 IdentMuaf-2 IdentMuaf-3,%ident,32) { return }
hinc -mu2 ident %ident 1
if ($hget(ident,%ident) >= 3) { /spamfilter add u block - - ^(.+! $+ $token($token($10,1,64),1,40) $+ @.+:.+)$ | hdel -m ident %ident }
}
#Ident end

Darnasus 25 Mayıs 2014 03:23
Cevap: oto ident spam
 
Deneyip haber vericem, eyvallah

Lociz 25 Mayıs 2014 08:08
Cevap: oto ident spam
 
Dediğim gibi spamfilter hakkında hiçbir bilgim yok :)

Darnasus 25 Mayıs 2014 15:39
Cevap: oto ident spam
 
Alıntı:
IRC-Dancer Nickli Üyeden Alıntı (Mesaj 1041439828)
Kod:
menu * {
.» Ident Korumasi
..Açık:.enable #Ident | .echo -a 4Ident Korumasi On
..Kapalı:.disable #Ident | .echo -a 4Ident Korumasi Off
}

#Ident off
on *:snotice:*connecting*: {
var %ident $token($token($10,1,64),1,40)
if $istok(IdentMuaf IdentMuaf-1 IdentMuaf-2 IdentMuaf-3,%ident,32) { return }
hinc -mu2 ident %ident 1
if ($hget(ident,%ident) >= 3) { /spamfilter add u block - - ^(.+! $+ $token($token($10,1,64),1,40) $+ @.+:.+)$ | hdel -m ident %ident }
}
#Ident end
Calismadi.

IRC-Dancer 25 Mayıs 2014 16:00
Cevap: oto ident spam
 
Kod:
[17:15] <Protection> [BİLGİ->Proxy[Agresif] IP GIRISI]-->[NICK] aysu  Ident\Ip :  (D-o-w-n@78.5.88.34)
[17:15] <Protection> [BİLGİ->Proxy[Agresif] IP GIRISI]-->[NICK] rakkase  Ident\Ip :  (D-o-w-n@78.159.208.15)
[17:15] <Protection> Bilgi : Agresif Saldırı Sebebiyle :  .+!D-o-w-n@.+:.+ eklendi.
[17:15] <Protection> [BİLGİ->Proxy[Agresif] IP GIRISI]-->[NICK] xGirl^bone-dry  Ident\Ip :  (D-o-w-n@78.159.208.74)
[17:16] <Protection> [BİLGİ->Proxy[Agresif] IP GIRISI]-->[NICK] LbMfGiOEubP  Ident\Ip :  (So@78.6.189.90)
[17:16] <Protection> [BİLGİ->Proxy[Agresif] IP GIRISI]-->[NICK] ZjT  Ident\Ip :  (So@78.6.189.90)
[17:16] <Protection> Bilgi : Agresif Saldırı Sebebiyle :  .+!So@.+:.+ eklendi.


;- Kodda herhangi bir problem yok bende calısıyor.

Toprak 25 Mayıs 2014 16:09
Cevap: oto ident spam
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] el at.

q0kh4n 25 Mayıs 2014 17:42
Cevap: oto ident spam
 
Kod:
on *:snotice:*Client connecting on port*:{
  ;Muaf ident kısmı ( Büyük,küçük harf duyarlı )
  if ($regex($gettok($gettok($10,1,64),1,40),/(Muafident|Muafident2|Muafident3))) { return }
  if ($tident($gettok($gettok($10,1,64),1,40))) {
    if !$hget(tident) { .hmake tident 100 }
    .hinc -u10 tident $tident($gettok($gettok($10,1,64),1,40))
    if ($hget(tident,$tident($gettok($gettok($10,1,64),1,40))) >= 4) { .spamfilter add u gzline +5h $+(,Koruma,) (?-i)^(.+! $+ $tident($gettok($gettok($10,1,64),1,40)) $+ .+@.+:.+)$ }
  }
}
alias tident {
  var %t 1 | while %t <= $len($1) {
    if $mid($1,%t,1) !isalpha {
      if $len($left($1,$calc(%t - 1))) > 2 { return $mid($1,1,$calc(%t - 1)) }
    }
    inc %t
  }
}

Yapımı bana ait değil.

Darnasus 25 Mayıs 2014 19:02
Cevap: oto ident spam
 
Alıntı:
q0kh4n Nickli Üyeden Alıntı (Mesaj 1041440129)
Kod:
on *:snotice:*Client connecting on port*:{
  ;Muaf ident kısmı ( Büyük,küçük harf duyarlı )
  if ($regex($gettok($gettok($10,1,64),1,40),/(Muafident|Muafident2|Muafident3))) { return }
  if ($tident($gettok($gettok($10,1,64),1,40))) {
    if !$hget(tident) { .hmake tident 100 }
    .hinc -u10 tident $tident($gettok($gettok($10,1,64),1,40))
    if ($hget(tident,$tident($gettok($gettok($10,1,64),1,40))) >= 4) { .spamfilter add u gzline +5h $+(,Koruma,) (?-i)^(.+! $+ $tident($gettok($gettok($10,1,64),1,40)) $+ .+@.+:.+)$ }
  }
}
alias tident {
  var %t 1 | while %t <= $len($1) {
    if $mid($1,%t,1) !isalpha {
      if $len($left($1,$calc(%t - 1))) > 2 { return $mid($1,1,$calc(%t - 1)) }
    }
    inc %t
  }
}
Yapımı bana ait değil.
Saniye ve giris sayisini da degistirdim, fakat calismadi.

hub.eu.xxx.com: 19:00:15 2 *** Notice -- Client connecting on port 7000: deneme3 (test@44.44.44.44) [clients]
-
hub.eu.xxx.com: 19:00:16 2 *** Notice -- Client connecting on port 7000: deneme2 (test@44.44.44.44) [clients]
-
hub.eu.xxx.com: 19:00:18 2 *** Notice -- Client connecting on port 7000: deneme1 (test@44.44.44.44) [clients]
-

q0kh4n 25 Mayıs 2014 23:05
Cevap: oto ident spam
 
kod denendi çalışıyor

Dangerous123 25 Mayıs 2014 23:47
Cevap: oto ident spam
 
Kod:
on *:snotice:*connecting on*: {
  var %ident $right($token($10,1,64),-1)
  if ($regex(%ident,/(muafident1|muafident2)/i)) { halt }
  if ($tnick(%ident)) {
    if (!$hget(tnick)) { hmake tnick 100 }
    hinc -u10 tnick $tnick(%ident)
    if ($hget(tnick,$tnick(%ident)) >= 3) {
      gzline %ident - $me
    }
  }
}
alias tnick {
  var %t 1
  while %t <= $len($1) {
    if $mid($1,%t,1) !isalpha {
      if $len($left($1,$calc(%t - 1))) > 4 {
        return $mid($1,1,$calc(%t - 1))
      }
    }
    inc %t
  }
}
bunuda spamfiltere ayarlaya bilirsiniz
Kodenin yazarı Set arkadaşımızdır..

Darnasus 25 Mayıs 2014 23:47
Cevap: oto ident spam
 
Alıntı:
q0kh4n Nickli Üyeden Alıntı (Mesaj 1041440259)
kod denendi çalışıyor
Kullandigin mircin versiyonu nedir

IRC-Dancer 26 Mayıs 2014 00:47
Cevap: oto ident spam
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bak ben söyleyince bana tepki veriyorsunda ; sen pc'ne 1-2 farklı mIRC indirip aynı verdiğimiz kodları o mIRC'lerde dene ; q0kh4n'ında benim kodda lociz'in kodda çalısıyor ; ve örnekleride mevcud'ken sen calısmıyor diyorsun.Sorun bence sende , bizde değil.
;--
Buda senin istediğin bi önceki istek.
Kod:
on *:snotice:*connecting on*: {
  var %ident $right($token($10,1,64),-1)
  if ($regex(%ident,/(muafident1|muafident2)/i)) { halt }
  if ($tnick(%ident)) {
    if (!$hget(tnick)) { hmake tnick 100 }
    hinc -u10 tnick $tnick(%ident)
    if ($hget(tnick,$tnick(%ident)) >= 3) {
   spamfilter add u block - - ^(.+! $+ $token($token($10,1,64),1,40) $+ @.+:.+)$
    }
  }
}
alias tnick {
  var %t 1
  while %t <= $len($1) {
    if $mid($1,%t,1) !isalpha {
      if $len($left($1,$calc(%t - 1))) > 4 {
        return $mid($1,1,$calc(%t - 1))
      }
    }
    inc %t
  }
}

Darnasus 26 Mayıs 2014 01:02
Cevap: oto ident spam
 
Akilli olup dunya kahri cekmektense diyenlerdenim. Benim sana tepkim, uslubuna ve acilan konulari gereksiz yere kapatmandan dolayiydi. Arabin yalellisi gibi mevzuyu uzatmaya hacet yok. Emek veren herkese tesekkurler, @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] halletti sag olsun. Konu kapanabilir.


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk