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 Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   özelinize gelen botnet mesajlarına oto spam! (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/52450-ozelinize-gelen-botnet-mesajlarina-oto-spam.html)

XcLusive 03 Nisan 2008 18:14
özelinize gelen botnet mesajlarına oto spam!
 
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- )
}
on *:open:?:{
set -u5 %nickw. [ $+ [ $nick ] ] warn
}
alias spch {
if (!$window(@Spams)) window -ne @Spams
spamekle $yildiztemizle($2-)
echo -t @Spams $1 : $yildiztemizle($2-)
}
on *:text:*:?:{
if (!%nickw. [ $+ [ $nick ] ]) { halt }
if (%nickw. [ $+ [ $nick ] ] == warn) && (*_* iswm $1-) && ($right($1,1) isnum) && ($2 == $null) { spch $nick $1 }
var %t = 1 , %kelime = $gettok($strip($1-),0,32)
var %cümle = $strip($1-)
if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $1- }
while (%t <= %kelime) {
set %ara $gettok($strip($1-),%t,32)
if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara }
if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara }
if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara }
if (%nickw. [ $+ [ $nick ] ] == warn) && (%ara == @) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) }
if (*@h?* iswm %ara) { spch $nick %ara }
if ($right($gettok($strip($1-),$calc(%t - 1),32),1) isnum) && (*h?t* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara }
inc %t 1
}
}
alias spamekle {
spamfilter add cNnpa gzline +7200 Spam! $1-
}
alias spamsil {
spamfilter del cNnpa gzline +7200 Spam! $1-
}

-----------------------------------------------
Örnekler;
Özele Gelen Mesaj : [16:23:00] <^Seda_> SeLenCiK56@
Eklenen Spam : [16:23:00] ^Seda_ : .?.?SeLenCiK56@
Mesaj : [17:57:50] <_MUGE_> Sadece yakısıklı beyleri bekliyorum Esra6510 Hotm..........
Eklenen Spam : [17:57:50] _MUGE_ : .?.?Esra6510.?Hotm.?.?.?.?.?.?.?.?.?.?
Mesaj : [17:57:51] <ahuu_18> ece_yl@
Eklenen Spam : [17:57:51] ahuu_18 : .?.?ece_yl@
-----------------------------------------------
mIRC'inizi açık tutun ve keyfinize bakın..
botnet'e açılan savaş bitmicek ;)

CesuryureK 03 Nisan 2008 18:26
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
Eline Sağlık Halil :)
ßeklenen ßuydu :)

yanki 04 Nisan 2008 11:19
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
Kod çalişmior Denemesini yapdim.

XcLusive 06 Nisan 2008 21:12
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
ircop flaglarından "t" ekli olması gerek
bende bu kodu yazdığımdan beri kullanıyorum gayet güzel çalışıyor.

TiPiTiP 06 Nisan 2008 22:07
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
Kod:
%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)


Boşluk hataları var.

XcLusive 06 Nisan 2008 22:23
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
Doğru Gözen Kaçmış..

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

Boşluk hatalarını düzelttim..

yanki 07 Nisan 2008 12:10
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
ilk ßaştakini eklediqimde

* No such identifier: $ch (line 6, script1.ini) hatasi aliyorum

hatalari düzeltilen şekilde denedim ßu kezde Spam'a eklemior

XcLusive 07 Nisan 2008 17:50
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
[17:48:41] <as> ebru_buse145
-
[17:48:41] as : ^ebru_buse145$
-
[17:48:41] *** Spamfilter added: '^ebru_buse145$' [target: cpnNa] [action: gzline] [reason: Spam!] on Mon Apr 7 14:48:46 2008 GMT (from HaLiL!H.i.D@CSop.XXXXXXX)

-------------
nasıl spam eklemiyor?

yanki 07 Nisan 2008 17:56
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
ßen xssada@ şeklinde yapiyorum algilamior? yoksa ßenim mIRC'demi sorun war ?

