Çevrimdışı

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]

Burdan İndir

Bu forumdaki ekleri görübilmek için 25 mesaja sahip olmanız gerekir. Sizin 0 Mesajınız var.

 

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


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

gibi.

 

Çevrimdışı

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

 

Çevrimdışı

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.

 

Çevrimdışı

yani ornegin

[01:19] *** Giriş: neaiouWii (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[01:19] *** ChanServ mode değiştirdi:+b
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[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?

 

Çevrimdışı

çok güzel anlatmışsın tebrik ediyorum cevap beklemekten başka şansımız yok
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

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

 

Çevrimdışı

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Dediğim gibi reklamın ilk 2 yada 3 harfini alıp sonunu 2 nokta almak m&#252;mk&#252;nse yardımcı olabilirmisin ?

 

Çevrimdışı

buyur noktala kodunu yine değiştirdim, bundan sonrada şoyle boyle demeyin maymuna dondurduk noktaları
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


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.

 

Çevrimdışı

bunu ekledim ama soyle oldu

[22:54] *** ChanServ mode değiştirdi:+b
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[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