kick mesajına ... eklemek
 

Merhabalar bu Benim Antispam Botu yardımınızı istediğim konu şu: Antispam Bottaki Kick mesajım
Reklam Yasak: Yazdığı mesaj: [ $mid($gettok(%temp,4-,32),2,600) ]
işte bu..
Yapmak istediğim antispam botuma reklam yapıldığı zaman direk mesajı kick mesajına alıyor oysa mesajın arasına mesela [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] reklamı yapıldı
w..w..w..d..o..m..a..i..n..c..o..m gibi ayırmasını istiyorum

Yazdığı mesaj: [ $mid($gettok(%temp,4-,32),2,600) ]
işte bu normal hali direk yapılan reklamı kick mesajına alıyor
Nasıl yapabilirim acaba yardım ederseniz çok sevinirim ?

2. Konu ise
Antispam botumun içinde yer alan
sockwrite -n antispam NICK $read(Spam\1) $+ $read(Spam\2) $+ $read(Spam\3) $+ $read(Spam\4) $+ $read(Spam\5) $+ $read(bursa\kokorec) $+ $read(Spam\6)
}
}

Yani Her cyle yaptığında Nick değişmesi olmuyor yapamadım
$rand olarak yapılmıştı yani rasgele nick değiştirmesi
ben $read yaptım
Ama istediğim Nickleri değiştirmiyor
Bunu yapamasınızda
ilk sorduğum soru hakkında
Yardımda bulunursanız çok çok sevinirim hepinize şimdiden teşekkür ederim
Kolay gelsin.

[box=Alience]Kod cok uzun olduğu için attachment yapılmıştır + 2 mesaj birleştirilmiştir[/box]

1. soru için istediğin kod bu başlıkta var: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

alias noktala {
var %yazi = $1-
var %yap = $regsub(%yazi,/([a-z])/g,...$1,%yazi)
return %yazi
}

Bu kodu kullan. Kick mesajını aldığı satıra $noktala(xxxx) yazarsın. Artık o satırda kick mesajı yerine geçen ne varsa hepsini ( ) içine alıp başına $noktala yazacaksın yani :)

var %kickmsg Reklam Yasak: Yazdığı mesaj: [ $noktala($mid($gettok(%temp,4-,32),2,600)) ]

gibi.

arkadasim utku 1 de sey yapilabilir mi acaba. o soyledigin posta baktim ama su var. btoa gelen mesajin tamamini noktali noktali yapiyor. soyle olamaz mi spam gelen mesajin 1 bolumunu orda gosterse olabilir mi yani

w..w..w..d..o..m..a..i..n..c..o..m boyle degil de

w..w..d..m..a..n.o..m bu sekilde aradaki bazi harfleri sileerk yazdirabilir miyiz. o zaman reklamcilar gibi olammis oluruz. digeri gibi olursa mesaji aynen yazinca 1 arakdas soylemis reklamcilar gibi oluruz hakli
benim dedfigim gibi mumkun mudur?


w..w..w..d..o..m..a..i..n..c..o..m boyle degil de

w..w..d..m..a..n.o..m bu sekilde

Tebrik ederim tam onu düşünüyordum çok teşekkür ederim aynı zamanda dediğin oluyor ama tamamını noktalıyor dediğin gibi olursa çok daha iyi olur yani
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
w..w..w..d..o..m..a..i..n..c..o..m Değilde
w..w..d..m..n..o..m şeklinde kısaltmamız çok daha iyi olur lütfen anlayanlar yazabilirmi
çok tşk ederim kolay gelsin.

yani ornegin

[01:19] *** Giriş: neaiouWii ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[01:19] *** ChanServ mode değiştirdi:+b [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[01:19] *** neaiouWii ChanServ Tarafından Kanaldan Atıldı (AKICK by (Spammer (T...u...r...k...l...e...r...l...e 30 ...d...k Lı...k Sê...x ))) H...i...k...a...y...eM.ORĞ)))
[01:19] *** agBdeouZ ChanServ Tarafından Kanaldan Atıldı (AKICK by (Spammer (T...u...r...k...l...e...r...l...e 30 ...d...k Lı...k Sê...x ))) H...i...k...a...y...eM.ORĞ)))


ornek olarak bu. bota herif reklam yapmis ve akick mesajinda ben banlayan kisi olark butun reklami yazmism yani 1 nevi ben onun ne guzel reklamini yapmisim. bunu kisaltamaz miyiz yani


