IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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/)
-   -   HASH Kufur korumasi! (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/18127-hash-kufur-korumasi.html)

Brain 05 Haziran 2006 09:03
HASH Kufur korumasi!
 
Kod:
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!

diEfoRyoU 05 Haziran 2006 21:30
Yanıt: HASH Kufur korumasi!
 
aCustiC, ellerine sağlık. Yorumsuz takip ettim. &#199;okta hoş olmuş.
Yalnız aklıma birşey takıldı:) &#214;rneğin: Kullanıcı i&#231;inde rakam olan bir kelime eklemek istedi k&#252;f&#252;r tablosuna, ekleyebilir mi?

Brain 05 Haziran 2006 21:36
Yanıt: HASH Kufur korumasi!
 
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 :)

sql de injection icin bu tarz degerler gireriz belki onu dusunerek yapmis olabilirim ;)

diEfoRyoU 05 Haziran 2006 21:53
Yanıt: HASH Kufur korumasi!
 
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. :)
&#214;rneğin: echo -t @kufur $1- gibi. ;)

Brain 05 Haziran 2006 22:09
Yanıt: HASH Kufur korumasi!
 
Yaparken eglenemedikten sonra yazmak bazen onem tasimiyor :)

CraCX 15 Eylül 2006 13:55
Yanıt: HASH Kufur korumasi!
 
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
Cevap: HASH Kufur korumasi!
 
Alıntı:
aCoustiC Nickli Üyeden Alıntı (Mesaj 135274)
Kod:
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
Cevap: HASH Kufur korumasi!
 
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
Cevap: HASH Kufur korumasi!
 
Alıntı:
Difuzyon Nickli Üyeden Alıntı (Mesaj 642141)
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
Cevap: HASH Kufur korumasi!
 
Kod:
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...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:49.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net