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

44Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 25 Kasım 2015, 09:04   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
ProxyKiller 3 SE




Evet biliyorum yinemi diyenleriniz olacak.. "evet yine"..
bazı işlerde herkesi memnun edemezsiniz, armut piş azıma düşçü cok insan var..
önceki proxykiller için kullanıcıları attığı vs. gibi çok sey söylediler..
proxy bulmak ve onlardan korunmak içinde çok kod yazan oldu..
şunu söylemekte fayda var proxy'ler geçicidir sitelerde bulunanların %90'ı çalışmaz..
bunun içinde proxykiller içine entegre proxy arama ve test için imkan veren bir bölümde var..
bu kez oldukça anlaşılır ve uyumlu yazmaya çalıştım.. yakınanlar olmaz umarım..
kopyala yapıştır kullan rhatlığında.. herhangi bir konfigurasyon dosyası yoktur..
hersey kendi içinde..
neyse.. olayımız aşağıda.

bu proxy-sock[4-5] tarayıp, bulan, kayıt eden ve banlamaya yarayan bir kod..
açıklaması içinde 2-3 ayarla direk scriptinizde yada botunuzda kullanabilirsiniz..

kod icindeki şu bölümleri ayarlayarak kullanabilirsiniz..
aklınıza takılan ne varsa konu içinde sorabilirsiniz.. iyi eglenceler..


