IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
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/)
-   -   Nomercy !Spamdel Hakkında (https://www.ircforumlari.net/mirc-scripting-sorunlari/180065-nomercy-spamdel-hakkinda.html)

rX 14 Şubat 2009 20:40
Nomercy !Spamdel Hakkında
 
Kod:
        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:
        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
Cevap: Nomercy !Spamdel Hakkında
 
Kod:
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
Cevap: Nomercy !Spamdel Hakkında
 
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:
;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
Cevap: Nomercy !Spamdel Hakkında
 
Yardımlarınızı Bekliyorum Konu Güncel...

rX 18 Şubat 2009 04:50
Cevap: Nomercy !Spamdel Hakkında
 
Konu Güncel . 2.ci Up ...

q0kh4n01 18 Şubat 2009 06:12
Cevap: Nomercy !Spamdel Hakkında
 
Kod:
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
Cevap: Nomercy !Spamdel Hakkında
 
[Ü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
Cevap: Nomercy !Spamdel Hakkında
 
Konu Güncel ...

rX 22 Şubat 2009 11:39
Cevap: Nomercy !Spamdel Hakkında
 
Konu Güncel 2.ci Up...

Difuzyon 22 Şubat 2009 14:25
Cevap: Nomercy !Spamdel Hakkında
 
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...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 21:29.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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