13 Mayıs 2021, 12:44
|
#1
|
|
Giriş Yansıtma Remote Sorunu.
Merhabalar Değerli, IRCRehberi Kullanıcıları. Öncelikle Hepinize Mutlu Bayramlar diliyorum.
Bahsettiğim giriş yansıtma remotesınde belirtilen kanala bir müddet sonra yansıtmamaya başladı muhtemelen adresten kaynaklı bir sorun diye düşünüyorum bu konuda yardımınızı rica ediyorum sevgiler..
Kod
on ^*!:nick: {
if $regex($usermode,o) { set %tkp. [ $+ [ $newnick ] ] 1 | who +I $newnick }
}
on *:start: {
if $isfile(iptakip.63) { hmake iptakip | hload iptakip iptakip.63 }
}
#giriste on
;on *:snotice:*Client connecting on port*:who +I $9
on *:snotice:*: {
if $regex($1-,/Client connecting (on port|at)/Si) { who +I $token($token($1-,1,40),-1,32) }
elseif $regex($1-,/Sunucuya baglaniyor\.\.\. Baglanan\: (.+) \((.+)\@(.+)\) \- Port\: (.+)/Si) { who +I $regml(1) }
}
raw 352:*:var %:r $r(1000,99999) | sockopen -e $+(pro,%:r) www.ipaddresslocation.org 443 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias gtekrar { who +I $regml(1) }
on *:sockopen:pro*:{
sockwrite -nt $sockname GET $+(/locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host: www.ipaddresslocation.org
sockwrite -nt $sockname Connection: close
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:87.0) Gecko/20100101 Firefox/87.0
sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{
var %:pro
sockread %:pro
if $regex(u,%:pro,/IP Country\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Ülke $iif($htmlfree($regml(u,1)) == $null,Belirsiz,$htmlfree($regml(u,1))) }
if $regex(c,%:pro,/Town\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Sehir $iif($htmlfree($regml(c,1)) == $null,Belirsiz,$htmlfree($regml(c,1))) }
if $regex(i,%:pro,/ISP Provider\x3A\x20(.+)<hr>/Si) {
var %:isp $iif($htmlfree($regml(i,1)) == $null,Belirsiz,$htmlfree($regml(i,1)))
var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
msg #MersinLi 14,1 Nick:0 %:n 1... 14IP:0 %ip 1... 14Ülke:0 %ülke 1... 14Şehir:0 %sehir 1... 14ISP:0 %:isp 2 $iif($hget(iptakip,%ip),Eski Giriş Bulundu: $v1)
hadd -m iptakip %ip $addtok($hget(iptakip,%ip),%:n,32)
hsave iptakip iptakip.63
.hfree -sw %:n
sockclose $sockname
}
}
#giriste end
menu menubar {
+> IP GIRIS
..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on }
..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off }
..Durum < $replace($group(#giriste).status, off, Kapalı, on, Açık) >:.
}
menu nicklist {
NickKontrol: if $regex($usermode,o) { set %tkp. [ $+ [ $1 ] ] 1 | who +I $$1 }
}
________________
"Fark etmek acıydı ama gerekliydi."
|
|
|