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

11Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 05 Haziran 2014, 16:02   #1
Çevrimdışı
Cpu
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Proxy çekme




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias ProxyList { ; Syntax: /ProxyList [-pageNo] ; eg. /ProxyList 4 ; ---------------- ; By Jonesy44 ; ---------------- ; EDIT THIS NEXT LINE FOR PROXYLIST FILE NAME! set %ProxyList.FileName ProxyList.dat ; STOP EDITING HERE! .sockclose ProxyList.1 | .sockclose ProxyList.2 | .sockclose ProxyList.3 .remove %ProxyList.FileName .timerCompletedCheck 0 1 ProxyList.CompletedCheck var %n = 1 echo -a 2* ProxyList: Downloading latest proxy list.. while %n <= $iif($1 isnum 1-,$1,3) { sockopen $+(ProxyList.,%n) samair.ru 80 inc %n } } alias ProxyList.CompletedCheck { if !$sock(ProxyList.1) || !$sock(ProxyList.2) || !$sock(ProxyList.3) { echo -a 4Succesfully downloaded $lines(%ProxyList.FileName) proxy addresses. Stored in $qt(%ProxyList.FileName) .timerCompletedCheck off unset %ProxyList.* } } alias ProxyList.RemoveHTML return $regsubex($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)|&[^;]+;| /g,$null) on *:sockopen:ProxyList.*:{ if $sockerr { echo -a Socket error: $sock($sockname).wsmsg } else { sockwrite -nt $sockname GET $+(/proxy/time-0,$gettok($sockname,2,46),.htm) HTTP/1.1 sockwrite -nt $sockname Host: samair.ru sockwrite -nt $sockname $crlf } } on *:sockread:ProxyList.*:{ var %SocketRead sockread %SocketRead if !$sockerr { if $regex(%SocketRead,/(\D=\d)/g) { var %Index = 1, while %Index <= $regml(0) { set %ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ] $+(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],$chr(32),$gettok($regml(%Index),1,61),-,$gettok($regml(%Index),2,61)) inc %Index } echo -a 2* ProxyList: Generating decode key for page $gettok($sockname,2,46) -- 3Created key succesfully } if $regex(%SocketRead,/<tr><td>.*<\/td><\/tr>/i) { var %SocketRead = $remove($ProxyList.RemoveHTML(%SocketRead),document.write,$chr(40),+,") var %Index = 1 while %Index <= $numtok(%SocketRead,41) { noop $regex($gettok(%SocketRead,%Index,41),/(\d+.\d+.\d+.\d+\:.*)/) var %Output = $regml(1) if $regml(1) { var %SubIndex = 1 while %SubIndex <= $numtok(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],32) { %Output = $replace(%Output,$gettok($gettok(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],%SubIndex,32),1,45),$gettok($gettok(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],%SubIndex,32),2,45)) inc %SubIndex } write %ProxyList.FileName %Output } inc %Index 1 } } } else echo -a Socket error: $sock($sockname).wsmsg }

Bu kodda samair.ru sitesinden proxy çekece&#240;iz fakat 100 den fazla çekmiyor nedendir acaba

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 06 Haziran 2014, 12:27   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Proxy çekme




Yok bir musluman evladi samair.ru icin kod editleyecek

 
Alıntı ile Cevapla

Alt 07 Haziran 2014, 02:24   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Proxy çekme




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias samair { set %samair 1 | set %samairt $lines(ips.txt) sockclose samair-* sockopen samair-1 samair.ru 80 } on *:sockopen:samair-*:{ var %a $gettok($sockname,2,45),%k sockwrite -tn $sockname %k GET $+(/proxy/proxy-,$iif(%a > 9,%a,0 $+ %a),.htm) HTTP/1.1 %k host: samair.ru | %k } on *:sockread:samair-*:{ var %d sockread %d if <td> isin %d && <script isin %d { noop $regsubex(%d,/(\d+.\d+.\d+.\d+)/g,$ipyaz(\t)) } if proxycountry"> isin %d { var %a $gettok($sockname,2,45),%b (*4Proxy Downloader*) if %a == 30 { echo -at %b Proxy alımı bitti. | echo -at %b Toplam proxy sayısı: $lines(ips.txt) echo -at %b Bu sefer çekilen farklı proxy: $calc($lines(ips.txt) - %samairt) } else { inc %samair | sockopen samair- $+ %samair samair.ru 80 } sockclose $sockname } } alias -l ipyaz if (!$read(ips.txt,w,$1)) write ips.txt $1


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


/samair
komutuyla çalıştırabilirsiniz.

 
Alıntı ile Cevapla

Alt 07 Haziran 2014, 11:22   #4
Çevrimdışı
Cpu
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Proxy çekme




Paint Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias samair { set %samair 1 | set %samairt $lines(ips.txt) sockclose samair-* sockopen samair-1 samair.ru 80 } on *:sockopen:samair-*:{ var %a $gettok($sockname,2,45),%k sockwrite -tn $sockname %k GET $+(/proxy/proxy-,$iif(%a > 9,%a,0 $+ %a),.htm) HTTP/1.1 %k host: samair.ru | %k } on *:sockread:samair-*:{ var %d sockread %d if <td> isin %d && <script isin %d { noop $regsubex(%d,/(\d+.\d+.\d+.\d+)/g,$ipyaz(\t)) } if proxycountry"> isin %d { var %a $gettok($sockname,2,45),%b (*4Proxy Downloader*) if %a == 30 { echo -at %b Proxy alımı bitti. | echo -at %b Toplam proxy sayısı: $lines(ips.txt) echo -at %b Bu sefer çekilen farklı proxy: $calc($lines(ips.txt) - %samairt) } else { inc %samair | sockopen samair- $+ %samair samair.ru 80 } sockclose $sockname } } alias -l ipyaz if (!$read(ips.txt,w,$1)) write ips.txt $1


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


/samair
komutuyla çalıştırabilirsiniz.

Peki çekilen proxyler hash olarak eklense onları da atsak ilk girişlte
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


ek olarakda bu koda onun atma kodunu eklesek 10 numara olur

on *:snotice:*Client connecting*:.who +I $9
raw 352:*:if $read(tor.txt,w,$+(*,$4,*)) || $hget(Proxy,$4) { gzline $+(*@,$4) 1h 1IP adresinizde 4TOR/Proxy 1girişi tespit edilmiştir. }

 
Alıntı ile Cevapla

Alt 07 Haziran 2014, 12:02   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Proxy çekme




Cpu Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Peki çekilen proxyler hash olarak eklense onları da atsak ilk girişlte
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


ek olarakda bu koda onun atma kodunu eklesek 10 numara olur

on *:snotice:*Client connecting*:.who +I $9
raw 352:*:if $read(tor.txt,w,$+(*,$4,*)) || $hget(Proxy,$4) { gzline $+(*@,$4) 1h 1IP adresinizde 4TOR/Proxy 1girişi tespit edilmiştir. }

Herkes istediği yere yazabilsin diye ipyaz adında bir alias oluşturdum. Tek başına bir koruma sağlayamaz bu kod zira çekilen IP adresi 700 civarlarında.

 
Alıntı ile Cevapla

Alt 07 Haziran 2014, 12:17   #6
Çevrimdışı
Cpu
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Proxy çekme




Paint Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Herkes istediği yere yazabilsin diye ipyaz adında bir alias oluşturdum. Tek başına bir koruma sağlayamaz bu kod zira çekilen IP adresi 700 civarlarında.

peki işleme sokmamız için ne yapmamız gerekiyor az bile olsa işimizi görür sanırım

yada

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Toprak ın koduna ek olarak yapamaz mıyız?

 
Alıntı ile Cevapla

Alt 07 Haziran 2014, 12:28   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Proxy çekme




Cpu Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
peki işleme sokmamız için ne yapmamız gerekiyor az bile olsa işimizi görür sanırım

yada

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Toprak ın koduna ek olarak yapamaz mıyız?


Verdiğin kodda tor.txt yazan yeri ips.txt yazarsan yeterli olur.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*Client connecting*:.who +I $9 raw 352:*:if $read(ips.txt,w,$4) { gzline $+(*@,$4) 1h 1IP adresinizde 4TOR/Proxy 1girişi tespit edilmiştir. }


 
Alıntı ile Cevapla

Alt 07 Haziran 2014, 12:34   #8
Çevrimdışı
Cpu
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Proxy çekme




Paint Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Verdiğin kodda tor.txt yazan yeri ips.txt yazarsan yeterli olur.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*Client connecting*:.who +I $9 raw 352:*:if $read(ips.txt,w,$4) { gzline $+(*@,$4) 1h 1IP adresinizde 4TOR/Proxy 1girişi tespit edilmiştir. }


ama ne kadar hızlı olur ki hocam

 
Alıntı ile Cevapla

Alt 07 Haziran 2014, 19:51   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Proxy çekme




Eyvallah @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 
Alıntı ile Cevapla

Alt 24 Temmuz 2014, 16:18   #10
Çevrimdışı
Cpu
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Proxy çekme




Paint Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias samair { set %samair 1 | set %samairt $lines(ips.txt) sockclose samair-* sockopen samair-1 samair.ru 80 } on *:sockopen:samair-*:{ var %a $gettok($sockname,2,45),%k sockwrite -tn $sockname %k GET $+(/proxy/proxy-,$iif(%a > 9,%a,0 $+ %a),.htm) HTTP/1.1 %k host: samair.ru | %k } on *:sockread:samair-*:{ var %d sockread %d if <td> isin %d && <script isin %d { noop $regsubex(%d,/(\d+.\d+.\d+.\d+)/g,$ipyaz(\t)) } if proxycountry"> isin %d { var %a $gettok($sockname,2,45),%b (*4Proxy Downloader*) if %a == 30 { echo -at %b Proxy alımı bitti. | echo -at %b Toplam proxy sayısı: $lines(ips.txt) echo -at %b Bu sefer çekilen farklı proxy: $calc($lines(ips.txt) - %samairt) } else { inc %samair | sockopen samair- $+ %samair samair.ru 80 } sockclose $sockname } } alias -l ipyaz if (!$read(ips.txt,w,$1)) write ips.txt $1


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


/samair
komutuyla çalıştırabilirsiniz.

Bunu nntime.com içinde yapabilir miyiz?

 
Alıntı ile Cevapla

Cevapla

Etiketler
cekme, proxy


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Yeni Mirc Proxy Çekme Kodu Yardım ? Aytac08 mIRC Scripting Sorunları 12 21 Ekim 2013 22:43
istedigim bir siteden proxy çekme XDie mIRC Scripting Sorunları 13 24 Nisan 2013 23:43
Txt Güncel Proxy Çekme Eset mIRC Scripting Sorunları 25 04 Mart 2013 16:55
Proxy IP Leri proxy.data dosyasından okutarak servere girişte zline atma ExrimCi mIRC Scripting Sorunları 4 26 Şubat 2010 15:11
Proxy Koruması ( Koruma Icın Proxy Lıstesı Lazım) Heavenly mIRC Scripting Sorunları 2 05 Temmuz 2009 20:09