IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   istedigim bir siteden proxy çekme (https://www.ircforumlari.net/mirc-scripting-sorunlari/528680-istedigim-bir-siteden-proxy-cekme.html)

XDie 21 Nisan 2013 22:54
istedigim bir siteden proxy çekme
 
Merhabalar. Ben Şöyle Bir Koda Çok ihtiyacım var eminimki bunu yapabilcek Coder Arkadaşlarımız Vardır..

İrc Sunucusunda Adminim.. Benim İstedigim Bir Yerdeki Proxyleri Güncelleyip Çekmesini isteyecem Mümkünmü Bu ACABA

Ve ordaki iplere oto proxy.txt metin belgesine kaydetmesini isteyecegim..

diğelim aaa.com sitesinin

aa.com/proxy/
aa.com/proxy/1
aa.com/proxy/2

buradaki ipleri güncel cekmesini saglamak istiyorum

hayLaz 21 Nisan 2013 23:23
Cevap: istedigim bir siteden proxy çekme
 
Kod:
on *:connect:set %serverprox $server | window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | .Remove Proxy.txt | .window -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | .titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] List | sockopen Firefox [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 alias proxyler set %serverprox $server | window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | .Remove Proxy.txt | .window -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | .titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] List | sockopen Firefox [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80  on *:sockopen:Firefox:{  sockwrite -n $sockname GET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] HTTP/1.1 sockwrite -n $sockname Host: localhost sockwrite -n $sockname $crlf timerprint 1 3 proxy_yaz set %updated.proxy $date }  on *:sockread:Firefox: sockread -f %Firefox | write_Proxy.txt %Firefox  alias write_Proxy.txt { if $1 == HTTP/1.1 goto end if $1 == Date: goto end if $1 == Server: goto end if $1 == Last-Modified: goto end if $1 == ETag: goto end if $1 == Accept-Ranges: goto end if $1 == Content-Length: goto end if $1 == Content-Type: goto end write Proxy.txt $1- :end } alias proxy_yaz { window -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] List | set %print.out $lines(proxy.txt) | set %printing 1 :print if (%print.out == %printing) { goto end }  aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $read(proxy.txt , %printing) | inc %printing | goto print  :end } menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] { dclick: Set %proxy.click $read(proxy.txt, $1) | Proxy.con $?*!="Tekrar Bağlanılsın Mı? Seçtiğiniz Proxy Adresi: $read(proxy.txt, $1) " Yenile:proxyler }  alias Proxy.con { if ($1 == $false) { echo -s Bağlantı iptal edildi.. | goto end } echo 2 -s %serverprox 'a Bağlanmak İçin Kullanılan Proxy : $replace(%proxy.click , : , $chr(32) ) | firewall on $replace(%proxy.click , : , $chr(32) ) | Echo -s $server Serverine Bağlanırken Kullanılan Proxy : $replace(%proxy.click , : , $chr(32) ) | server %serverprox :end } alias Proxywin { if $1 == $null proxy_yaz if $1 == minimized Window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | proxy_yaz }
istediğin böle bişi sanırım

Toprak 21 Nisan 2013 23:32
Cevap: istedigim bir siteden proxy çekme
 
Siteyi verirseniz yardımcı olabilirim yada bendeki kodu buyrun;

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 (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { if !$read(proxy.txt,w,$+(*,$token(%ipal,1,58),*)) { write proxy.txt %ipal } } }
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 (*.*.*.* iswm %ipal1) && (*a* !iswm %ipal1) { if !$read(proxy.txt,w,$+(*,$token(%ipal1,1,58),*)) { write proxy.txt %ipal1 } } }
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 (*.*.*.* iswm %ipal2) && (*a* !iswm %ipal2) { if !$read(proxy.txt,w,$+(*,$token(%ipal2,1,58),*)) { write proxy.txt %ipal2 } } }
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 (*.*.*.* iswm %ipal3) && (*a* !iswm %ipal3) { if !$read(proxy.txt,w,$+(*,$token(%ipal3,1,58),*)) { write proxy.txt %ipal3 } } }
on *:sockclose:ipal3:{ echo -a Proxy list güncellendi4 $lines(proxy.txt) ip mevcut. }
3 saat'de bir günceller tabi 1 dakika filan mirc'ini kasacakdır =)

XDie 21 Nisan 2013 23:51
Cevap: istedigim bir siteden proxy çekme
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

