DaDaS Nickli Üyeden Alýntý
(Mesaj 1042606714)
Kod:
alias _tr return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,þ,ı,ý,Åž,þ,ÄŸ,ð,Ãœ,ü,Äž,ð,$chr(39),`)
alias hfr { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:start: { .hmake ip | .hload ip ip.ymc }
on *:sockopen:ymcpro*:{
sockwrite -nt $sockname GET $+(/api/nerden/bilgi.php?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Cache-Control: max-age=0
sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7
sockwrite -nt $sockname $crlf
}
on *:sockread:ymcpro*:{
var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden
;echo -s %:nerden
if Country isin %:nerden && Code !isin %:nerden { .hadd -sm $token($sock($sockname).mark,2,191) Ulke $token($hfr(%:nerden),2,58) }
if City isin %:nerden { .hadd -sm $token($sock($sockname).mark,2,191) Sehir $token($hfr(%:nerden),2,58) }
if ISP isin %:nerden {
var %:isp $_tr($token($hfr(%:nerden),2,58))
var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $_tr($hget(%:n,Ulke)), %sehir $_tr($hget(%:n,Sehir))
if IRCWeb = $token($sock($sockname).mark,3,191) { return }
if %nrdn {
msg %nrdn 4NICK:12 %:n 4IP:12 %ip 4ULKE1/4SEHIR:12 %ülke 1-12 %sehir 4 ISP:12 %:isp
return
}
msg #kontrol 4NICK:12 %:n 4IP:12 %ip 4IDENT:12 $token($sock($sockname).mark,3,191) 4ULKE1/4SEHIR:12 %ülke 1-12 %sehir 4 ISP:12 %:isp
msg #kontrol Bu ip adresini yasaklamak icin4 .ip ekle2 %ip komutunu uygulayiniz.
;ip kontrol
var %u = 1 | while %u <= $hget(ip,0).item {
if $hget(ip,%u).item iswm $+(*@,%ip) {
msg #kontrol %:n nicki4 %ip 1yasaklý adresi ile giriþ tespit edilmiþtir ve uzaklaþtýrýldý.2 Mask:4 $hget(ip,%u).item
zline $+(*@,%ip) 0 4Yasak Ip Giriþi Tespit Edilmiþtir.
}
inc %u
}
sockclose $sockname
}
}
raw 328:*: {
var %:r $r(1000,99999) | sockopen $+(ymcpro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark $+(ymcpro,%:r) $+($6,¿,$2)
}
on *:text:*:*: {
if $regex($1,/^([.!]nerden)/Si) {
if !$2 { msg $chan Lütfen !nerden IP/Nick olarak belirtiniz. | return }
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) {
set -u3 %nrdn #
var %:r $r(1000,99999) | sockopen $+(ymcpro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark $+(ymcpro,%:r) $+($2,¿,Bilinmiyor)
}
else { set -u3 %nrdn # | whois $2 }
}
if $chan = #kontrol {
if $regex($1,/^([.!][Ýi]p)/Si) {
if !$2 { msg # lütfen !ip ekle sil list þeklinde kullanýnýz. | return }
if $2 = ekle && $3 {
if $hget(ip,$3) { msg # $3 itemi zaten Ýp listesinde bulunuyor. | return }
.hadd -sm ip $3 $nick | hsave ip ip.ymc
msg # 4 $3 1itemi Ýp listesine eklendi.
}
elseif $2 = sil && $3 {
if !$hget(ip,$3) { msg # $3 itemi zaten Ýp listesinde bulunmuyor. | return }
.hdel ip $3 | hsave ip ip.ymc
msg # 4 $3 1itemi Ýp listesinden silindi.
}
elseif $2 = list {
if $hget(ip,0).item = 0 || !$hget(ip,0).item { msg # ip listesi boþ. | return }
msg # ** Ýp Listesi **
msg #
var %i = 1 | while %i <= $hget(ip,0).item {
msg # 4 $hget(ip,%i).item 1Ekleyen -->2 $hget(ip,%i).data
inc %i
}
msg #
msg # ** Ýp Listesi Sonu **
}
}
}
if $chan = #bilgi {
if (Client connecting on port isin $1-) {
var %:r $r(1000,99999) | sockopen $+(ymcpro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark $+(ymcpro,%:r) $+($left($token($11,2,64),-1),¿,$10,¿,$right($token($11,1,64),-1))
}
}
}
@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Saðolsun Yardýmcý Oldu. Teþekkür ederim Hocam
|
