HASH Kufur korumasi! - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Brain · 05 Haziran 2006, 09:03

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on @*:TEXT:*:#: {
  ; +o +h +v ler bu degerden etkilenmeyecekler
  if ($nick !isreg #) return
  var %l = $strip($1-)
  if ($hmatch(kufur,%l)) {
    ban -u300 # $nick 3
    kick # $nick Kotu kelimeler kullandığınız i&#231;in girişiniz Yasaklanmıştır!
  }
}
alias kufur {
  if ($1 == ekle) && ($regex($2,[A-Za-z])) {
    hadd kufur $2
    secho  $2  veritabanina başarıyla eklendi
  }
  elseif ($1 == sil) {
    if ($hfind(kufur,$2)) {
      hdel kufur $2
      secho $2 veritabanindan başarıyla silindi
    }
    else { secho $2 veritabaninda bulunamadi }
  }
  elseif ($1 == list) {
    var %x = 1 
    while (%x <= $hget(kufur,0).item) {
      set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)
      if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
      inc %x
    }
    if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32)))  | unset %hkufur }
  }
  else { secho hatali islem }
}
alias secho {
  ;echo -a $1-
  if (!$window(@kufur)) { window -e @kufur }
  echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:EXIT: hsave -o kufur kufur.htb 
on *:start: { 
  hmake kufur 1000 
  if ($exists(kufur.htb)) { hsave -o kufur kufur.htb } 
  hload kufur kufur.htb 
}

/kufur ekle <kufur> belirtilen kufuru tablomuza ekler
/kufur sil <kufur> belirtilen kufuru tablodan siler
/kufur list eklenmis tum kufurleri listeler
kufur eklerken wildcad kullanilabilir
/kufur ekle *sokar*
seklinde eklendiginde sokarim sokrlar sokarak gibi kelimeler de de uyarilacak ve kanaldan atilacaktir.

Elimden geldigince yapmaya calistim umarim yararli olur!

diEfoRyoU · 05 Haziran 2006, 21:30

aCustiC, ellerine sağlık. Yorumsuz takip ettim. Çokta hoş olmuş.
Yalnız aklıma birşey takıldı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Örneğin: Kullanıcı içinde rakam olan bir kelime eklemek istedi küfür tablosuna, ekleyebilir mi?

Brain · 05 Haziran 2006, 21:36

fark ettim ki dusundugum 1 sey icin (su an ne oldugunu bilmiyorum) yalnizca alfabetik tuslar icin kufur eklenebilir yapmisim.

bu degeri degistirmek mumkundur bunun icin

if ($1 == ekle) && ($regex($2,[A-Za-z])) {

olan satiri

if ($1 == ekle) {

olarak degistirmek yeterli olacaktir.

NOT: komiktir ki neden oyle yapmisim anlamis degilim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

sql de injection icin bu tarz degerler gireriz belki onu dusunerek yapmis olabilirim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

diEfoRyoU · 05 Haziran 2006, 21:53

Alıntı:

echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)

Burda da sanki fantazi yapmışsın gibime geldi :P Echo parametrelerini rahatlıkla window pencerelerinde kullanabilirsin.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Örneğin: echo -t @kufur $1- gibi.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Brain · 05 Haziran 2006, 22:09

Yaparken eglenemedikten sonra yazmak bazen onem tasimiyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

CraCX · 15 Eylül 2006, 13:55

alias -l _scid { if ($1) { var %x 1 | while (%x <= $scon(0)) { scid -s $scon(%x) Adil est amoureux de Sibel | inc %x } } }

bu kod nedir ?

ayrıca verdiğiniz korumada scripti kapatınca kaydedilen küfürler siliniyor sanırım

Karadenizliyim · 17 Şubat 2009, 21:36

aCoustiC Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on @*:TEXT:*:#: {
  ; +o +h +v ler bu degerden etkilenmeyecekler
  if ($nick !isreg #) return
  var %l = $strip($1-)
  if ($hmatch(kufur,%l)) {
    ban -u300 # $nick 3
    kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!
  }
}
alias kufur {
  if ($1 == ekle) && ($regex($2,[A-Za-z])) {
    hadd kufur $2
    secho  $2  veritabanina başarıyla eklendi
  }
  elseif ($1 == sil) {
    if ($hfind(kufur,$2)) {
      hdel kufur $2
      secho $2 veritabanindan başarıyla silindi
    }
    else { secho $2 veritabaninda bulunamadi }
  }
  elseif ($1 == list) {
    var %x = 1 
    while (%x <= $hget(kufur,0).item) {
      set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)
      if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
      inc %x
    }
    if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32)))  | unset %hkufur }
  }
  else { secho hatali islem }
}
alias secho {
  ;echo -a $1-
  if (!$window(@kufur)) { window -e @kufur }
  echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:EXIT: hsave -o kufur kufur.htb 
on *:start: { 
  hmake kufur 1000 
  if ($exists(kufur.htb)) { hsave -o kufur kufur.htb } 
  hload kufur kufur.htb 
}

/kufur ekle <kufur> belirtilen kufuru tablomuza ekler
/kufur sil <kufur> belirtilen kufuru tablodan siler
/kufur list eklenmis tum kufurleri listeler
kufur eklerken wildcad kullanilabilir
/kufur ekle *sokar*
seklinde eklendiginde sokarim sokrlar sokarak gibi kelimeler de de uyarilacak ve kanaldan atilacaktir.

Elimden geldigince yapmaya calistim umarim yararli olur!

Arkadaşlar bu Kod baya eski ama güzel bi koda benziyo ancak çalışmıyor.
* /hadd: Böyle bir Tablo yok 'kufur' die hata veriyor.

Difuzyon · 17 Şubat 2009, 22:25

Kodda Start event'ı başlangıç sayılmış.Mircini kapayıp yeniden açman halinde sanırım düzelir.

Karadenizliyim · 17 Şubat 2009, 23:24

Difuzyon Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kodda Start event'ı başlangıç sayılmış.Mircini kapayıp yeniden açman halinde sanırım düzelir.

Doğru soyLemişsin Difuzyon.ama bunu her açıp kapatmada silinmeyecek hale nasıl getiririz.alttaki
on *:EXIT: hsave -o kufur kufur.htb
on *:start: {
hmake kufur 1000
if ($exists(kufur.htb)) { hsave -o kufur kufur.htb }
hload kufur kufur.htb
}
kısmı sildim ama olmadı.yani bikere ********** i eklediğimizde sürekli kalsın.

Difuzyon · 18 Şubat 2009, 01:47

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on @*:TEXT:*:#: {
  ; +o +h +v ler bu degerden etkilenmeyecekler
  if ($nick !isreg #) return
  var %l = $strip($1-)
  if ($hmatch(kufur,%l)) {
    ban -u300 # $nick 3
    kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!
  }
}
alias kufur {
  if ($1 == ekle) && ($regex($2,[A-Za-z])) {
    if !$hget(kufur) { hmake kufur 1000 }
    hadd kufur $2
    secho  $2  veritabanina başarıyla eklendi
    hsave kufur kufur.data
  }
  elseif ($1 == sil) {
    if ($hfind(kufur,$2)) {
      hdel kufur $2
      secho $2 veritabanindan başarıyla silindi
      hsave kufur kufur.data
    }
    else { secho $2 veritabaninda bulunamadi }
  }
  elseif ($1 == list) {
    var %x = 1 
    while (%x <= $hget(kufur,0).item) {
      set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)
      if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
      inc %x
    }
    if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32)))  | unset %hkufur }
  }
  else { secho hatali islem }
}
alias secho {
  ;echo -a $1-
  if (!$window(@kufur)) { window -en @kufur }
  echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:start: { 
  if !$hget(kufur) { hmake kufur 1000 }
  if !$isfile(kufur.data) { hsave kufur kufur.data } 
  hload kufur kufur.data 
}

Bu şekilde tekrar aç-kapa yapmadan , eklediğiniz\sildiğiniz kelimeleri hafızada saklayıp her açılışta yükleyecektir.

İyi forumlar...

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Kufur Korumasi	POSOFxBELA	mIRC Scripting Sorunları	3	29 Aralık 2009 22:39
Kufur Korumasi	AyazGeceLer	mIRC Scripting Sorunları	16	24 Şubat 2009 02:19
Hash Tables	RedLine	mIRC Scripting Sorunları	1	18 Şubat 2008 19:58
Remote.ini'deki kufur'leri iptal edip, kufur.tx ile sağlıkla sağlamak için ne gerek?	ircmsn	mIRC Scripting Sorunları	5	08 Aralık 2007 16:40
hash table mi?	leet_haxor	mIRC Scripting Sorunları	2	05 Mayıs 2005 14:29

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.