XcLusive 07 Nisan 2008 18:00
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
Kod:
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- )
}
on *:open:?:{
  set -u5 %nickw. [ $+ [ $nick ] ] warn
}
alias spch {
  if (!$window(@Spams)) window -ne @Spams
  spamekle $yildiztemizle($2-)
  echo -t @Spams $1 : $yildiztemizle($2-)
}
on *:text:*:?:{
  ;if ($1 == !sie) { gzline $2 +1h Spam! }
  if ($1 == !kline) {
    halt
    xlineac $2
    set %klinenick $nick
    set %unbanip $2
  }
  if (!%nickw. [ $+ [ $nick ] ]) { halt }
  if ($nick ison #yönetim) || ($nick ison #admin) { halt }
  if (%nickw. [ $+ [ $nick ] ] == warn) && (*_* iswm $1-) && ($right($1,1) isnum) && ($2 == $null) { spch $nick $1 }
  var %t = 1 , %kelime = $gettok($strip($1-),0,32)
  var %cümle = $strip($1-)
  if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $1- }
  while (%t <= %kelime) {
    set %ara $gettok($strip($1-),%t,32)
    if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara }
    if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara }
    if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara }
    if (%nickw. [ $+ [ $nick ] ] == warn) && (%ara == @) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) }
    if (*@h?* iswm %ara) { spch $nick %ara }
    if ($right($gettok($strip($1-),$calc(%t - 1),32),1) isnum) && (*h?t* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara }
    inc %t 1
  }
}
alias spamekle {
  spamfilter add cNnpa gzline +7200 Spam! $1-
}
alias spamsil {
  spamfilter del cNnpa gzline +7200 Spam! $1-
}
on *:open:?:{
set -u5 %nickw. [ $+ [ $nick ] ] warn
}

korumasına takılabilir özeldeki sohbetleri etkilememesi için bunu eklemiştim nick'i özelinden çıkartıp tekrar denemelisin..
özele geldikten ilk 5 saniye içinde reklam yaparsa kod aktif olur.

yanki 07 Nisan 2008 18:54
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
Okz ßu kez oldu Tşkler. :d

korhan066 09 Nisan 2008 23:22
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
ekledım ama calısmadı , t flagıda eklı kodun calısır halını yazarmısınız sıze zahmet

XcLusive 10 Nisan 2008 00:35
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
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- )
}
on *:open:?:{
set -u5 %nickw. [ $+ [ $nick ] ] warn
}
alias spch {
if (!$window(@Spams)) window -ne @Spams
spamekle $yildiztemizle($2-)
echo -t @Spams $1 : $yildiztemizle($2-)
}
on *:text:*:?:{
if (!%nickw. [ $+ [ $nick ] ]) { halt }
if ($nick ison #yönetim) || ($nick ison #admin) { halt }
if (%nickw. [ $+ [ $nick ] ] == warn) && (*_* iswm $1-) && ($right($1,1) isnum) && ($2 == $null) { spch $nick $1 }
var %t = 1 , %kelime = $gettok($strip($1-),0,32)
var %cümle = $strip($1-)
if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $1- }
while (%t <= %kelime) {
set %ara $gettok($strip($1-),%t,32)
if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara }
if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara }
if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara }
if (%nickw. [ $+ [ $nick ] ] == warn) && (%ara == @) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) }
if (*@h?* iswm %ara) { spch $nick %ara }
if ($right($gettok($strip($1-),$calc(%t - 1),32),1) isnum) && (*h?t* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara }
inc %t 1
}
}
alias spamekle {
spamfilter add cNnpa gzline +7200 Spam! $1-
}
alias spamsil {
spamfilter del cNnpa gzline +7200 Spam! $1-
}

korhan066 10 Nisan 2008 20:52
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
ekledım Ama , ßi ikikez calısdı dahada calısmadı gerıde ekledım , 5 sn ıcınde ornek@ yazıyorum spam eklemıyo :S

XcLusive 12 Nisan 2008 00:59
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
şöyle anlatayım;
nick özeline gelince ve ilk 5 saniye içinde mesaj atarsa spam ekler.
yani kodun tekrar aktif olması için nick'i özelinden atman gerekli ( /closemsg nick ) aksi halde özelde belirtilen spam mesajlarını eklemez.. saten botnetinde mantığı odur.. özeline gelir mesajı atar gider, bunuda özeldeki sohbeti etkilememesi için düşündüm..

