Nomercy !Spamdel Hakkında - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

rX · 14 Şubat 2009, 20:40

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

        if $gettok(%::text,1,32) == !Spamdel {
          sw $sockname spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
          sw nm spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
          sw nm2 spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
          sw nm3 spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
          sw NoMercy spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
          sw $sockname PRIVMSG #opers :Spamfilter girdisi silindi: $gettok(%::text,2-,32)
        }

Elimdeki Nomercy !Spamdel Kodu. Bu Kod !Spamdel spamkelimesi seklinde Kullandıqımda Silmiyor. Benim Isteqim Spamfilter Listesinde Cıkan Hanqi Kelime Olursa Olsun !Spamdel kelime Yazdıqımda silinmesini istiyorum Yani Sadece Nomercy'nin Eklediqi Deqil. Yardımlarınız Icin Simdiden Tşkler . !Spamadd Kodunuda Veriyim ;

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

        if $gettok(%::text,1,32) == !Spamadd {
          sw NoMercy spamfilter add apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $yildiztemizle($gettok(%::text,2-,32))
          sw $sockname PRIVMSG #opers :Spamfilter girdisi eklendi: $yildiztemizle($gettok(%::text,2-,32))
        }

Editor · 15 Şubat 2009, 02:21

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

if $gettok(%::text,1,32) == !Spamadd {
  if $5 == $null {     
    sw $sockname privmsg $3 :Lütfen Eklenecek Spam'ı belirleyiniz.
    sw $sockname privmsg $3 :Örn ; !Spamadd ekle@hot
  }
  else {
    sw NoMercy spamfilter add apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $yildiztemizle($gettok(%::text,2-,32))
    sw $sockname PRIVMSG #opers :Spamfilter girdisi eklendi: $yildiztemizle($gettok(%::text,2-,32))
    write spamfilter.txt Spamfilter girdisi $botfnick($1) tarafından eklendi: $yildiztemizle($gettok(%::text,2-,32))
  }
}
if $gettok(%::text,1,32) == !Spamdel {
  if $5 == $null {     
    sw $sockname privmsg $3 :Lütfen Silinecek Spam'ı belirleyiniz.
    sw $sockname privmsg $3 :Örn ; !Spamsil ekle@hot
  }
  if !$read(spamfilter.txt,w,$2-) { 
    sw $sockname privmsg $3 :Silmeye çalıştığınız ( $gettok(%::text,2-,32) ) , Listede bulunmamaktadır. 
  }
  else {
    write $+(-,dw,$2-) spamfilter.txt
    sw $sockname spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
    sw nm spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
    sw nm2 spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
    sw nm3 spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
    sw NoMercy spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
    sw $sockname PRIVMSG #opers :Spamfilter girdisi silindi: $gettok(%::text,2-,32)
  }
}

rX · 15 Şubat 2009, 13:18

SaGoPa Teşekkürler Ama Kod Silmiyor Nedendir? Kodu Ekledim Bakarsan Sevinirim
Ekliyorum Ama Silmiyor Listede Yok Diyor Anlamadım qitti?

