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

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/)
-   -   Proxy çekme (https://www.ircforumlari.net/mirc-scripting-sorunlari/593804-proxy-cekme.html)

Cpu 05 Haziran 2014 16:02
Proxy çekme
 
Kod:
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ðiz fakat 100 den fazla çekmiyor nedendir acaba

Darnasus 06 Haziran 2014 12:27
Cevap: Proxy çekme
 
Yok bir musluman evladi samair.ru icin kod editleyecek

Paint 07 Haziran 2014 02:24
Cevap: Proxy çekme
 
Kod:
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
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

/samair komutuyla çalıştırabilirsiniz.

Cpu 07 Haziran 2014 11:22
Cevap: Proxy çekme
 
Alıntı:
Paint Nickli Üyeden Alıntı (Mesaj 1041446313)
Kod:
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
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

/samair komutuyla çalıştırabilirsiniz.
Peki çekilen proxyler hash olarak eklense onları da atsak ilk girişlte :D

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. }

Paint 07 Haziran 2014 12:02
Cevap: Proxy çekme
 
Alıntı:
Cpu Nickli Üyeden Alıntı (Mesaj 1041446371)
Peki çekilen proxyler hash olarak eklense onları da atsak ilk girişlte :D

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.

Cpu 07 Haziran 2014 12:17
Cevap: Proxy çekme
 
Alıntı:
Paint Nickli Üyeden Alıntı (Mesaj 1041446380)
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?

Paint 07 Haziran 2014 12:28
Cevap: Proxy çekme
 
Alıntı:
Cpu Nickli Üyeden Alıntı (Mesaj 1041446384)
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:
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. }

Cpu 07 Haziran 2014 12:34
Cevap: Proxy çekme
 
Alıntı:
Paint Nickli Üyeden Alıntı (Mesaj 1041446386)
Verdiğin kodda tor.txt yazan yeri ips.txt yazarsan yeterli olur.
Kod:
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

Darnasus 07 Haziran 2014 19:51
Cevap: Proxy çekme
 
Eyvallah @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cpu 24 Temmuz 2014 16:18
Cevap: Proxy çekme
 
Alıntı:
Paint Nickli Üyeden Alıntı (Mesaj 1041446313)
Kod:
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
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

/samair komutuyla çalıştırabilirsiniz.
Bunu nntime.com içinde yapabilir miyiz?

Toprak 27 Temmuz 2014 12:25
Cevap: Proxy çekme
 
Yukarıdaki kod'un aynısı ile çekersin site ismi ve sock ismini degiştirmen yeterli birde "Get" kısmındaki /proxy/ kısmını kaldırmak gerek.

Kod:
  %k GET $+(/proxy-,$iif(%a > 9,%a,0 $+ %a),.htm) HTTP/1.1

elhale 20 Şubat 2015 04:27
Cevap: Proxy çekme
 
The samair code works great. Thx.

How would we go about extracting the ip-s from this page?

Anyone can help?

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

High 20 Şubat 2015 12:31
Cevap: Proxy çekme
 
Alıntı:
elhale Nickli Üyeden Alıntı (Mesaj 1041618743)
The samair code works great. Thx.

How would we go about extracting the ip-s from this page?

Anyone can help?

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
You will not find a lot of code , but if you search on google about this issue take a nice proxy programs can attract more proxy can prohibit them on the website. If you're looking Proxy. Proxy protection of writing should be enough to search .

Toprak 20 Şubat 2015 15:02
Cevap: Proxy çekme
 
Alıntı:
elhale Nickli Üyeden Alıntı (Mesaj 1041618743)
The samair code works great. Thx.

How would we go about extracting the ip-s from this page?

Anyone can help?

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

Buyur/Buy;

Kod:
alias cek sockopen $+(cek,$r(10,99999)) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
on *:sockopen:cek*:{
  sockwrite -nt $sockname GET /cgi/clicks.pl?20819 HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:cek*:{
  var %:ip | sockread %:ip
  if $regex(ip,%:ip,/(\d+\.\d+\.\d+\.\d+)/g) { _ayıkla $regml(ip,0) }
}
alias _ayıkla { var %:a = 1 | while %:a <= $1 { .write pro.txt $regml(ip,%:a) | inc %:a } }
Komut/Command:
/cek yazarak başlatabilirsiniz.
/cek Start typing.


Not/Note: 32.780 adet ip çekti çoğu aynı ip ama.

elhale 20 Şubat 2015 16:32
Cevap: Proxy çekme
 
Thx for taking the time Toprak. Very nice of you.

It does work, but somehow i dont extract 32.780 (or as much as this).

I extract 300 of them, and when i repeat the process i get the same ip-s in the pro.txt file.

Toprak 20 Şubat 2015 17:11
Cevap: Proxy çekme
 
Alıntı:
elhale Nickli Üyeden Alıntı (Mesaj 1041618949)
Thx for taking the time Toprak. Very nice of you.

It does work, but somehow i dont extract 32.780 (or as much as this).

I extract 300 of them, and when i repeat the process i get the same ip-s in the pro.txt file.


Alias'ı Değiştir/Change Alias:
Kod:
alias _ayıkla { var %:a = 1 | while %:a <= $1 { if !$read(pro.txt,w,$regml(ip,%:a)) { .write pro.txt $regml(ip,%:a) } | inc %:a } }

Txt'de ekli olan IP'i eklettirmedik.

Aytac 20 Şubat 2015 17:42
Cevap: Proxy çekme
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] What where you will use them to help business : )

Toprak 20 Şubat 2015 17:51
Cevap: Proxy çekme
 
Proxy'lerin port'ları olmadığından koruma olarak kullanacaktır. =)

elhale 20 Şubat 2015 17:52
Cevap: Proxy çekme
 
Alıntı:
Aytac Nickli Üyeden Alıntı (Mesaj 1041618974)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] What where you will use them to help business : )
I cover the ircop position in an UnrealIrcd server. I googled some of the ip-s that someone was using to flood us and it got me to that page. That's all.

I do have a modified addon that used to work but doesn't work anymore. And I wanted to ask for help for that too but I don't want to bother to much the users here with me writing in english. Since I don't know if it is against the rules or smth.

:) I would pm Toprak if he would like to have a look at the addon and maybe help but I can't send pm-s at the moment.

Aytac 20 Şubat 2015 18:06
Cevap: Proxy çekme
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] IRC server writes information to look there he went to the site help there should be feasible to dispose of 25 posts for private messages:)

Feragat 20 Şubat 2015 18:39
Cevap: Proxy çekme
 
İyi sohbetler

ByaSiL 17 Eylül 2016 09:28
Cevap: Proxy çekme
 
Peki bu çektiğimiz proxyleri direk nasil yasaklarız.Otomatik hergün girdigimizde cektigimiz proxyler yasaklansın scriptimde

IRC-Dancer 18 Eylül 2016 05:12
Cevap: Proxy çekme
 
Alıntı:
ByaSiL Nickli Üyeden Alıntı (Mesaj 1041806578)
Peki bu çektiğimiz proxyleri direk nasil yasaklarız.Otomatik hergün girdigimizde cektigimiz proxyler yasaklansın scriptimde
''Gzline'' olan kısmı ¨t¨ flag'ın varsa , gline olarak çevir,yabancı host'ları dns 'siz de ata bilirsin.
dosya.txt hangi dosyanda proxy ekli ise ona göre değiştirirsin.

Kod:
alias yasaklama { var %: = 1 | while %: <= $lines(proxy.txt) { .gzline $token($+(*@,$read(proxy.txt,%:)),1,58) +0 Proxy Korumasi! | inc %: } }
Kaynak :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:15.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk