IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Proxy koruması (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/537913-proxy-korumasi.html)

Kod:

alias dnsbl return opm.tornevall.org

;#########################################################

alias ts return $+($gettok($1,4,46),.,$gettok($1,3,46),.,$gettok($1,2,46),.,$gettok($1,1,46))

on *:SNOTICE:*ient con*:who +I $iif(port == $7,$9,$8)

raw 352:*:ptara $4 $6 

alias ptara set $+(%,ptt,+,$1) $ticks | set $+(%,ptn,+,$1) $2 | .dns $+($ts($1),.,$dnsbl)

alias -l dn %w = @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Monitor | if (!$window(%w)) window -en %w | echo %w $1- 
 

on *:DNS:{

  var %½ $iif($dns(0),$dns(1).addr,$dns(0).addr),%a $gettok(%½,5-,46),%b $ts($remove(%½,. $+ %a))),%c $ticks - $($+(%,ptt,+,%b),2)

  dn $iif($dns(0),(Proxy),(Clear)) Nick: $($+(%,ptn,+,%b),2) IP: %b  Time: %c $+ ms | $iif($dns(0),gzline $+(*@,%b) - Proxy.)

  unset $($+(%,pt,*,+,%b),1) 

}

Kodun en başındaki lookup adresinden verim alamazsanız; rbl.efnetrbl.org, cbl.abuseat.org adresleriyle değiştirip deneyebilirsiniz.

Cevap: Proxy koruması

peki o bahsettiğin 2 siteyide eklesen olurmu Paint

Cevap: Proxy koruması

Aslında hepsinde sorgulama yapılan şekilde yapıcaktım fakat mIRC bir adresten cevap gelmeden diğer adrese dns çekemiyor o yüzden çok uzun sürüyo 3 adresi ekleyip denemiştim 1 taramanın 15 saniye civarlarında sürdüğünü hatırlıyorum eğer IP adresi 3 dnsbl adresindede eklenmemişse o yüzden en mantıklısı tekli kullanmak.

Cevap: Proxy koruması

Peki kardeşim böyle verim almak için tek tek denemektense, daha verimli bir adres varmıydı? ben denedim 2 sinde iş yok biriside okadar sağlam değil.

Cevap: Proxy koruması

Alıntı:

Paint Nickli Üyeden Alıntı (Mesaj 1041317736)

Kod:

alias dnsbl return opm.tornevall.org

;#########################################################

alias ts return $+($gettok($1,4,46),.,$gettok($1,3,46),.,$gettok($1,2,46),.,$gettok($1,1,46))

on *:SNOTICE:*ient con*:who +I $iif(port == $7,$9,$8)

raw 352:*:ptara $4 $6 

alias ptara set $+(%,ptt,+,$1) $ticks | set $+(%,ptn,+,$1) $2 | .dns $+($ts($1),.,$dnsbl)

alias -l dn %w = @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Monitor | if (!$window(%w)) window -en %w | echo %w $1- 
 

on *:DNS:{

  var %½ $iif($dns(0),$dns(1).addr,$dns(0).addr),%a $gettok(%½,5-,46),%b $ts($remove(%½,. $+ %a))),%c $ticks - $($+(%,ptt,+,%b),2)

  dn $iif($dns(0),(Proxy),(Clear)) Nick: $($+(%,ptn,+,%b),2) IP: %b  Time: %c $+ ms | $iif($dns(0),gzline $+(*@,%b) - Proxy.)

  unset $($+(%,pt,*,+,%b),1) 

}

Kodun en başındaki lookup adresinden verim alamazsanız; rbl.efnetrbl.org, cbl.abuseat.org adresleriyle değiştirip deneyebilirsiniz.

Bu kodda şöyle bir hata aliyorum * Geçersiz format: $ (Satır 10, DNSBL.txt) yardımcı olabilir misini. İki farkli scriptte denedim. Aynı hatayı veriyor