TestServer=irc.chatfox.net
TestServerIP=107.161.19.71
KontrolPort=80 8080 1080 3124 3127 3128 8000 9050 443
bazi cok kullanilan portlar
Ban=1
0 Echo | 1 Gzline
0 yalnizca ekrana yansitacaktir eger asagidaki log aciksa kayit alacaktir.
Log=1
bu deger 1 olursa gunluk bulunan proxyler kayit olacaktir
kayit islemi gun-ay-yil.txt olarak kayit edilir.
Komut=GZline
;socker botlar için orn: "sockwrite -tn bot_adi kline"


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
[ProxyKiller] TestServer=irc.chatfox.net ;proxy olarak giris denemesi yapilacak server (aktif olmali) TestServerIP=107.161.19.71 ;giris denemesi yapilacak server'in ip adresi (bilmiyorsaniz /dns irc.serveradi.com) KontrolPort=80 8080 1080 3124 3127 3128 8000 9050 443 ;favori portlar yukaridadir ;ve bazi cok kullanilan portlar ;1046 1080 1182 1183 1184 1188 1214 1278 1279 1745 1795 2124 2172 2173 2174 2175 2301 3128 3124 3127 3743 4095 4480 4747 5463 6588 8080 8000 8001 8118 8888 8922 9090 Ban=1 ;0 Echo | 1 Gzline ;0 yalnizca ekrana yansitacaktir eger asagidaki log aciksa kayit alacaktir. Log=1 ;bu deger 1 olursa gunluk bulunan proxyler kayit olacaktir ;kayit islemi gun-ay-yil.txt olarak kayit edilir. Komut=GZline ;socker botlar için orn: "sockwrite -tn bot_adi kline" Version=3.0SE ;surum numarasi Ahuthor=CoCoRiCo/Umit*GUNDUZ ;yapimci hicbir yerde ban yada mesajda yer almaz. ;emege saygi gosterip silmeyiniz. [/ProxyKiller] /* #################################################### sisteminize entegrasyon için öneriler: serverinize giriste gorunen ip adreslerini (1.1.1.1) formatinda olacak bicimde $sok(1.1.1.1) kodunu snotice event'iniza ekleyin Elle tarama icin /sok 1.1.1.1 8080 dokumandan yani txt dosyasindan taramak icin /prx dosyaadi.txt dosya icindeki proxyler asagidaki bicimlere uygun olmalidir 101.255.17.244:1080 103.16.112.137[bosluk]1080 103.16.112.137[tap]1080 eger genel olarak bir arama baslatmak isterseniz ki bu normal giren kullanicilari tarama esnasinda calisabilir /pbul 95.0.0.0 bu komut ile 95.255.255.255 araligindaki tüm iplerde proxy arayacaktir. arama islemi port sayisina gore bir zaman belirlenmistir, boylelikle her IP icin 25 format ve 5 formasyon(proxy,sock4,sock5 vb) deneyecektir bu islem cok uzun surebilir, ancak kesin calisan ve anlik aktif proxyleri bulmanizi saglar. #################################################### */ ;ban ayari ve log islevi alias banz { $iif($conf(Ban) = 1,$conf(commandline),echo 3) $+(*@,$sock($1).ip) $+($tip($1),$regsubex($sock($1).ip,/(\d+$)/i,$+($str(*,$len(\t)),:,$+(*@,$sock($1).port)))) if $conf(log) { write $+($replace($date,/,-),.txt) $+($sock($1).ip,:,$sock($1).port) } sockclose $1 } ;ip araligi alias pbul { if $regex(ip,$1,/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/g) { if $gettok($1,1,46) < 1 { echo ** Hatali ip.. Class A "1" den dusuk olamaz. orn: 1.0.0.0 | return } set %d¨ $gettok($1,4,46) | set %c¨ $gettok($1,3,46) | set %b¨ $gettok($1,2,46) | set %a¨ $gettok($1,2,46) } $iif(!%d¨,set %d¨ 0) ;class D $iif(!%c¨,set %c¨ 0) ;class C $iif(!%b¨,set %b¨ 0) ;class B $iif(!%a¨,set %a¨ 1) ;class A if %d¨ < 256 { inc %d¨ } if %d¨ == 256 && %c¨ < 256 { inc %c¨ | unset %d¨ } if %c¨ == 256 && %b¨ < 256 { inc %b¨ | unset %d¨,%c¨ } if %b¨ == 256 && %a¨ < 256 { inc %a¨ | unset %b¨,%c¨,%d¨ } if %a¨ == 256 && %a¨ < 256 { inc %a¨ | unset %b¨,%c¨,%d¨ } if %a¨ == 255 && %b¨ == 255 && %c¨ == 255 && %d¨ == 255 { echo : IP Tamamlandi | unset %*¨* } $iif(!%d¨,set %d¨ 0) $iif(!%c¨,set %c¨ 0) $iif(!%b¨,set %b¨ 0) $iif(!%a¨,set %a¨ 1) sok $+(%a¨,.,%b¨,.,%c¨,.,%d¨) titlebar :Sock&Proxy Araniyor: $+(%a¨,.,%b¨,.,%c¨,.,%d¨) .timer_ipc 0 4 pbul } alias prx { ;/prx dosya.txt ;> 1.1.1.1 3128 if $1 { var %dos $1 } var %i 0 while %i < $lines(%dos) { inc %i | sok $replace($read(%dos,%i),:,$chr(32),$chr(9),$chr(32)) } } ;baglanti baslatici alias sok { if $regex($2,/(\d+)/) { var %typ $iif( $gettok(%port,%i`,32) == 443,sockopen -e,sockopen) if $gettok(%port,%i`,32) == 9050 { %typ $+(Tor~,$1,:,$2) $1 $2 } %typ $+(sock4~,$1,:,$2) $1 $2 %typ $+(sock5~,$1,:,$2) $1 $2 %typ $+(proxy~,$1,:,$2) $1 $2 %typ $+(proxyGet~,$1,:,$2) $1 $2 %typ $+(proxyPOST~,$1,:,$2) $1 $2 } if !$2 { var %port $conf(conport) var %i` 1,%$1 $1 while %i` < $gettok(%port,0,32) { var %typ $iif( $gettok(%port,%i`,32) == 443,sockopen -e,sockopen) var %s_ $+(%$1,:,$gettok(%port,%i`,32)) %$1 $gettok(%port,%i`,32) if $gettok(%port,%i`,32) == 9050 { %typ Tor~ $+ %s_ } else { %typ sock4~ $+ %s_ %typ sock5~ $+ %s_ %typ proxy~ $+ %s_ %typ proxyGet~ $+ %s_ %typ proxyPOST~ $+ %s_ } inc %i` } } } ;ini & mrc fix alias readini_ { if $regex($script,/(\.ini$)/) { return $gettok($read($script, w, $+(*,$3,=*)),-1,61) } else { return $readini($1,$2,$3) } } ;konfigurasyon yonlendirici alias conf { goto $1 :serverip { return $readini_($script,proxykiller,TestServerIP) } :server { return $readini_($script,ProxyKiller,TestServer) } :port { return $gettok($+(666,$r(5,9)) 7000,$r(1,2),32) } :conport { return $readini_($script,proxykiller,KontrolPort) } :ban { return $readini_($script,proxykiller,ban) } :commandline { return $readini_($script,proxykiller,komut) } } ;random nick!ident@*:user ;$ren(3,15) alias ren { var %l' $r($1,$2),%s' a e i o u,%a' . b c d f g h j k l m n p r s t v x w y z . :r var %k' $addtok(%k', $gettok(%a',$r(1,$numtok(%a',32)),32),32) if $len(%k') < %l' goto r if $len(%k') >= %l' return $regsubex($regsubex(%k',/(\W)/ig,$gettok(%s',$r(1,$numtok(%s',32)),32)),/([a-f]|[c-g]|[x-z])/g,$iif($r(1,10) > 5,$upper(\t),\t)) } ;$ran(nick,user,host,ident) alias ran { if $1 == nick { return $ren(1,13) } if $1 == user { return $gettok($regsubex($left($md5($ticks),$r(3,20)),/(.)/g,$iif(5 \\ \n,\t $left($+($r(a,z),$md5($ticks)),$r(3,11)))),2-,32) } if $1 == ident { return $ren(1,13) } if $1 == host { return $ren(1,10) } } ;Soket olaylari on *:sockopen:*:{ echo 4 OPEN Soket: $replace($sockname,~,$+($chr(32),Method:,$chr(32))) var %s sockwrite -nt $sockname if ($sockerr > 0) { sockclose $sockname | return } if *sock5~* iswm $sockname { bset &bb5 1 5 1 0 sockwrite -n $sockname &bb5 bunset &bb5 } if *sock4~* iswm $sockname { bset &b4 1 4 1 $gettok($longip($conf(port)),3,46) $gettok($longip($conf(port)),4,46) $replace($conf(serverip),.,32) 0 sockwrite $sockname &b4 bunset &b4 } if *Proxy~* iswm $sockname { %s CONNECT $+($conf(server),:,$conf(port)) HTTP/1.0 $str($crlf,2) %s $crlf sockrename $sockname $replace($sockname,proxy~,proxy_) } if *ProxyGet~* iswm $sockname { %s GET $+($conf(server),:,$conf(port)) HTTP/1.0 $str($crlf,2) %s $crlf sockrename $sockname $replace($sockname,proxyGet~,Gproxy_) } if *ProxyPOST~* iswm $sockname { %s POST $+($conf(server),:,$conf(port)) HTTP/1.0 $str($crlf,2) %s $crlf sockrename $sockname $replace($sockname,proxyPOST~,PostProxy_) } if *Tor~* iswm $sockname { %s CONNECT $+($conf(server),:,$conf(port)) HTTP/1.0 $str($crlf,2) %s $crlf sockrename $sockname $replace($sockname,ProxyTor~,ProxyTor_) } } ;veri okuma on *:sockread:*:{ if $sockbr { sockclose $sockname | return } if *sock*~* iswm $sockname { if *sock5~* iswm $sockname { sockread &sock5 if ($bvar(&sock5,1,2) == 5 0) { bset &sock5 1 5 1 0 1 $replace($conf(serverip),.,$chr(32)) $gettok($longip(6667),3,46) $gettok($longip(6667),4,46) sockwrite -n $sockname &sock5 | bunset &sock5 sockrename $sockname $replace($sockname,sock5~,sock5:) } } if *sock4~* iswm $sockname { sockread &s4 if $regex($bvar(&s4,2),/(9[1|2|3])/g) { echo ** Sock4 Error : $bvar(&s4,2) @ $sockname | sockclose $sockname | return } if $bvar(&s4,2) == 90 { echo 3 [ $sockname ] *** Bilgiler gonderildi! sockwrite -tn $sockname CAP LS var %nk $ran(nick) sockwrite -tn $sockname NICK %nk sockwrite -tn $sockname USER $ran(nick) 0 * : $ran(user) sockrename $sockname $replace($sockname,sock4~,$+(sock4_,%nk,_)) } } } if *sock5:* iswm $sockname { echo 3 [ $sockname ] *** Bilgiler Gonderildi! sockwrite -tn $sockname CAP LS var %nk $ran(nick) sockwrite -tn $sockname NICK %nk sockwrite -tn $sockname USER $ran(nick) 0 * : $ran(user) if *sock5:* iswm $sockname { .sockrename $sockname $replace($sockname,sock5:,$+(sock5_,%nk,_)) } } ;sock testi :data if *sock*_* iswm $sockname { :- sockread -f &d if ($sockbr == 0) return var %f $bvar(&d,1-).text tokenize 32 %f echo :SOCK: %f if *PING* iswm %f { sockwrite -nt $sockname PONG $gettok(%f,2,$asc(:)) } if *NOTICE*AUTH* iswm %f { echo 4,8 Sock OK! $sockname banz $sockname } if *proxy* iswm %f { echo 4,8 Bilinmeyen ! $sockname banz $sockname } goto - } ; proxy testi if *proxy* iswm $sockname || *Tor_* iswm $sockname { :. if ($sockbr == 0) return sockread -f %p tokenize 32 $1- echo :PROXY: $sockname %p if *HTTP*Connection*established* iswm %p { var %nk $ran(nick) sockwrite -tn $sockname NICK %nk sockwrite -tn $sockname USER $ran(nick) 0 * : $ran(user) } if *PING* iswm %p { echo 4,8 Proxy OK! $sockname linesep } if *proxy* iswm %p { echo 4,8 Bilinmeyen ! $sockname banz $sockname } if *TOR* iswm %p { echo 4,8 TOR OK! $sockname banz $sockname linesep } if *NOTICE*AUTH* iswm %p { echo 4,8 Proxy OK! $sockname banz $sockname linesep } goto . } } ;proxy tipi ayirici alias -l tip { if *sock4_* iswm $1 { return Sock4 } if *sock5_* iswm $1 { return Sock5 } if *ProxyGet* iswm $1 { return Proxy GET } if *ProxyPost* iswm $1 { return Proxy Post } if *Tor* iswm $1 { return Proxy TOR } } ;ban islemi