[ 13 : 00 ] <~nX> !spamadd
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
13 : 00 ] -xXx.Com- *** Spamfilter added: 'GECERSIZSPAMMESAJINoMercyKONTROLUNDE aslolan mesaj:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
cpnNa] [action: gzline] [reason: Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy]] on Sun Feb 15 11:00:39 2009 GMT (from NoMercy!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.Com)
[ 13 : 00 ] <&NoMercy> Spamfilter girdisi eklendi: GECERSIZSPAMMESAJINoMercyKONTROLUNDE aslolan mesaj:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
13 : 00 ] <&NoMercy> xXx.Com: *** Spamfilter added: 'GECERSIZSPAMMESAJINoMercyKONTROLUNDE aslolan mesaj:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
cpnNa] [action: gzline] [reason: Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy]] on Sun Feb 15 11:00:39 2009 GMT (from NoMercy!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.Com)
[ 13 : 00 ] <~nX> !spamdel
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
13 : 00 ] <&NoMercy> Silmeye çalistiginiz (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Listede bulunmamaktadir.
[ 13 : 01 ] <~nX> !spamdel
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
13 : 01 ] <&NoMercy> Silmeye çalistiginiz (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Listede bulunmamaktadir.

SaW'ın Bir Kodu Var mIRC Icin O Kodla Istediqimi Silebiliyorum Kodu veriyim Belki O Kod'la Yola Cıkarak Yapılabilir...

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

;Coded By SaW

raw 229:*:{
  write aspamf.txt $+($3,$chr(9)) $+($4,$chr(9)) $+($7,$chr(9)) $+($8,$chr(9)) $+($9,$chr(9)) $10-
  halt
}

raw 219:*:{
  halt
}

menu status,channel,query {
  .»  Spamfilter:/_spamf
}

menu @Spamfilter {
  .Sil: {
    .spamfilter del $gettok($remove($1-,$chr(9)),1,32) $gettok($remove($1-,$chr(9)),2,32) $gettok($remove($1-,$chr(9)),3,32) $gettok($remove($1-,$chr(9)),4,32) $gettok($remove($1-,$chr(9)),6-,32)
  }
  -
  .Yeni Giriş Ekle: {
    .spamfilter add $$?="Tipi" $$?="Ceza Şekli" $$?="Süresi" $$?="Sebep" $$?="Eklenecek Kelime(ler)"
  }
  -
  .Satırı Göster: {
    if (!$window(@Satırı.Göster)) {
      window -g @Satırı.Göster -1 -1 800 100 Fixedsys 11 
    }
    .echo -tm @Satırı.Göster $remove($1-,$chr(9))
    halt
  }
  -
  .Yardım: {
    if (!$window(@Spam.Yardım)) {
      window -gl @Spam.Yardım -1 -1 600 400 Fixedsys 11 
    }
    iline @Spam.Yardım 1 Spamfilter eklerken kullanılan harflerin manaları:
    iline @Spam.Yardım 2 c : Kanal mesajları
    iline @Spam.Yardım 3 p : Özel mesajları
    iline @Spam.Yardım 4 n : Özel noticeleri
    iline @Spam.Yardım 5 N : Kanal noticleri
    iline @Spam.Yardım 6 P : Kanaldan çıkış mesajları
    iline @Spam.Yardım 7 q : Quit mesajları
    iline @Spam.Yardım 8 a : Away mesajları
    iline @Spam.Yardım 9 t : Topic
    iline @Spam.Yardım 10 u : User (nick!user@host:realname ban) Şeklinde tanımlanır
    iline @Spam.Yardım 11 d : dcc
    iline @Spam.Yardım 12 -
    iline @Spam.Yardım 13 Uygulanacak hareket (ceza) şekilleri:
    iline @Spam.Yardım 14 kill, kline, gline, zline, gzline, shun, tempshun, block, dccblock  
    iline @Spam.Yardım 15 -
    iline @Spam.Yardım 16 4Not : Sebep belirtilirken kelimeler arasında boşluk olmamalıdır. 
    iline @Spam.Yardım 17 Boşluk yerine _ kullanın. Örnek: Yasak_Kelime_Kullanımı
  }
}
alias _spamf {
  stats f
  .timerdenemes 1 2 /_aspamfl
}

alias _aspamfl {
  if ($window(@Spamfilter)) { window -c @Spamfilter } {
    window -glk0 @Spamfilter -1 -1 800 600 Fixedsys 11
    iline @Spamfilter 1 Eklenmiş bir spami silerken birden fazla satırı seçmeyiniz. Tek tek siliniz.
    iline @Spamfilter 2 4Tipi   Ceza Şekli Süresi-Ekleyen-Sebep - Eklenen Kelime(ler)
    iline @Spamfilter 3 12..................2..................1...........2....................12.......................
    titlebar @Spamfilter Coded By SaW
    var %s = 4
    while %s <= $lines(aspamf.txt) {
      var %k = $read(aspamf.txt,%s)
      iline @Spamfilter %s $gettok(%k,1,32) $gettok(%k,2,32)  $gettok(%k,3,32) $gettok(%k,4,32) $gettok(%k,5,32) $gettok(%k,6-,32) 
      inc %s
      unset %k
    }
    remove aspamf.txt
  } 
  halt
}

alias spamekle {
  spamfilter add cpNna gzline - $server $yildiztemizle($1-)
}
alias spamsil {
  spamfilter del cpNna gzline - $server $1-
}
alias yildiztemizle {
  var %y $+(.,?) , %yi
  if $numtok($1-,32) == 1 {
    var %1kelime 1
  }
  %yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$chr(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr(164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$chr(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$chr(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr(34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr(45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)
  if %1kelime {
    %yi = $+(^,%yi,$chr(36))
  }
  return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
}

rX · 16 Şubat 2009, 02:38

Yardımlarınızı Bekliyorum Konu Güncel...

rX · 18 Şubat 2009, 04:50

Konu Güncel . 2.ci Up ...

q0kh4n01 · 18 Şubat 2009, 06:12

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

if %::chan == #darkclass {
        if $gettok(%::text,1,32) == .spamonayla {
          if $gettok(%::text,2-,32)  { 
            if  q0kh4n == %::nick || nick1 == %::nick || q0kh4n01 == %::nick || nick2 == %::nick || nick3 == %::nick || nick4 == %::nick || nick5 == %::nick || nick6 == %::nick || nick7 == %::nick {       
              sw NoMercy spamfilter add apcnN gzline 24h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. [IRCForumlari] $gettok(%::text,2-,32)
              sw $sockname PRIVMSG #darkclass :Spamfilter girdisi eklendi: $gettok(%::text,2-,32)
              write -d filterslog.txt $gettok(%::text,2-,32)
            }
            else {
              sw $sockname PRIVMSG %::chan  $+ %::nick $+ , Bu komuta erisiminiz yok..
            }
          }
        }
        if $gettok(%::text,1,32) == .fingerekle {
          hadd -m finger $r(1000,999999) $gettok(%::text,2-,32)
          hsave finger finger.mrc
          sw $sockname PRIVMSG %::chan : $+ $gettok(%::text,2,32) Finger kaydedildi.
        }
        if $gettok(%::text,1,32) == .fingersil {
          if $hfind(finger,$gettok(%::text,2-,32),1,W).data {
            hdel finger $ifmatch
            hsave finger finger.mrc
            sw $sockname PRIVMSG %::chan :Finger silindi ( $+ $ifmatch $+ ) $gettok(%::text,2-,32)
          }
          else {
            sw $sockname PRIVMSG %::chan :Finger bulunamadi.
          }
        }
        if $gettok(%::text,1,32) == .kufekle {
          hadd -m konick $r(1000,999999) $gettok(%::text,2-,32)
          hsave konick konick.mrc
          sw $sockname PRIVMSG %::chan :Kufurbaz nick eklendi: $gettok(%::text,2-,32) 
        }
        if $gettok(%::text,1,32) == .kufsil {
          if $hfind(konick,$gettok(%::text,2-,32),1,W).data {
            hdel konick $ifmatch
            hsave konick konick.mrc
            sw $sockname PRIVMSG %::chan :Kufurbaz nick silindi ( $+ $ifmatch $+ ) $gettok(%::text,2-,32)
          }
          else {
            sw $sockname PRIVMSG %::chan :Kufurbaz nick bulunamadi.
          }
        }
        if $gettok(%::text,1,32) == .blockadd {
          if $gettok(%::text,2-,32)  { 
            if  q0kh4n == %::nick || q0kh4n01 == %::nick || nick == %::nick || nick2 == %::nick || nick3 == %::nick || nick4 == %::nick || nick5 == %::nick || nick6 == %::nick || nick7 == %::nick {       
              sw NoMercy spamfilter add cpN block 1h 0,4. $gettok(%::text,2-,32)
              sw $sockname PRIVMSG %::chan :Spamfilter'e block eklendi: $gettok(%::text,2-,32)
            }
            else {
              sw $sockname PRIVMSG %::chan  $+ %::nick $+ , Bu komuta erisiminiz yok..
            }
          }
        }
        if $gettok(%::text,1,32) == .blockdel {
          if $gettok(%::text,2-,32)  { 
            if  q0kh4n == %::nick || q0kh4n01 == %::nick || nick == %::nick || nick2 == %::nick || nick3 == %::nick || nick4 == %::nick || nick5 == %::nick || nick6 == %::nick || nick7 == %::nick {       
              sw NoMercy spamfilter del cpN block 1h 0,4. $gettok(%::text,2-,32)
              sw $sockname PRIVMSG %::chan :Spamfilter'den silindi: $gettok(%::text,2-,32)
            }
            else {
              sw $sockname PRIVMSG %::chan  $+ %::nick $+ , Bu komuta erisiminiz yok..
            }
          }
        }
        if $gettok(%::text,1,32) == .spamdel {
          sw $sockname spamfilter del apcnN gzline 24h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. [IRCForumlari] $gettok(%::text,2-,32)
          sw nm spamfilter del apcnN gzline 24h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. [IRCForumlari] $gettok(%::text,2-,32)
          sw nm2 spamfilter del apcnN gzline 24h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. [IRCForumlari] $gettok(%::text,2-,32)
          sw nm3 spamfilter del apcnN gzline 24h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. [IRCForumlari] $gettok(%::text,2-,32)
          sw NoMercy spamfilter del apcnN gzline 24h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. [IRCForumlari] $gettok(%::text,2-,32)
          sw $sockname PRIVMSG #darkclass :Spamfilter girdisi silindi: $gettok(%::text,2-,32)
          write -d filterslog.txt $gettok(%::text,2-,32)
        }
        if $gettok(%::text,1,32) == .spamlog {
          sw $sockname PRIVMSG #darkclass :4Spamfilter txt dosyasına ekli olanlar listeleniyor...
          spamlogver
          sw $sockname PRIVMSG #darkclass :4Spamfilter dosya sonu...
        }
      }

yapman gerekenleri biliyosan sorunsuz çalışacaktır

rX · 18 Şubat 2009, 15:20

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Teşekkürler Ama Olmuyor. Yani Bir Işlem Yapmıyor. Benim Belirttiğim Şekilde Yapması Icin Ne Yapılabilir? Yani ekli Tüm Kelimeler Icin Yapılmasını Istiyorum Spam'ı Ekliyor Ama Silmiyor. Silindi Vs. Diyor Ama Silmiyor. Yani Bunun Icin Ne Yapabiliriz? !spamdel kelime Yaptıqımda Spamfilterde O Kelime Varsa Silsin Yoksa Kanala Desin işte O Kelime Spamfilter'da Yok Yani cpnNa apcnN ile Eklenmiş Olmasını enqel Görmesin Yani Hanqi Kelimeyi istersem Bot silsin Yapabilmek Mümkünmü ?

rX · 19 Şubat 2009, 19:01

Konu Güncel ...

rX · 22 Şubat 2009, 11:39

Konu Güncel 2.ci Up...

Difuzyon · 22 Şubat 2009, 14:25

Spam eklerken botun : $yildiztemizle($gettok(%::text,2-,32)) şeklinde ekliyor.

yildiztemizle aliasını verdiğin örnekden okuduğum kadarıyla,eklenecek kelimelerdeki bazı karakterleri otomatik olarak çeviriyor.Senin verdiğin yildiztemizle aliası:

Alıntı:

alias yildiztemizle {
var %y $+(.,?) , %yi
if $numtok($1-,32) == 1 {
var %1kelime 1
}
%yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$ chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$ch r(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr (164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$ch r(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$ch r(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr( 34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr( 45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)
if %1kelime {
%yi = $+(^,%yi,$chr(36))
}
return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
}

ve uygulama yapman halinde karşına çıkacaklar:

//echo -a $yildiztemizle(örnek deneme şekli)
Yanıt : örnek.?deneme.?.?ekli

Botun spam eklerken bu şekilde ekliyorsa,silmek içinde aynı metodu uygulamasın.Yani;
1. postundaki $gettok(%::text,2-,32) yazan yerlere, $yildiztemizle($gettok(%::text,2-,32)) yazıp denemelisin...

Gözlemlediğim bu...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
NoMercy Bot Kodlama Hakkında;	Burak3734	Eggdrop, NeoStats, BNC	2	01 Aralık 2021 07:50
nomercy hakkında	LiDeR	Eggdrop, NeoStats, BNC	0	31 Mayıs 2011 14:35
NoMercy bot hakkında	LiDeR	Eggdrop, NeoStats, BNC	4	08 Nisan 2011 12:18
Nomercy Hakkında	JaqCaL	mIRC Scripting Sorunları	4	10 Nisan 2008 21:03
NoMercy hakkında!	webtasarimturk	mIRC Scripting Sorunları	7	23 Şubat 2008 19:33

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.