gibi sitelerden

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:51 -->-> Daha önceki mesaj 23:49 --

Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041297721)
Siteyi verirseniz yardımcı olabilirim yada bendeki kodu buyrun;

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 (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { if !$read(proxy.txt,w,$+(*,$token(%ipal,1,58),*)) { write proxy.txt %ipal } } }
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 (*.*.*.* iswm %ipal1) && (*a* !iswm %ipal1) { if !$read(proxy.txt,w,$+(*,$token(%ipal1,1,58),*)) { write proxy.txt %ipal1 } } }
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 (*.*.*.* iswm %ipal2) && (*a* !iswm %ipal2) { if !$read(proxy.txt,w,$+(*,$token(%ipal2,1,58),*)) { write proxy.txt %ipal2 } } }
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 (*.*.*.* iswm %ipal3) && (*a* !iswm %ipal3) { if !$read(proxy.txt,w,$+(*,$token(%ipal3,1,58),*)) { write proxy.txt %ipal3 } } }
on *:sockclose:ipal3:{ echo -a Proxy list güncellendi4 $lines(proxy.txt) ip mevcut. }
3 saat'de bir günceller tabi 1 dakika filan mirc'ini kasacakdır =)

bu kodu ekledigimizde direk gzline ekliyormu hocam yoksa başka işlem yapacazmi

XDie 24 Nisan 2013 02:36
Cevap: istedigim bir siteden proxy çekme
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041297721)
Siteyi verirseniz yardımcı olabilirim yada bendeki kodu buyrun;

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 (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { if !$read(proxy.txt,w,$+(*,$token(%ipal,1,58),*)) { write proxy.txt %ipal } } }
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 (*.*.*.* iswm %ipal1) && (*a* !iswm %ipal1) { if !$read(proxy.txt,w,$+(*,$token(%ipal1,1,58),*)) { write proxy.txt %ipal1 } } }
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 (*.*.*.* iswm %ipal2) && (*a* !iswm %ipal2) { if !$read(proxy.txt,w,$+(*,$token(%ipal2,1,58),*)) { write proxy.txt %ipal2 } } }
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 (*.*.*.* iswm %ipal3) && (*a* !iswm %ipal3) { if !$read(proxy.txt,w,$+(*,$token(%ipal3,1,58),*)) { write proxy.txt %ipal3 } } }
on *:sockclose:ipal3:{ echo -a Proxy list güncellendi4 $lines(proxy.txt) ip mevcut. }
3 saat'de bir günceller tabi 1 dakika filan mirc'ini kasacakdır =)
Tamam Proxyleri Çekiyor Elinize Sağlık Ama Bu Çekilen İpler

123.123.123:8080
111.111.111:3128

portu ile beraber çekiyor. ve proxy.txt e atiyor ama bu atilan iplere o gzline nasil eklicez ve portu ile beraber ekledigi için nasıl işleme koyacak şekilde yapacaz.

By_ATMACA 24 Nisan 2013 11:14
Cevap: istedigim bir siteden proxy çekme
 
Bu Şekilde Dener misin .

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 (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { if !$read(proxy.txt,w,$+(*,$token(%ipal,1,58),*)) { write proxy.txt $token(%ipal,1,58) } } }
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 (*.*.*.* iswm %ipal1) && (*a* !iswm %ipal1) { if !$read(proxy.txt,w,$+(*,$token(%ipal1,1,58),*)) { write proxy.txt $token(%ipal1,1,58) } } }
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 (*.*.*.* iswm %ipal2) && (*a* !iswm %ipal2) { if !$read(proxy.txt,w,$+(*,$token(%ipal2,1,58),*)) { write proxy.txt $token(%ipal2,1,58) } } }
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 (*.*.*.* iswm %ipal3) && (*a* !iswm %ipal3) { if !$read(proxy.txt,w,$+(*,$token(%ipal3,1,58),*)) { write proxy.txt $token(%ipal3,1,58) } } }
on *:sockclose:ipal3:{ echo -a Proxy list güncellendi4 $lines(proxy.txt) ip mevcut. }
on *:SNOTICE:*Client connecting*:who +I $9
raw 352:*:if $read(proxy.txt,w,$4) { gzline $+(*@,$4) : 1IP adresinizde 4( PROXY ) 1girixi tespit edilmistir. $date $time $+([,IRCProxy,]) $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor),window -neg1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor,echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor ( $+ $time $+ ) 4 $4 2 Proxy Girişi) }

XDie 24 Nisan 2013 13:46
Cevap: istedigim bir siteden proxy çekme
 