__________________
2b|!2b=?
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 25 Kasım 2015, 09:38   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (2)
IF Ticaret Yüzdesi:(%)
Cevap: ProxyKiller 3 SE




evet yine @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bekleneni yaptı ve şaşırtmaya devam etti : ) Denemedim ama işe yarayacagına suan %100 eminim referans sağlam çünki eline emeğine sağlık dostum ...

 
Alıntı ile Cevapla

Alt 25 Kasım 2015, 11:43   #3
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: ProxyKiller 3 SE




Adam yaşlandıkça güzelleşiyor.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 25 Kasım 2015, 11:58   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: ProxyKiller 3 SE




İhtiyar,

Ellerine ve Klavyene sağlık.

 
Alıntı ile Cevapla

Alt 25 Kasım 2015, 16:47   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: ProxyKiller 3 SE




eline sağlık abi

 
Alıntı ile Cevapla

Alt 25 Kasım 2015, 18:34   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: ProxyKiller 3 SE




Adam KraL.

 
Alıntı ile Cevapla

Alt 25 Kasım 2015, 19:53   #7
Goemon
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: ProxyKiller 3 SE




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ve @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Siz Çokmu Gençsiniz Sanki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yaşınız olmuş Atmış Bırakın bu İşleri
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


İmza @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 25 Kasım 2015, 20:44   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: ProxyKiller 3 SE




