Girişte version Yasaklama ?
 

menu status,menubar,channel {
.-
.Version Yansıtma Koruması
..Açık:.enable #VersionYansıtma | .echo -a 2 Version Yansıtma Koruması 4 Aktif.
..Kapalı:.disable #VersionYansıtma | .echo -a 2 Version Yansıtma Koruması 4 Deaktif.
.-
}
#VersionYansıtma off
on *:snotice:*Client connecting*: {
.ctcp $9 VERSION
.ctcp $9 FINGER
}

on 1:CTCPREPLY:*FINGER*: {
msg #Security 4Sorgu: 1  $nick 4FINGER: 1 $1-
}

on 1:CTCPREPLY:*VERSION*: {
msg #Security 4Sorgu: 1  $nick 4VERSION: 1 $strip($1-)
}

on 1:snotice:*Notice Yasak*: {
if VERSION isin $1- || FINGER isin $1- {
msg #Security 4VERSION 1/ 4FINGER:1  $2 $strip($remove($8-,[,],Notice,Yasaklanmistir))
}
}
#VersionYansıtma end


Kod Sahibi : The

Öncelikle The Arkadaşımıza Teşekkkür ederim. Benim sormak istediğim ben bi hash dosyası oluşturmak ve belirdiğim version sonucu çıkanı yasaklamak istiyorum. Bunu bu koda göre nasıl uygulayabilirim ? Yardımcı olursanız sevinirim.

Cevap: Girişte version Yasaklama ?
 

O kodun yazarı The değil, benim. Başka bir forumda yayınladım, üzerine konmuş :) Aşağıdaki ekran görüntüsündeki tarihe dikkati çekerim, yöneticisi olduğum yerde yayınladım onu ben..

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]





Soruna gelince, kendi mircinde mi kullanıcaksın yoksa botta mı onu belirtirsen ona göre yazarım.

Cevap: Girişte version Yasaklama ?
 

kendi mircimde . öncelikle özür dilerim böyle bi paylaşım olmuşta burda ordan belirttim.

Cevap: Girişte version Yasaklama ?
 

Alıntı:

Xadd1 Nickli Üyeden Alıntı (Mesaj 1042004701) kendi mircimde . öncelikle özür dilerim böyle bi paylaşım olmuşta burda ordan belirttim.

Senlik bişey yok kardeşim ortalık çakma coder dolu. Aşağıdaki şekilde remote kısmına eklersen kullanabilirsin;

PHP- Kodu:

---


alias versionekle {
if $hfind(yasakli,$1-,1,W).data { echo -a Bu version zaten var. | return }
hadd -m mnick $calc($hget(yasakli,0).item + $r(999,000)) $1-
hsave yasakli yasak.aln
hload yasakli yasak.aln
echo -a Yasak version $qt($1-) eklendi.
}

alias versionsil {
if !$hfind(yasakli,$1-,1,W).data { echo -a Bu version zaten yok. | return }
hdel $hfind(yasakli,$1-,1,W).data
hsave yasakli yasak.aln
hload yasakli yasak.aln
echo -a Yasak version $qt($1-) silindi..
}

on 1:CTCPREPLY:*VERSION*: { 
if o isin $usermode {
  if $hfind(yasakli,$1-,1,W).data { gzline $nick : Yasak version girişi tespit edildi. | return }
}
}

on *:start: {
hmake yasakli 1000
hload yasakli yasak.aln
} 


---

Denemedim anlık yazdım ama çalışması gerek, sorun olursa yazarsın..

Kullanımı:

Eklemek için: /versionekle VERSION
Silmek için: /versionsil VERSION

Cevap: Girişte version Yasaklama ?
 

Çok teşekkür ederim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 14:15 -->-> Daha önceki mesaj 14:13 --

Bu koda ekle sil aç kapa olayı yapabilirmiyiz

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 14:18 -->-> Daha önceki mesaj 14:15 --

