| Feragat | 24 Nisan 2013 23:43 |
Cevap: istedigim bir siteden proxy çekme
Alıntı:
XDie Nickli Üyeden Alıntı
(Mesaj 1041298099)
2.135.237.178:9090
195.218.199.208:8080
109.224.7.171:8080
202.131.242.236:3128
82.114.92.33:8080
89.218.0.210:9090
187.65.80.197:8080
boyle kaydediyor biliyorsunuz hocam.. ve kod direk çalışıyormu? denedinizmi.. portları ile beraber kaydettigi icin sorun çıkmaz degilmi?
| Toprak ın hazırladığı pek çok siteden IP çeken kod gerçekten çok güzel ve az önce denedim 5000 civarı IP çekiyor. IP'leri portları olmadan şu şekilde de çekebilirsin. Kod:
on *:start:timeripal 0 10800 ipal
alias ipal { .remove proxy.txt | sockclose ipal | sockopen ipal slyhold.com 80 }
on *:sockopen:ipal:{ var %:ipal sockwrite -n $sockname | %:ipal GET /proxy_any_any.txt HTTP/1.1 | %:ipal Host: slyhold.com | %:ipal $crlf }
on *:sockread:ipal:{ var %ipal | sockread %ipal | .tokenize 32 %ipal | if $regex(ip1,%ipal,/^((\d+\.\d+\.\d+\.\d+)[\72]\d+$)/i) { if !$read(proxy.txt,w,$+(*,$regml(ip1,2),*)) { write proxy.txt $regml(ip1,2) } } }
on *:sockclose:ipal:{ sockclose ipal1 | sockopen ipal1 dan.me.uk 80 }
on *:sockopen:ipal1:{ var %:ipal1 sockwrite -n $sockname | %:ipal1 GET /torlist HTTP/1.1 | %:ipal1 Host: dan.me.uk | %:ipal1 $crlf }
on *:sockread:ipal1:{ var %ipal1 | sockread %ipal1 | .tokenize 32 %ipal1 | if $regex(ip2,%ipal1,/^((\d+\.\d+\.\d+\.\d+)[\72]\d+$)/i) { if !$read(proxy.txt,w,$+(*,$regml(ip2,2),*)) { write proxy.txt $regml(ip2,2) } } }
on *:sockclose:ipal1:{ sockclose ipal2 | sockopen ipal2 multiproxy.org 80 }
on *:sockopen:ipal2:{ var %:ipal2 sockwrite -n $sockname | %:ipal2 GET /txt_all/proxy.txt HTTP/1.1 | %:ipal2 Host: multiproxy.org | %:ipal2 $crlf }
on *:sockread:ipal2:{ var %ipal2 | sockread %ipal2 | .tokenize 32 %ipal2 | if $regex(ip3,%ipal2,/^((\d+\.\d+\.\d+\.\d+)[\72]\d+$)/i) { if !$read(proxy.txt,w,$+(*,$regml(ip3,2),*)) { write proxy.txt $regml(ip3,2) } } }
on *:sockclose:ipal2:{ sockclose ipal3 | sockopen ipal3 tubeincreaser.com 80 }
on *:sockopen:ipal3:{ var %:ipal3 sockwrite -n $sockname | %:ipal3 GET /proxylist.txt HTTP/1.1 | %:ipal3 Host: tubeincreaser.com | %:ipal3 $crlf }
on *:sockread:ipal3:{ var %ipal3 | sockread %ipal3 | .tokenize 32 %ipal3 | if $regex(ip4,%ipal3,/^((\d+\.\d+\.\d+\.\d+)[\72]\d+$)/i) { if !$read(proxy.txt,w,$+(*,$regml(ip4,2),*)) { write proxy.txt $regml(ip4,2) } } }
on *:sockclose:ipal3:{ echo -a Proxy list güncellendi4 $lines(proxy.txt) ip mevcut. }
on *:SNOTICE:*Client connecting*:if $read(proxy.txt,w,$token($gettok($10,2,64),1,41)) { gzline $+(*@,$token($gettok($10,2,64),1,41)) +1h Proxy Yasak! }
|