Goemon Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ve @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Siz Çokmu Gençsiniz Sanki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yaşınız olmuş Atmış Bırakın bu İşleri
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


İmza @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

En Gencini cebimden çıkartırım.

İmza : Chelt

 
Alıntı ile Cevapla

Alt 28 Kasım 2015, 06:11   #9
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: ProxyKiller 3 SE




CoCoRiCo ellerine saglik guzel kod yazmissin.
WaLek cim vaktin oldugunda bi denermisin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
gerci proxyden pek sikintimiz yok
bi sorum olacakti VPN ip adreslerini engel edebilirmiyiz bu kod ile veya baska kod ile ?

 
Alıntı ile Cevapla

Alt 28 Kasım 2015, 11:27   #10
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: ProxyKiller 3 SE




Ellerine sağlık abi.

 
Alıntı ile Cevapla

Cevapla

Etiketler
3, proxykiller, se


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
Mynet Merlyn, Neutrum, Control_Bot Serisi + Proxykiller Son Halleri Lost mIRC Scripting Hazır Kodlar 0 07 Eylül 2011 10:01
Proxykiller v2.0 MN Edition, Proxy scanner and Client (info) sockbot ATLAS mIRC Scripting Hazır Kodlar 20 31 Mart 2011 12:33
ProxyKiller v2.0 MN RegSubex mIRC Scripting Sorunları 3 31 Mart 2011 08:45