oto ident spam - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Darnasus · 25 Mayıs 2014, 03:23

Deneyip haber vericem, eyvallah

Lociz · 25 Mayıs 2014, 08:08

Dediğim gibi spamfilter hakkında hiçbir bilgim yok
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

IRC-Dancer · 25 Mayıs 2014, 16:00

Kod: Kodu kopyalamak için üzerine çift tıklayın!

[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

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

q0kh4n · 25 Mayıs 2014, 17:42

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

q0kh4n Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

kod denendi çalışıyor

Darnasus · 25 Mayıs 2014, 23:47

q0kh4n Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

kod denendi çalışıyor

Kullandigin mircin versiyonu nedir

Dangerous123 · 25 Mayıs 2014, 23:47

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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..

IRC-Dancer · 26 Mayıs 2014, 00:47

@[Ü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: Kodu kopyalamak için üzerine çift tıklayın!

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
  }
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Scriptte ident sabitleme veya ident kutucuğunu kaldırma	MaRaShaL	mIRC Scripting Sorunları	6	17 Mayıs 2009 01:21
/ident yeni ident ?	muratt_aziz	mIRC Scripting Sorunları	15	27 Mart 2009 22:15

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.