(Spammer (T..r...k...l...r...l...e 30 ..k Lı.k Sê...x ))) H..k...a..eM.ORĞ)))


ustteki yerine boyle banlattiramaz miyiz?

çok güzel anlatmışsın tebrik ediyorum cevap beklemekten başka şansımız yok :)

o başlığa baktıysanız bir nebze fikriniz oluşmuştur güzel bir geliştirme örneği var ayrıca sizin cevabınıza gelince arkadaşın verdiği örneği değiştirdim onun dediği aynı işlemleri yapın ama verdiği kodu aşağıdaki ile değiştirin:

alias noktala {
var %getvar = $strip($1-), %retvar = $mid(%getvar,1,1) , %i = $calc($rand(1,3) + 1)
while %i <= $len(%getvar) {
%retvar = $+(%retvar,..,$mid(%getvar,%i,1))
inc %i $rand(1,3)
}
return %retvar
}


şimdi komutu uygulamaya başlıyorum:
//echo - $noktala(deneme mesajı budur baicim)
- d..e..e..m..e..m..e..a....b..u..r..b..c..i

//echo - $noktala(deneme mesajı budur baicim)
- d..e..e..e..e..a..j....b..d..r....a..i..c..i

//echo - $noktala(deneme mesajı budur baicim)
- d..n..m....m..s..a..j..b..u..b..c..m

//echo - $noktala(deneme mesajı budur baicim)
- d..n..e..m....s..j....b..u..r..b..a..i

hepsinde değişik cıkıyor daha &#231;ok karıştırmak istiyorsanız $rand(1,3) teki 3 u buyutursunuz ben 5 yapıp komutu uyguladım:
//echo - $noktala(deneme mesajı budur baicim)
- d..m....s..a..ı..u..r..a

2. soruna gelince $read(Spam\1) $+ $read(Spam\2) $+ $read(Spam\3) $+ $read(Spam\4) $+ $read(Spam\5) $+ $read(bursa\kokorec) $+ $read(Spam\6)

bu tamamen yanlış $read'in kullanımı $read(dosyanınadi.uzantisi,satır) eğer satir yazmassan rastgele birşey se&#231;er

Alience tbr ederim noktalama sistemi tıkır tıkır &#231;alışıyor &#231;ok şey istiyorum ama kusura bakma: konu a&#231;ılmışken bu noktalama sistemini şu şekilde yapabilirmisin

mesela reklam mesajı bu [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kick mesajına bu şekilde yansıycak
ww.. dom.. co..
yani ilk 2 yada 3 harfi alıp sonuna 2 nokta koyucak ? Bunu yapmamız m&#252;mk&#252;n'm&#252; ?

İsteme amacım mesela &#231;ok uzun yazı yazıyor reklamcı
antispam bot birde onu &#231;ok noktalar koyunca araya kelime iyice uzuyor ve reklam kick mesajına sığmıyor :)
Dediğim gibi reklamın ilk 2 yada 3 harfini alıp sonunu 2 nokta almak m&#252;mk&#252;nse yardımcı olabilirmisin ?

buyur noktala kodunu yine değiştirdim, bundan sonrada şoyle boyle demeyin maymuna dondurduk noktaları :D

alias noktala {
var %getvar = $strip($1-), %retvar = $null, %i = 1
while $gettok(%getvar,%i,46) {
var %rf = $iif($len($ifmatch) <= 3,2,$rand(2,3))
%retvar = $+(%retvar,$chr(32),$left($gettok(%getvar,%i,46),% rf),$str(.,$calc($len($gettok(%getvar,%i,46)) - %rf)))
inc %i 1
}
return %retvar
}


kodun şimdiki yaptıgı iş girdiyi . ya gore ayırması ve
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
gibi 3 kelime veya daha az olanlarda sadece 1 . kullanması diğerlerinde random şekilde ya 2 ya 3 harf kullanıp diğerlerini noktalaması

denenmiş &#246;rnekleri:
//echo - $noktala([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
- ww. de.... co.
- ww. den... co.

bunu ekledim ama soyle oldu

[22:54] *** ChanServ mode değiştirdi:+b [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[22:54] *** anti-spam-bot ChanServ Tarafından Kanaldan Atıldı (Spammer (.))

spam botun ban sebebine ise

$address($1,2) Spammer ( $+ $noktala($2-) $+ )

boyle ekledim herhalde burda 1 yan&#231;is var. alience nasil ekleyecegim ban sebep yerine