Yani ekran gelicek dialog şeklinde ben ordan eklicem tamam dicem gibi. sil butonu olucak kapat butonu olucak gibi

Cevap: Girişte version Yasaklama ?
 

Alıntı:

Xadd1 Nickli Üyeden Alıntı (Mesaj 1042004707) Çok teşekkür ederim. Bu koda ekle sil aç kapa olayı yapabilirmiyiz

PHP- Kodu:

---


menu * {
$iif(o isin $usermode,Version Koruması,$style(2) Version Koruması)
.Aç:.enable #versionkoruma
.Kapat:.disable #versionkoruma
}

#versionkoruma off
alias versionekle {
if $hfind(yasakli,$1-,1,W).data { echo -a Bu version zaten var. | return }
hadd -m mnick $calc($hget(yasakli,0).item + $r(999,000)) $1-
hsave yasakli yasak.aln
hload yasakli yasak.aln
echo -a Yasak version $qt($1-) eklendi.
}

alias versionsil {
if !$hfind(yasakli,$1-,1,W).data { echo -a Bu version zaten yok. | return }
hdel $hfind(yasakli,$1-,1,W).data
hsave yasakli yasak.aln
hload yasakli yasak.aln
echo -a Yasak version $qt($1-) silindi..
}

on 1:CTCPREPLY:*VERSION*: { 
if o isin $usermode {
  if $hfind(yasakli,$1-,1,W).data { gzline $nick : Yasak version girişi tespit edildi. | return }
}
}


#versionkoruma end

on *:start: {
hmake yasakli 1000
hload yasakli yasak.aln
} 


---

Bu şekilde olur. Menüyü kullanmak için oper olman gerek. Son kısımdaki "on *:start" kısmını bilerek dışarıda bıraktım, mirc açıldığında tabloyu yüklemesi gerek ki açtığında işlevsel olsun.

Cevap: Girişte version Yasaklama ?
 

tamam teşekkür ederim ilgin alakandan dolayı.

Cevap: Girişte version Yasaklama ?
 

Menüden kastın diyalog penceresiyse (ki öyleymiş) ona biraz daha vakit lazım, akşama doğru müsait olursam onu da eklerim.

Cevap: Girişte version Yasaklama ?
 

çok iyi olur ya sağolasın

Cevap: Girişte version Yasaklama ?
 

Yaptık bir iş tam olsun, diyalog pencereli haliyle kodun tamamı, bazı düzenlemeler de yaptım.

PHP- Kodu:

---

menu * {
$iif(o isin $usermode,Version Koruması,$style(2) Version Koruması)
.Aç:.enable #versionkoruma
.Kapat:.disable #versionkoruma
.Diyalog:.yasakv
}


alias versionekle {
if $hfind(yasakli,$1-,1,W).data { echo -a Bu version zaten var. | return }
hadd -m mnick $calc($hget(yasakli,0).item + $r(999,000)) $1-
hsave yasakli yasakli.aln
hload yasakli yasakli.aln
echo -a Yasak version $qt($1-) eklendi.
}

alias versionsil {
if !$hfind(yasakli,$1-,1,W).data { echo -a Bu version zaten yok. | return }
hdel $hfind(yasakli,$1-,1,W).data
hsave yasakli yasakli.aln
hload yasakli yasakli.aln
echo -a Yasak version $qt($1-) silindi..
}

on *:start: {
hmake yasakli 1000
hload yasakli yasakli.aln
} 



alias yasakliadd { 
  hadd -m yasakli $calc($hget(yasakli,0).item + $r(999,000)) $1-
  hsave yasakli yasakli.aln
  hload yasakli yasakli.aln
}

alias yasakv { dialog -m yasakvers yasakvers }
dialog yasakvers {
  title "Version Koruması"
  size -1 -1 292 210
  option pixels
  edit "", 2, 167 21 98 23, multi return
  button "Ekle", 3, 187 57 60 17, flat
  button "Sil", 4, 187 83 60 17, flat
  button "Tamam", 5, 186 112 60 17, flat ok
  list 1, 11 18 150 183, size
  icon 6, 187 140 32 32
  box "", 7, 5 6 274 202
}

