acik porta version cekme kodu - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

alphae · 24 Kasım 2010, 12:41

simdi arkadaslar altaki kod bu acik porta version cekiyor sorunum su mirc girince version eschatin olmasi gerekirken beni atmiyor mirc mirc version cekior ama cevap sunu diyor eschate giriğnce sadece birtane veriyor altakinden mesela socket botu girince
direk gline atiyior ben istiyorum ki bu portan kim baglanirsa baglansin mirc giriyorsa eschat version cevabi vermiyorsa gline atsin yardimci olurmusunuz ?
botun özeli vs acik conf
loadmodule ctcp
set ctcp-mode 0 ekledim karmasik birsey bu anlamadim gercekten yardimci olursaniz sevinirim

Kontrol CTCP mesajlarini kabul etmiyor.
Kontrol CTCP mesajlarini kabul etmiyor.
Kontrol CTCP mesajlarini kabul etmiyor.

###############
# Control TCL #
###############
# Log kanalini belirtiniz.
set vrsy(knal) "#kontrol"
# Portu belirtiniz.
set vrsy(port) "6681"
# Zline suresini belirtiniz.
# 1h = 1 saat.
# 30m = 30 dakika.
# 30s = 30 saniye.
set vrsy(sure) "1m"
# Zline ile uzaklastirma sebebini belirtiniz.
set vrsy(rasn) "Lutfen 1 dakika sonra Web adresinden tekrar giris yapiniz."
# Cevap vermeyen client programlarini ne kadar sure beklesin ? (Saniye cinsinden.)
set vrsy(tmrs) "10"
# Sunucuya girenler hakkinda log kanal'ina bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lcon) "1"
# Log kanalina versiyon korumasindan gecemeyenler hakkinda bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lmsg) "1"
# Web portundan giriste kullaniciya versiyon kontrolunden basarili bir sekilde gectigine dair notice atilmasi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(unot) "1"
# Log kanalina versiyon korumasindan basariyla gecenler hakkinda bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lcok) "1"
# Log kanalina cevap vermeyen client baglantilarini uzaklastirdigina dair bilgi vermesi icin "1" yapiniz. Kapatmak icin: "0" yapiniz.
set vrsy(lnvr) "1"
#################
# ELLEME CISS ! #
#################
bind raw * notice connect:user
proc connect:user {from keyword arg} {
global botnick vrsy appver appfin
if {[string match -nocase "*Client connecting*" $arg]} {
set nick [lindex $arg 9]
set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
set appver([string tolower $nick]) 1
set appfin([string tolower $nick]) 1
if {$port == $vrsy(port)} {
if {$vrsy(lcon) == "0"} {
bind ctcr - VERSION applet:version
bind ctcr - FINGER applet:finger
putquick "PRIVMSG $nick :\1FINGER\1"
putquick "PRIVMSG $nick :\1VERSION\1"
utimer $vrsy(tmrs)[list applet:no:version $nick]
utimer $vrsy(tmrs)[list applet:no:finger $nick]
}
if {$vrsy(lcon) == "1"} {
bind ctcr - VERSION applet:version
bind ctcr - FINGER applet:finger
putquick "PRIVMSG $nick :\1FINGER\1"
putquick "PRIVMSG $nick :\1VERSION\1"
putquick "PRIVMSG $vrsy(knal) :*** \002CONNECT\002 - \002$nick ($ident@$host)\002 su anda WEB portundan sunucuya giris yapti, client program kontrolu yapiliyor."
utimer $vrsy(tmrs)[list applet:no:version $nick]
utimer $vrsy(tmrs)[list applet:no:finger $nick]
}
}
if {[string match -nocase "*changed his/her nickname*" $arg]} {
set nick [lindex $arg 4]
set newnick [lindex $arg 11]
if {![info exists appver([string tolower $nick])]} {
set appver([string tolower $newnick]) 1
utimer $vrsy(tmrs)[list applet:no:version $newnick]
unset appver([string tolower $nick])
}
}
}
}
proc applet:version {nick uhost handle {dest ""} keyword arg} {
global botnick vrsy appver
if {$vrsy(lmsg) == "0" && $vrsy(unot) == "0" && $vrsy(lcok) == "0"} {
if {![string match -nocase "*esChat*v3*3*2006*" $arg]} {
putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
unset appver([string tolower $nick])
unbind ctcr - VERSION applet:version
} else {
unbind ctcr - VERSION applet:version
}
}
if {$vrsy(lmsg) == "1" && $vrsy(unot) == "0" && $vrsy(lcok) == "0"} {
if {![string match -nocase "*esChat*v3*3*2006*" $arg]} {
putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 WEB portundan mIRC vb. client programi ile giris yaptigi icin sunucudan uzaklastirildi."
unset appver([string tolower $nick])
unbind ctcr - VERSION applet:version
} else {
unbind ctcr - VERSION applet:version
}
}
if {$vrsy(lmsg) == "1" && $vrsy(unot) == "1" && $vrsy(lcok) == "0"} {
if {![string match -nocase "*esChat*v3*3*2006*" $arg]} {
putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 WEB portundan mIRC vb. client programi ile giris yaptigi icin sunucudan uzaklastirildi."
unset appver([string tolower $nick])
unbind ctcr - VERSION applet:version
} else {
putquick "NOTICE $nick :*** Versiyon kontrolunden basarili bir sekilde gectiniz, keyifli sohbetler dileriz."
unbind ctcr - VERSION applet:version
}
}
if {$vrsy(lmsg) == "1" && $vrsy(unot) == "1" && $vrsy(lcok) == "1"} {
if {![string match -nocase "*esChat*v3*3*2006*" $arg]} {
putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 WEB portundan mIRC vb. client programi ile giris yaptigi icin sunucudan uzaklastirildi."
unset appver([string tolower $nick])
unbind ctcr - VERSION applet:version
} else {
putquick "NOTICE $nick :*** Versiyon kontrolunden basarili bir sekilde gectiniz, keyifli sohbetler dileriz."
putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION korumasindan basariyla gecti."
unbind ctcr - VERSION applet:version
}
}
if {$vrsy(lmsg) == "0" && $vrsy(unot) == "1" && $vrsy(lcok) == "1"} {
if {![string match -nocase "*esChat*v3*3*2006*" $arg]} {
putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
unset appver([string tolower $nick])
unbind ctcr - VERSION applet:version
} else {
putquick "NOTICE $nick :*** Versiyon kontrolunden basarili bir sekilde gectiniz, keyifli sohbetler dileriz."
putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION korumasindan basariyla gecti."
unbind ctcr - VERSION applet:version
}
}
if {$vrsy(lmsg) == "0" && $vrsy(unot) == "0" && $vrsy(lcok) == "1"} {
if {![string match -nocase "*esChat*v3*3*2006*" $arg]} {
putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
unset appver([string tolower $nick])
unbind ctcr - VERSION applet:version
} else {
putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION korumasindan basariyla gecti."
unbind ctcr - VERSION applet:version
}
}
if {$vrsy(lmsg) == "1" && $vrsy(unot) == "0" && $vrsy(lcok) == "1"} {
if {![string match -nocase "*esChat*v3*3*2006*" $arg]} {
putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 WEB portundan mIRC vb. client programi ile giris yaptigi icin sunucudan uzaklastirildi."
unset appver([string tolower $nick])
unbind ctcr - VERSION applet:version
} else {
putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION korumasindan basariyla gecti."
unbind ctcr - VERSION applet:version
}
}
}
proc applet:no:version {nick} {
global botnick appver
if {[info exists appver([string tolower $nick])]} {
if {$vrsy(lnvr) == "0"} {
putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
unset appver([string tolower $nick])
}
if {$vrsy(lnvr) == "1"} {
putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
putquick "PRIVMSG $vrsy(knal) :*** \002VERSION\002 - \002$nick\002 VERSION cevabi vermedigi icin sunucudan uzaklastirildi."
unset appver([string tolower $nick])
}
}
}
proc applet:finger {nick uhost handle {dest ""} keyword arg} {
global botnick appfin
if {[string match -nocase "*" $arg]} {
putquick "GZLINE $nick $vrsy(sure) $vrsy(rasn)"
unset appfin([string tolower $nick])
unbind ctcr - FINGER applet:finger
} else {
unset appfin([string tolower $nick])
unbind ctcr - FINGER applet:finger
}
}
################################
putlog "TCL basariyla yuklendi."
putlog "control.tcl by Namesis."
################################

