Kahkaha

Bayıldım

Cool

Kızgın

Mahcup

Öğretici

Şaşkın

Suskun

Tatlı

Üzgün

Süper

Reklam identifieri v2 Coded By Alience

Ana Sayfa » internet » IRC » Reklam identifieri v2 Coded By Alience
Reklam identifieri v2 Coded By Alience

/*
Reklam koruması için identifier version 2
Coder: Alience
Mirc Version: min 6.17
regex kullanarak hash’taki kelimeleri taramaya yönelik hazırlanmış reklam koruma örneği.
kelime eklemek için regex veya wildcardlar hakkında az da olsa bilgiye sahip olmanız gerekli
şöyleki selam için sellam,sellamm,selamm yazabilir düşüncesi ile sel*am* ekleyebilirsiniz.
çoğu korumada scripter:
n0=kelime
n1=kelime2
n2=kelime3

şeklinde veya:
kelime=alakasız bişi
kelime2=..
şekillerinde hasha ekleme yapar.
bunlardan farklı olarak bu korumada çoktandır aklımda olan değişik bir kullanım tarzı uyguladım
kelimeleri n0=kelime1|kelime2|…. şeklinde:
bir kelime 60 karakterden kısa olmak kaydı ile 15 tanesini bir tane bloga ekliyor 16 sını yeni bloğa acıyor.
toplamda 200 lük hash açtığımızda 200*15 = 3000 tane kelime kapasitesi var

$wasadv(match) identifieri en son yapılan $isadv’ işlemindeki uyan kriter kelimeyi gösterir.
$wasadv(time/veya herhangi bir yazı) en son yapılan $isadv işleminin ctime ını verir.
koruma örneği olarak:
on ^*:open:?: {
if $isadv($1-) { echo -st $+([Olası reklam yakalanan kelime: ,$wasadv(match),]) $+(<,$nick,>) $1- | halt }
}
bunlar çoğaltılabilir korumaları yazacak olan sizlersiniz bunu bir engine gibi düşünün :D.

Komutları:
» /isadv -a[s] kelime :Reklam olarak yakalamasını istediğiniz kelimeyi eklemeye yarar.
» /isadv -d[s] kelime :Eklediğiniz kelimleri listeden silmenizi sağlar.
s parametresini kullanırsanız size bilgi verir örnekler:
/isadv -a deneme komutunu girerseniz hiçbir bilgi gelmez
/isadv -as deneme komutunu girerseniz: *** deneme Listede mevcut. gibisinden bilgi gelir.
» /isadv -l :Ekli kelimelerin listesini verir.
» $isadv(kelime,cumle) :Reklam korumamız eğer kelime,cümle reklam olarak eklediğimiz, kriterdeki kelimeleri içeriyorsa $true döner yoksa $false.
» $isadv(-l[s]): Bu tamamen ileriye dönük script yazanlar için tasarlanmış bir parametredir, bu identifieri oluştururken son kullanıcıyı değilde
komuttan anlayanları daha çok ilgilendirdiğini belirtmeliyim.
Kullanımı:
$isadv(-l,5) :listedeki 5. kelimeyi verir.
diyelimki dialog oluşturdunuz dialogda listboxa reklam kelimelerini yüklemek istiyorsunuz
listboxumuzun id si [lid] diye belirtilmiştir
var %i = 1
while $isadv(-l,%i) {
did -a $dname [lid] $v1
inc %i 1
}
NOT: Bu kod tamamen boş zamanımda yazılmıştır, mirc de kod yazmayı hemen hemen bırakmış durumdayım, herhangi bir sorunu hatası çıkarsa
foruma girmediğim için düzeltme yapamayacağım test işlemlerinid minimumda tuttum. Bunu yazmamın ve yayınlamamın sebebi uzun süredir aklımda
olan yukarıda biraz bahsetiğim hasha değerleri
n0=1 den çok değer
n1=geriye kalanları
n2=n1 e sağımayanlar vs
bunlar arasında işle yaptırma vs
*/
;aşağıdan itibaren kodu kopyalayıp remoteye yapıştırabilirsiniz.
;bu kısımda kayıtları tumak ve yüklemek için geçerli
on *:start: { if !$hget(isadv) { .hmake isadv 2000 | .hload -i isadv $+(“,$scriptdir,isadv2.ini”) verbs } }
on *:exit: { if $hget(isadv) { .hsave -io isadv $+(“,$scriptdir,isadv2.ini”) verbs } }
alias wasadv { return $iif($1 == match,$gettok($hget(isadv,wasadv),1,46),$gettok($h get(isadv,wasadv),2,46)) }
alias isadv {
if !$hget(isadv,wasadv) {
if !$hget(isadv) { hmake isadv 200 }
hadd isadv wasadv $+($null,$ctime)
}
if !$isid { tokenize 32 $1 $remove($2-,$chr(32),$chr(33),$chr(40),$chr(41),$chr(44),$chr (91),$chr(93),$chr(94),’,”,_,-,<,>,=,/,\,$chr(123),$chr(125)) }
if !$isid && $regex($1,^\-(a|as|sa)$) {
if $len($2) > 60 && s isin $1 { echo $color(info text) -at *** 60 Karakterden uzun kelime giremezsiniz. | halt }
var %i = 0
while %i < $calc($hget(isadv,0).item – 1) {
var %hgetstr = $hget(isadv,$+(n,%i))
var %n = $calc($count(%hgetstr,|) + 1)
while %n {
if $gettok(%hgetstr,%n,124) == $2- && s isin $1 { echo $color(info text) -at *** $2- Listede mevcut. | halt }
dec %n 1
}
inc %i 1
}
hadd isadv $iif(%hgetstr == $null,$+(n,%i,$chr(32),$2-),$iif($count(%hgetstr,|) < 14,$+(n,$calc(%i – 1),$chr(32),%hgetstr,|,$2-),$+(n,%i,$chr(32),$2-)) )
if s isin $1 { echo $color(info text) -at *** $2- Listeye eklendi. }
}
if !$isid && $regex($1,^\-(d|ds|sd)$) {
var %i = 0, %totalitems = $calc($hget(isadv,0).item – 1)
while %i < %totalitems {
var %hgetstr = $hget(isadv,$+(n,%i))
var %n = $calc($count(%hgetstr,|) + 1)
while %n {
if $gettok(%hgetstr,%n,124) == $2- {
if %i != $calc(%totalitems – 1) {
hadd isadv $+(n,%i) $+($remtok(%hgetstr,$2-,1,124),|,$gettok($hget(isadv,$+(n,$calc(%totalite ms – 1))),-1,124))
hadd isadv $+(n,$calc(%totalitems – 1)) $remtok($hget(isadv,$+(n,$calc(%totalitems – 1))),$gettok($hget(isadv,$+(n,$calc(%totalitems – 1))),-1,124),1,124)
}
else { hadd isadv $+(n,%i) $remtok(%hgetstr,$2-,1,124) }
if s isin $1 { echo $color(info text) -at *** $2- Listeden silindi. }
halt
}
dec %n 1
}
inc %i 1
}
if s isin $1 { echo $color(info text) -at *** $2- Listede yok. }
}
if !$isid && $regex($1,^\-l$) {
var %i = 0, %totalcounter = 1
echo $color(info text) -at *** isadv listeleniyor:
while %i < $calc($hget(isadv,0).item – 1) {
var %hgetstr = $hget(isadv,$+(n,%i))
var %n = $calc($count(%hgetstr,|) + 1)
while %n {
echo $color(info text) -at $+(%totalcounter,$chr(41)) $gettok(%hgetstr,%n,124)
inc %totalcounter 1
dec %n 1
}
inc %i 1
}
echo $color(info text) -at *** isadv listesi sonu.
}
;listeden isteme $isadv(-l,[number])
if $isid {
if $regex($1,^\-(l|ls|sl)$) {
if $2 < 1 || $2 !isnum 1-3000 {
if s isin $1 { echo $color(info text) -at *** Hatalı no girdiniz. | halt }
else { return $null }
}
return $gettok($hget(isadv,$+(n,$iif($calc($2 % 15) == 0,$calc($gettok($calc($2 / 15),1,46) – 1),$gettok($calc($2 / 15),1,46)))),$iif($calc($2 % 15) == 0,15,$v1),124)
}
else {
var %searchstr = $remove($1-,$chr(32),$chr(33),$chr(40),$chr(41),$chr(44),$chr (91),$chr(93),$chr(94),’,”,_,-,<,>,=,/,\,$chr(123),$chr(125))
var %i = 0
while %i < $calc($hget(isadv,0).item – 1) {
if $regex(isadv,%searchstr,$+($chr(40),$hget(isadv,$+ (n,%i)),$chr(41))) {
hadd isadv wasadv $+($regml(isadv,1),$chr(46),$ctime)
return $true
}
inc %i 1
}
return $false
}
}
}
;EOF

Reklam identifieri v2 Coded By Alience - Yorumlar

YORUMLARINIZI PAYLAŞIN

 

Yapılan Yorumlar

BENZER İÇERİKLERİlginizi çekebilecek diğer içerikler

kelebek

kelebek 09 Kasım 2020

irc invex komutu

irc invex komutu 17 Ocak 2011

SOSYAL MEDYADA BİZSitemizin sosyal medya hesapları

ÖNE ÇIKAN KATEGORİLER

RASTGELE İÇERİKLER

Psikoteknik nedir? Tamirci ve Doktor İlk asma köprü Yüksek Öğretim Giriş Sınavı (YDS) Abidin-Ağlarsa Anam Ağlar Seslenme

FACEBOOK'TA BİZ

Hoşgeldiniz

Kelebek mIRC Script Sohbet Sitesi - Tüm Hakları Saklıdır