| Paint | 03 Mayıs 2013 00:56 |
IP Proxy kontrol (Proxy checker)
Sorgulattınız IP'nın proxy olup olmadığını görmenizi sağlayacak bir kod.
Tarama süresi minumum 100ms maksimum ise 15 saniye sürer. Genelde IP proxy ise tarama süresi 100ms ile 2 saniye arasında sürer.
1 saat içinde maksimum 20 tarama yapabilirsiniz. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod:
alias proxytara $iif($dialog(proxytara),echo -a Dialog zaten açık.,dialog -m proxytara proxytara)
dialog proxytara {
title "Proxy tarayıcı"
size -1 -1 140 52
option dbu
edit "", 1, 22 13 103 10
text "IP:", 2, 11 14 11 8
button "Tara", 4, 47 32 48 12, default
edit "", 5, 11 61 120 30, read multi autohs
button "Yeni tarama", 6, 52 94 38 12
}
on *:dialog:proxytara:sclick:*:{
if ($did == 4) { if !$regex($did($dname,1),^([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})$) { echo -a Geçerli bir ip girin. | halt }
did -ra $dname 4 Taranıyor | did -b proxytara 1,4 | var %a $dialog($dname).h | set %tpprxy $did($dname,1) | sockclose praratx | sockopen ptaratx irc.feelircd.tk 7970
while %a <= 220 { dialog -s $dname $dialog($dname).x $dialog($dname).y 286 %a | inc %a } }
if ($did == 6) { did -ra $dname 4 Tara | did -e proxytara 1,4 | var %a $dialog($dname).h | did -r $dname 5,1
while %a >= 100 { dialog -s $dname $dialog($dname).x $dialog($dname).y 286 %a | dec %a } } }
on *:sockopen:ptaratx:{ sockwrite -tn $sockname IP: %tpprxy }
on *:sockread:ptaratx:{ var %a | sockread %a | tokenize 32 %a
if $1 == detected { did -ra proxytara 5 $str(-,25) $+ Sonuç $+ $str(-,25) $crlf Taranan IP: $2 $crlf Durum: PROXY! $crlf Süre: $3 | did -ra proxytara 4 Tarandı }
if $1 == clear { did -ra proxytara 5 $str(-,25) $+ Sonuç $+ $str(-,25) $crlf Taranan IP: $2 $crlf Durum: Temiz! $crlf Süre: $3 }
if $1 == limit { did -ra proxytara 5 1 saat içerisinde maksimum tarama limitini doldurunuz. $crlf $2- sonra tarama yapabilirsiniz. } }
/proxytara komutu ile dialogu çalıştırabilirsiniz. | 