Alıntı:
Security Nickli Üyeden Alıntı (Mesaj 1041298032)
Bu Şekilde Dener misin .

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 (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { if !$read(proxy.txt,w,$+(*,$token(%ipal,1,58),*)) { write proxy.txt $token(%ipal,1,58) } } }
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 (*.*.*.* iswm %ipal1) && (*a* !iswm %ipal1) { if !$read(proxy.txt,w,$+(*,$token(%ipal1,1,58),*)) { write proxy.txt $token(%ipal1,1,58) } } }
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 (*.*.*.* iswm %ipal2) && (*a* !iswm %ipal2) { if !$read(proxy.txt,w,$+(*,$token(%ipal2,1,58),*)) { write proxy.txt $token(%ipal2,1,58) } } }
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 (*.*.*.* iswm %ipal3) && (*a* !iswm %ipal3) { if !$read(proxy.txt,w,$+(*,$token(%ipal3,1,58),*)) { write proxy.txt $token(%ipal3,1,58) } } }
on *:sockclose:ipal3:{ echo -a Proxy list güncellendi4 $lines(proxy.txt) ip mevcut. }
on *:SNOTICE:*Client connecting*:who +I $9
raw 352:*:if $read(proxy.txt,w,$4) { gzline $+(*@,$4) : 1IP adresinizde 4( PROXY ) 1girixi tespit edilmistir. $date $time $+([,IRCProxy,]) $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor),window -neg1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor,echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor ( $+ $time $+ ) 4 $4 2 Proxy Girişi) }
hocam bakın

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

bu şekilde ekliyor sizin verdiginizde bu şekilde umarım anlatabilmişimdir. denemedim ama insallah calisir. siz denediyseniz lütfen bilgilendirirmisiniz

ve Who Çekmesini İstemiyorum

*** Notice -- Client Şeklinde Görüp Atmasini istiyorum

Toprak 24 Nisan 2013 14:27
Cevap: istedigim bir siteden proxy çekme
 
Bazı ip'ler(proxy) şu sekilde gözükür;
Kod:
[14:18] -irc.mirctr.org- *** Notice -- Client connecting on port 6667: AAlp_ogretmen (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.dyn.beotel.net) [clients]
Yani who cekmesi gercek ip'i alması için'dir.

XDie 24 Nisan 2013 14:55
Cevap: istedigim bir siteden proxy çekme
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041298067)
Bazı ip'ler(proxy) şu sekilde gözükür;
Kod:
[14:18] -irc.mirctr.org- *** Notice -- Client connecting on port 6667: AAlp_ogretmen (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.dyn.beotel.net) [clients]
Yani who cekmesi gercek ip'i alması için'dir.
Who çekesiye kadar script hem kasıyor hemde adam işini görmüş oluyor bulundugum sunucu ufak çaplı bir yer degil. onun icin Who cekmeden atmasini istiyorum. ve ÇEKİLEN İPLER PORTLARI İLE BERABER ÇEKİYOR Bunuda dikkate alarak bir kod olusturmanız mümkünmü

Toprak 24 Nisan 2013 17:51
Cevap: istedigim bir siteden proxy çekme
 
Alıntı:
Security Nickli Üyeden Alıntı (Mesaj 1041298032)
Bu Şekilde Dener misin .

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 (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { if !$read(proxy.txt,w,$+(*,$token(%ipal,1,58),*)) { write proxy.txt $token(%ipal,1,58) } } }
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 (*.*.*.* iswm %ipal1) && (*a* !iswm %ipal1) { if !$read(proxy.txt,w,$+(*,$token(%ipal1,1,58),*)) { write proxy.txt $token(%ipal1,1,58) } } }
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 (*.*.*.* iswm %ipal2) && (*a* !iswm %ipal2) { if !$read(proxy.txt,w,$+(*,$token(%ipal2,1,58),*)) { write proxy.txt $token(%ipal2,1,58) } } }
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 (*.*.*.* iswm %ipal3) && (*a* !iswm %ipal3) { if !$read(proxy.txt,w,$+(*,$token(%ipal3,1,58),*)) { write proxy.txt $token(%ipal3,1,58) } } }
on *:sockclose:ipal3:{ echo -a Proxy list güncellendi4 $lines(proxy.txt) ip mevcut. }
on *:SNOTICE:*Client connecting*:who +I $9
raw 352:*:if $read(proxy.txt,w,$4) { gzline $+(*@,$4) : 1IP adresinizde 4( PROXY ) 1girixi tespit edilmistir. $date $time $+([,IRCProxy,]) $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor),window -neg1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor,echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor ( $+ $time $+ ) 4 $4 2 Proxy Girişi) }
Bu kodu al ve şurayı;
Kod:
on *:SNOTICE:*Client connecting*:who +I $9
Böyle degiştir;

Kod:
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! }
Burayıda kaldır. komple;
Kod:
raw 352:*:


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 07:33.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net