korhan066 14 Nisan 2008 22:18
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
Arkadasm , Calısdırdım dédıgın gıbı ama 5 sn , koruması calısmıO ozelı acıp 10 dakıka beklesemde , Spam`a Alıyo acaba bu sorunu nasıl cozerim

CipriX 14 Nisan 2008 22:42
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
özelini kapatıcaksın bot geldiğinde..

korhan066 14 Nisan 2008 23:04
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
évét mantıgını bılıyorum 5 sanıye ıcındé yazarsan eklıyor ama , O Timer calısmıyo ıster 5 sanıye ozel acık dursun 1 dakıka sonra yaz , genede spma a Alıyo . 5 sn suresını aktif kılmıyo anlatmak ıstedıgım bu .

XcLusive 14 Nisan 2008 23:09
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
şimdi sıfırdan remoteye ekledim sorunsuz çalışıyor?
kodları yeni bir sayfaya ekle..

korhan066 14 Nisan 2008 23:34
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
[23:29:27] nick nicki bilgilerinizi kontrol ediyor!
[23:29:51] <nick> ayso@
Spam@ [23:29:52] nick : ^ayso@$
yani demek ıstedıgım 5 sn işlemıo , ;=)

korumaya almıO , 5 sn olsun ıstersen 1 saat olsun Remoteyıde yukledım baska sayfaya anlamadım .

XcLusive 14 Nisan 2008 23:43
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
yukarıdaki kodu alıp tekrar denermisin 3 keredir deniyorum hala hiçbir hata yok..

korhan066 14 Nisan 2008 23:51
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
En az 6-7 defa yukledım sıldım scrıptı remoteyıde :S

XcLusive 14 Nisan 2008 23:56
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
bende aynısını yaptım..
ama hala sorun yok :) çalışıyor..

korhan066 14 Nisan 2008 23:58
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
ya , nasıl déyım kod sle bısey Oldu . ozele @ seklınde adres gonderdıgınde spam eklıyo =) , 5 sn Uygulamıyo Kullandıgın , Hangı versıOn Ogrenebılırmıyım ?

XcLusive 15 Nisan 2008 00:01
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
6.21

korhan066 15 Nisan 2008 00:07
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
ßéndékıdé sén bana su séndékı codu ßıdaha atarmısın sana zahmet sonkez denıcem olursa olur artık .;oki

XcLusive 15 Nisan 2008 00:11
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
Kod:
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- )
}
on *:open:?:{
  set -u5 %nickw. [ $+ [ $nick ] ] warn
}
alias spch {
  if (!$window(@Spams)) window -ne @Spams
  spamekle $yildiztemizle($2-)
  echo -t @Spams $1 : $yildiztemizle($2-)
}
on *:text:*:?:{
  if (!%nickw. [ $+ [ $nick ] ]) { halt }
  if (%nickw. [ $+ [ $nick ] ] == warn) && (*_* iswm $1-) && ($right($1,1) isnum) && ($2 == $null) { spch $nick $1 }
  var %t = 1 , %kelime = $gettok($strip($1-),0,32)
  var %cümle = $strip($1-)
  if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $1- }
  while (%t <= %kelime) {
    set %ara $gettok($strip($1-),%t,32)
    if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara }
    if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara }
    if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara }
    if (%nickw. [ $+ [ $nick ] ] == warn) && (%ara == @) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) }
    if (*@h?* iswm %ara) { spch $nick %ara }
    if ($right($gettok($strip($1-),$calc(%t - 1),32),1) isnum) && (*h?t* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara }
    inc %t 1
  }
}
alias spamekle {
  spamfilter add cNnpa gzline +7200 Spam! $1-
}
alias spamsil {
  spamfilter del cNnpa gzline +7200 Spam! $1-
}

Linqu 13 Mayıs 2008 01:01
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
nereye eklicez aliasamı remoteyemi?

XcLusive 13 Mayıs 2008 01:07
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
Kod:
alias yildiztemizle {
  var %y $+(.,?) , %yi
  %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)
  return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
}
on *:open:?:{
  set -u5 %nickw. [ $+ [ $nick ] ] warn
}
alias spch {
  if (!$window(@Spams)) window -ne @Spams
  spamekle $yildiztemizle($2-)
  echo -t @Spams $1 : $yildiztemizle($2-)
}
on *:text:*:?:{
  if (!%nickw. [ $+ [ $nick ] ]) { halt }
  var %t = 1 , %kelime = $gettok($strip($1-),0,32)
  var %cümle = $strip($1-)
  if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $1- | halt }
  while (%t <= %kelime) {
    set %ara $gettok($strip($1-),%t,32)
    if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara | halt }
    if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara | halt }
    if (*-* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara | halt }
    if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara | halt }
    if (*@* iswm %ara) && ($3) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) | halt }
    if (*@h?* iswm %ara) { spch $nick %ara | halt }
    if ($right($gettok($strip($1-),$calc(%t - 1),32),1) isnum) && (*h?t* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara | halt }
    inc %t 1
  }
}
alias spamekle {
  spamfilter add cNnpa gzline +7200 Spam! $1-
}
alias spamsil {
  spamfilter del cNnpa gzline +7200 Spam! $1-
}
bu kodları remotene ekle..

MatChLeSs 15 Mayıs 2008 10:56
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
Peki Özelimize gelen mesajları x kanalına nasıl yönlendirebiliris ?

nasilyani 08 Haziran 2008 15:36
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
ya bu @spams a gelenleri spamfilter e eklemek yerine direk zline atsa nicke ?

Murebba 19 Aralık 2008 14:00
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
bunu bu sekil degilde 2 kullanıcı 5 saniye icinde aynı mesajı yazdıgında eklese daha iyi olmazmı hem userlerin banlanmasına bayagı neden olur bu sekil

XcLusive 19 Aralık 2008 17:46
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
yakın zamanda sizlere son halini veririm ufak tefek fix yapılmış durumda.

Murebba 23 Aralık 2008 00:50
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
tesekkur ederim kardesim

XcLusive 26 Aralık 2008 11:20
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
Kod:
alias spamcheck {
  var %::nick = $1
  if (*_* iswm $4-) && ($right($4,1) isnum) && ($5 == $null) { spch 1 %::nick $strip($4-) | halt }
  if ($right($gettok($4-,$numtok($4-,32),32),2) isnum) { spch 2 %::nick $strip($gettok($4-,$numtok($4-,32),32)) | halt }
  if ($right($4,1) isnum) && (!$5)  { spch 3 %::nick $strip($4-) | halt }
  if ($right($5,1) isnum) && (!$6)  { spch 4 %::nick $strip($4-) | halt }
  if ($right($4,1) == @) && (!$5)  { spch 5 %::nick $strip($4-) | halt }
  if ($right($gettok($4-,$numtok($4-,32),32),1) == f) && $mid($gettok($gettok($4-,$numtok($4-,32),32),$numtok($gettok($4-,$numtok($4-,32),32),32),32),$calc($len($gettok($4-,$numtok($4-,32),32)) -2),2)  { spch 6 %::nick $right($gettok($4-,$numtok($4-,32),32),1) | halt }
  if (*-* iswm $4) && (!$5)  { spch 7 %::nick $strip($4-) | halt }
  if (*_* iswm $5) && (!$6)  { spch 8 %::nick $strip($4-) | halt }
  if (*_* iswm $gettok($4-,$numtok($4-,32),32)) { spch 9 %::nick $strip($gettok($4-,$numtok($4-,32),32)) | halt }
  if (*-* iswm $gettok($4-,$numtok($4-,32),32)) { spch 10 %::nick $strip($gettok($4-,$numtok($4-,32),32)) | halt }
  if ($gettok($4-,$numtok($4-,32),32) isnum) { spch 11 %::nick $strip($gettok($4-,$numtok($4-,32),32)) | halt }
  var %t = 1 , %kelime = $strip($gettok($4-,0,32))
  var %cümle = $strip($4-)
  if (%kelime == 2) && ($len($strip($4)) >= 5) && ($strip($5) == @) { spch 12 %::nick $strip($4-) | halt }
  while (%t <= %kelime) {
    set %ara $strip($gettok($4-,%t,32))
    if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch 13 %::nick %ara | halt }
    if (*ekle* iswm %ara) && ($6) { spch 14 %::nick %ara $gettok($strip($4-),$calc(%t + 1),32) | halt }
    if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch 15 %::nick %ara | halt }
    if (*-* iswm %ara) && ($right(%ara,1) isnum) { spch 16 %::nick %ara | halt }
    if (*_* iswm %ara) && (*@* iswm %ara) { spch 17 %::nick %ara | halt }
    if (*-* iswm %ara) && (*@* iswm %ara) { spch 18 %::nick %ara | halt }
    if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch 19 %::nick %ara | halt }
    if (*@h?* iswm %ara) { spch 20 %::nick $gettok($strip($4-),$calc(%t - 1),32) %ara | halt }
    if ($right(%ara,1) == f) && $mid($gettok(%ara,$numtok(%ara,32),32),$calc($len(%ara) -2),2) { spch 21 %::nick %ara | halt }
    if ($right($gettok($strip($4-),$calc(%t - 1),32),1) isnum) && $regex(%ara,/(.*hot.*|.*h0t.*)/i) { spch 22 %::nick $gettok($strip($4-),$calc(%t - 1),32) %ara | halt }
    inc %t 1
  }
}
on *:open:?:{
  set -u5 %nickw. [ $+ [ $nick ] ] warn
}
on *:text:*:?:{
  if (!%nickw. [ $+ [ $nick ] ]) { halt }
  spamcheck $nick x y $1-
}
alias spch {
  if !$window(@Spams) { window -ne @Spams }
  echo 4 -t @Spams Spam : $2 - Mesaj : $3-
  ;buraya kick ve spamfilter komutu örnek:
  spamekle $yildiztemizle($3-)
  echo 4 -t @Spams Eklenen Spam : $yildiztemizle($3-)
}
alias spamekle {
  spamfilter add cNnpa gzline +7200 Spam! $1-
}
alias spamsil {
  spamfilter del cNnpa gzline +7200 Spam! $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,$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- )
}
bottan alıp mirc için uyarladım test etme fırsatım olmadı hataları vs. buraya yazarsınız mükemmel bir beklenti içersinde olmayın sonuçta bir mantıksal işlem :)

woody 26 Ekim 2009 14:56
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
kelime eklemek istersek nerden ekliyoruz.

Editor 26 Ekim 2009 21:19
Cevap: özelinize gelen botnet mesajlarına oto spam!
 
/spamekle eklenecek Spam Şeklinde eklemeler yapabilirsin.


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

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