on *:dialog:yasakvers:sclick:*: {
  if ($did = 4) {
    .hdel yasakli $hfind(yasakli,$did($dname,1).seltext,1,W).data 
    hsave yasakli yasakli.aln
    hload yasakli yasakli.aln
    vbdi $dname
  }
  if ($did = 3) { yasakliadd $did($dname,2) | vbdi $dname  }
}

alias vbdi dialog -x $1 $1 | dialog -m $1 $1
on *:dialog:yasakvers:init:0: {
  var %x = 1 
  while (%x <= $hget(yasakli,0).item) { 
    did -ac yasakvers 1 $hget(yasakli,%x).data 
    inc %x 
  }
}

#versionkoruma off
on 1:CTCPREPLY:*VERSION*: { 
if o isin $usermode {
  if $hfind(yasakli,$1-,1,W).data { gzline $nick : Yasak version girişi tespit edildi. | return }
}
}
#versionkoruma end 


---

Cevap: Girişte version Yasaklama ?
 

teşekkür ederim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 17:33 -->-> Daha önceki mesaj 16:46 --

öcelikle denedim ama aç olahı olmadı kapat olayı da.



sonra mircin açılışında



* /hmake: table 'yasakli' exists (line 25, version.mrc)


şöyle bi hata aldım ayrıca usta.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 17:47 -->-> Daha önceki mesaj 17:33 --

/hdel: insufficient parameters (line 55, version.mrc) bide bu hatayı veriyor usta

Cevap: Girişte version Yasaklama ?
 

Aynı tablo başka bir remote tarafından kullanılıyor olabilir. Sabah pc geçince bakayım. Mirc versiyonun kaç bu arada?

Cevap: Girişte version Yasaklama ?
 

-s parametresi bildirim için kullanılır onla alakalı sorun olacağını sanmıyorum.

1- Tablo oluşturma: /hmake -s <name> <N>
Buradaki -s parametresi, tabloyu oluşturduğunuza dair uyarı almak için kullanılır.


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


* /hmake: table 'yasakli' exists (line 25, version.mrc) - Burda tablonun zaten mevcut olduğunu söylüyor.


/hdel: insufficient parameters (line 55, version.mrc) - Yetersiz parametre büyük ihtimalle silmeye çalıştığın veri yok.


Ben bu şekilde anladım yanlışım olabilir.

Cevap: Girişte version Yasaklama ?
 

Kodu denedim, çalıştı, muhtemelen sendeki başka bir addon'da "yasakli" tablosu mevcut olduğundan işlem yapmamış. Kodu düzenleyerek tablo ismini değiştirdim ve #security kanalı kısmını ekledim. Ayrıca elle ekleme yapmayacağından (diyalog var) gereksiz 1-2 alias'ı kaldırdım. Diğer kodun tamamını silerek aşağıdaki şekilde eklemelisin;

PHP- Kodu:

---


menu * {
$iif(o isin $usermode,Version Koruması,$style(2) Version Koruması)
.Aç:.enable #versionkoruma
.Kapat:.disable #versionkoruma
.Diyalog:.yasakv
}

on *:start: {
hmake versyasak 1000
hload versyasak versyasak.aln
} 



alias versyasakadd { 
  hadd -m versyasak $calc($hget(versyasak,0).item + $r(999,000)) $1-
  hsave versyasak versyasak.aln
  hload versyasak versyasak.aln
}

alias yasakv { dialog -m yasakvers yasakvers }
dialog yasakvers {
  title "Version Koruması"
  size -1 -1 292 210
  option pixels
  edit "", 2, 167 21 98 23, multi return
  button "Ekle", 3, 187 57 60 17, flat
  button "Sil", 4, 187 83 60 17, flat
  button "Tamam", 5, 186 112 60 17, flat ok
  list 1, 11 18 150 183, size
  icon 6, 187 140 32 32
  box "", 7, 5 6 274 202
}

