Kod Hakkında
Kod Çalışmıyor Yardımlarınızı rıca ederim Kod:
alias joinall {
inc %kjall
sockopen $+(check_nick,%kjall)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
sockmark $+(check_nick,%kjall) $1 }
on *:sockopen:check_nick*:{
sockwrite -tn $sockname GET $+(/ip-address-locator.php?lookup=,$gettok($sock($sockname).mark,1,64)) HTTP/1.1
sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
sockwrite -tn $sockname Connection: keep-alive
sockwrite -tn $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -tn $sockname Content-Type: text/html
sockwrite -tn $sockname Set-Cookie: __cfduid=d84f6258ebb82430cfab20ac06a0f8b551538918639; expires=Mon, 07-Oct-19 13:23:59 GMT; path=/; domain=.ipqualityscore.com; HttpOnly
sockwrite -tn $sockname IPQ-Server: IPQ-0
sockwrite -tn $sockname Expect-CT: max-age=604800, report-uri="https://report-uri.cloudflare.com/cdn-cgi/beacon/expect-ct"
sockwrite -tn $sockname Server: cloudflare
sockwrite -tn $sockname CF-RAY: 4660af7b898d408e-HAM
sockwrite -tn $sockname $crlf
}
on *:sockread:check_nick*:{
var %jll | sockread %jll | tokenize 32 $left(%jll,107)
if *<H2>IP*Location*Finder*For*<br*/>*</H2>* iswm %jll {
set %blass 4NICK:2 $gettok($gettok($sock($sockname).mark,2,64),1,43) 4IP:2 $gettok($sock($sockname).mark,1,64) 4IDENT:2 $gettok($gettok($sock($sockname).mark,2,64),2,43) 4SEHIR2/4ULKE:2 $gettok($gettok($remove(%jll,from),2,40),1,41),$chr(32)
}
if $regex(%jll,/<i>ISP.+Provider:.+(.*)</b><br.+/i) {
msg #kontrol %blass 4ISP:2 $remove(%jll,<i>ISP Provider:</i> <b>,</b><br />)
m #kontrol Bu ip adresini yasaklamak icin4.ipyasakla2 $gettok($sock($sockname).mark,1,64) komutunu uygulayiniz.
}
}
on *:start: {
if !$isfile(yasakip.die) { write -c yasakip.die }
hmake yasakip | hload yasakip yasakip.die }
on *:text:*:#: {
if $chan = #kontrol {
if $regex($1,/[.!][İiı]pyasakla/i) {
if $hget(yasakip,$2) { msg # $2 ip adresi yasakli durumda. | return }
hadd -m yasakip $2 Ekleyen: $nick
msg # $2 ip adresi yasaklandi $nick
hsave yasakip yasakip.die
}
if $regex($1,/[.!][İiı]psil/i) {
if !$hget(yasakip,$2) { msg # $2 ip adresi yasakli durumda değil. | return }
hdel -w yasakip $2 *
msg # $2 ip adresi yasak listesinden silindi $nick
hsave yasakip yasakip.die
}
if $regex($1,/[.!]list/i) {
if $hget(yasakip,0).item == 0 { bmsg botran $3 Yasakli ip listesi bulunamadi. | return }
msg # 4Yasaklanmis ip adresleri listesi
var %> = 1 | while ($hget(yasakip, %>).item) {
msg # %> $+ ) IP:12 $v1 Ekleyen:4 $hget(yasakip, $v1) | inc %>
}
msg # 4Yasaklanmis ip adresleri listesi sonu
}
}
if $chan = #bilgi {
if $regex(cc,$1-,/(Client\sconnecting(.*)port\s(.*):\s(.*)\s\((.*)\@(.*)\))/Si) {
var %dick $regml(cc,4), %dident $regml(cc,5), %dip $regml(cc,6), %dport $regml(cc,3)
if $istok(7000 8000,%dport,32) { return }
if $hget(yasakip,%dip) { .sqline %dick 1h Girisiniz yasaklanmistir. | return }
joinall $+(%dip,@,%dick,+,%dident)
}
}
}
|