alphae · 25 Kasım 2010, 16:47

cevap verecek bir allahin kulu yokmu binlerce baslik actik orta cevap veren bir kisi yok bu nasil istir. anlamadim yardimlasmak bitimis artik
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

CLubber · 26 Kasım 2010, 21:41

Bu Sorun Hakkında O kadar fazla soru soruyorsun ve başlık açıyorsun ki ne dediğini anlamıyoruz.

alphae · 26 Kasım 2010, 22:37

yukardaki kod ortada hatali kod sanirim hatayida yazdim /eggdrop -nm kontrol.conf calistirdigimda aldigim hata timer sayisi her giren userde sayi degisiyor rtimer3 4 die gidiyor kod orda hata nedir?

[12:04] Tcl error in script for 'timer1':
[12:04] can't read "vrsy(lnvr)": no such variable
[12:04] Tcl error in script for 'timer2':
[12:04] invalid command name "applet:no:finger"

CLubber · 27 Kasım 2010, 17:08

timer1 değil timer 1 olması gerek. boşluk vardır arada

alphae · 27 Kasım 2010, 20:41

hocam koda baktinizmi kota timer die birsey varmi ?
hata mesaji timer degil neyse sordugum soruyu gerci cektim...kod bakmak gerekiyor aciklama yapmisim timer die bir degisken yok neyse..

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
acik yardim giris kodu uygulamasında ircservices sorunu	hickimse	Unreal IRCd	0	12 Şubat 2011 11:25
Porta Version Korumasi	ErKaNs	Unreal IRCd	1	24 Ağustos 2010 18:19
Scripte Resim Çekme Kodu Eklemek	Adrenaline	mIRC Scripting Sorunları	9	13 Mart 2010 01:37

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.