on *:dialog:yasakvers:sclick:*: {
  if ($did = 4) {
    .hdel versyasak $hfind(versyasak,$did($dname,1).seltext,1,W).data 
    hsave versyasak versyasak.aln
    hload versyasak versyasak.aln
    vbdi $dname
  }
  if ($did = 3) { versyasakadd $did($dname,2) | vbdi $dname  }
}

alias vbdi dialog -x $1 $1 | dialog -m $1 $1
on *:dialog:yasakvers:init:0: {
  var %x = 1 
  while (%x <= $hget(versyasak,0).item) { 
    did -ac yasakvers 1 $hget(versyasak,%x).data 
    inc %x 
  }
}

#versionkoruma off
on 1:CTCPREPLY:*VERSION*: { 
msg #security Sorgulanan Nick: $nick VERSION: $1-
if o isin $usermode {
  if $hfind(versyasak,$1-,1,W).data { gzline $nick : Yasak version girişi tespit edildi. | return }
}
}
#versionkoruma end 


---

Cevap: Girişte version Yasaklama ?
 

birileri burada kendine göre senaryo çizip yazıp yönetmişler tebrikler .

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:00 -->-> Daha önceki mesaj 18:16 --

Kodun yazarı The değil benim demişsin o paylaştıgın platformda ben 6 ay teknik adminlik yaptım forumunda sunucusundada 6 ay güvenlik ve help takım liderligi yaptım senin belirttigin tarihten önce o forumda paylaşımlarda bulundum kod olarak veya gerekse userlerine yardım olarak sunucunun asıl sahibi Spartacus nickli kişiydi sonradan orada paylaştıgım kodlamaların üstüne çöküp burada gelip 2 satırlık coder olmayan birinin bile 2 event 2 identifierla yazacagı birşey için gelip bana burda kod sahibi benim diye şekilden şekle girme benim yazdıgım kodlar bellidir az çok tanıyan bilen arkadaşlarımız var üzerine konmuş felan demişsin üzerine konacak birisi değiliz her paylaştıgım kodu biyerlerde yayınlamıyorum veya herhangi bir platformda burada gelip konmuş üstüne yatmış vs kelimelr kullanıyorsun 2 satırlık kodun neyinin üstüne yatayım ben sen gel bana şu lazım de ben sana günde 50 tanesini yazayım sana sonra sağda solda paylaş kod The`nin değil benim de onada izin veririm sana kıyagım olsun fakat gelipte burda bizim ismimiz üzerinden bizi karalamaya kalkma çok gelip merak edersen bu tarihlerden önce ekli olacak şekilde çok yerde kodlarım mevcut örnek soyle.net mirchelp kanalında tarihleriyle birlikte gelip görebilirsin her yazdıgımız kodun paylaşımını 5 dakka sonra çıkıp biyerlerde bas bas bagırmıyoruz bakın bunu biz yazdık şöyledir böyledir diye rica olursa istek olursa biryerde paylaşım yapıyoruz kimseye coderligimi ispatlamak gibi bir çabamda yok bilenler zaten bilir çamur atacagın kişiyi önce bi araştır anladınmı aslan parçası .

Kod sahibi yazan yere arkadaşın ismini yazabilirsiniz şahısa hediyem olsun 2 satırlık birşey için kendini bu durumlara sokma birdaha gel soyle.net de nickim her daim yazarım sana 3/5 bişey gelir paylaşırsın benim buralardan bi beklentim yok 3/5 eski dost hatrına giriyorum canımızı sıkmayın şurda .

Cevap: Girişte version Yasaklama ?
 

Konu amaç dışına çıktığından, Yanlış anlaşılma ve tartışmaya yer verilmemesi adına tarafımca kilitlenmistir.