Can sıkıntısı nelere kadir. Uzun zamandan beri Code yazmayan ve paylaşım yapmayan CoCoRiCo dan yıllar sonra harika bir proxy_tarama-koruması
Kod: Kodu kopyalamak için üzerine çift tıklayın!
;:yazar: CoCoRiCo
;Proxy tarama ve bilgilendirme scripti
on ^*:snotice:*: {
if (*client*connect*on*port* iswm $1-) {
tr $remove($gettok($10,2,64),$chr(40),$chr(41),$chr(64))
}
halt
}
alias po {
;portlar buraya
return 21 22 23 33 47 56 54 80 70 1046 1080 1182 1183 1184 1188 1214 1278 1279 1745 1795 2124 2172 2173 2174 2175 2301 3128 3124 3127 4480 5463 6667 6588 8080 8000 8001 8118 8888 8922 10102 26260 31337 44322
}
alias tr {
set %prx $ticks | .dns $1
set %ip $1 | var %pi = 1
while (%pi <= $gettok($po,0,32)) {
var %ki = $gettok($po,%pi,32)
sockopen $+(prx-,$md5($+($r(a,z),$r(1,999),$ticks,$r(A,Z)))) %ip %ki
inc %pi
}
echo 4Taranan portlar:3 $gettok($po,0,32) (Ad.) :2 $po
}
on *:sockopen:prx-*: {
if ($sockerr) { sockclose $sockname | return }
echo 2 $chr(32)4PORT: $sock($sockname).port 4TIP: $sock($sockname).type 4AÇIK\KAPALI: $portfree($sockerr) 4HATA\WS_Err: $sock($sockname).wserr 4MESAJ\WS_Msg: $sock($sockname).wsmsg
if ($portfree($sockerr)) && ($status(connected)) && (o isincs $usermode) {
;ofline denemeden sonra sil..?! ($status(connected)
gzline $+(*@,$sock($sockname).ip) Proxy yasaktır. 1D
}
.sockclose $sockname
}
on *:sockread:prx-*:{
if ($sockerr > 0) { echo :HATA: $sock($sockname).wserr | return }
; echo 4 -s :---> $sock($sockname).ip $sock($sockname).port
sockclose $sockname
}
on *:dns:{
if (%prx) {
var %di = $dns(0)
while (%di > 0) {
echo 2 $chr(32) 4DNS: $dns(%di) 4ADRES: $dns(%di).addr \ $dns(%di).ip
dec %di
}
unset %prx | unset %ip
halt
}
unset %prx | unset %ip
}
Oper olanlarda otomatik calısır giriş cıkısları gören ve G:line yetkisine sahip herkez kullanabilir. ;echo ları kapatarak bilgilerin ekrana cıkmasını engeleyebilirler . oper olmayanlar içinde komutla /tr 130.49.221.40 seklinde bilgi amaclı tarama sonucu görebilirler. alias po { kısmındaki yan yana dizilmiş portlar [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sitesindeki listeden proxy ye uygun baglantılara bakarak secildi. istenildigi taktirde bir boşluk bırakıp oradakilere benzer ekleme yapabilirler tarama sırası soldan saga seklinde , isterlerde ilk sıraya koyacagı portları öncelikli taratıp zamandan tasarruf edebilirler 1000 proxy lik bir listeden test ettim bir kac saniye sürmeden tümünü tespit etti bu yogun giriş olan serverlarda sorunsuz calısır demektir calısma mantıgı cok basittir proxy ler socketle giriş kurulabilir baglantılardır eger taranan portlara acıksa olumlu yanıt alınır ve kod bu yanıta bakarak calısır.. ( CoCoRiCo )
Teşekkürler CoCo
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.