Çevrimdışı

Arkadaşlar Bildiğiniz Gibi İsmi Lazım Değil Sitenin Proxy Bulması Kalktı. Güvenlik Kodu Getirdiler.Şimdiki Bende Başka Bir Sitenin Ve Denendi Koruması Gayet iyi. Bu Socket Botu PBot Sahibi Aeg'den Esinlenerek Yaptım. Proxy Koruma Botu Arıyordum Aeg'in Korumasını Gördüm Ve Güzelmiş. Sizinlede Paylaşmak İstedim. + Kendime Göre + Bir Koruma daha Ekledim.Daha Fazla Konuşmadan Sizlere Kodu Vermek İstiyorum.. Dediğim Gibi Bu Proxy Korumanın Sahibi Aeg Nickidir. Pbot Socket Botuna Koymuş.Bende Kendime Göre Biraz Editledim.. İyi Kullanmalar.


Botu /bagla Komutu İle Bağlayabilirsiniz. Botu /kopar Komutuyla Sunucudan Çıkarabilirsiniz.Proxy Korumayı Kapatmak için Opers Kanalında .proxy off Yapmanız Yeterlidir. İyi İF'Ler..

 

Çevrimdışı

Sağolun böyle bir koruma herkezin işine yarıycaktır..

__________________
Doğruları biliyorsan, yalanları dinlemek eğlencelidir.

 

Çevrimdışı

Proxy Koruma'yı Denedim.Neredeyse 100 Bottan 85 90 Tanesini Attı. Yorumun İçin Teşekkürler.

 

Çevrimdışı

guzel paylasım emegine saygılarımla tsk...

 

Çevrimdışı

Teşekkürler. h4pp3n Arkadaşımızın Yapmış Olduğu Eski Proxy Koruması Gibi İyi Sayılır. İnşallah Sizin İşinize Yarar.

 

Çevrimdışı

Paylaşımın için teşekkürler kodu deneyeceğim.

 

Çevrimdışı

Userleri atıyor bu kod yeniden düzenlenmesi lazım

----------

h4pp3n ile senin kodu birleştirdim kendim denedim çalışıyor sizde deneyebilirsiniz



alias pbotnick return ProxTor
alias pnickpass return 12345
alias popers return diyorumki 12345
alias pident return ircforumlari
alias poperchan return #opers
alias psunucu return irc.sunucu.com 6667
alias phostum return irc.forumlari.Net
alias bagla {
if ($sockerr) { echo -a Bot Zaten Sunuda | halt }
else { sockclose prox | sockopen prox $psunucu | echo -a - ProxyBot Devreye Girdi! | halt }
}
alias kopart {
if ($sockerr) { echo -a Bot Zaten Sunuda Degil | halt }
else { sockclose prox | echo -a - ProxyBot Devreden Cıkarildi! | halt }
}
on *:sockopen:prox:{
if ($sockerr) { echo $color(info) -a Socket botun bağlantısı kesildi. | return }
swprox NICK User $+ $r(0,99)
swprox USER $pident * * : ~ ßy diyorumki ~
swprox oper $popers
swprox join 0,
swprox NICK $pbotnick
swprox join $poperchan
swprox ns identify $pnickpass
swprox mode $pbotnick +Dp
swprox sethost $phostum
swprox setident $pident
.timer 0 20 swprox ping $pbotnick
sockmark $sockname hgaehae
}
on *:sockread:prox:{
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
var %; | sockread %; | tokenize 32 %;
swproxy $1-
}
alias swprox { if $sock(prox) { sockwrite -n prox $1- } }
alias swproxy {
;eğer bot socketı açıksa
if $sock(prox) {
var %: = echo $color(info) -st > Socket bot:
if :
VERSION
iswm $4- { swprox NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION $+ $chr(1) }
if :
FINGER
iswm $4- { swprox NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER $+ $chr(1) }
if $1 == PING { swbota PiNG $2- }
if $1 == error && $2 == :closing {
bagla
}
if ($2 == 352) && (%prox == on) {
kpro $6 | tor_ $6
}
if $2 == notice {
if (*client connecting* iswm $strip($1-)) && (%prox == on) {
var %:ip = $gettok($left($right($13,-1),-1),2,64)
swprox who +I $12
}
}
if ($2 == privmsg) {
var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3
if (.pbot isin %m) && (%k == $poperchan) {
if ($5 == on) {
if (%prox == on) { swprox privmsg %k ProxyBot Zaten Aktif! | halt }
set %prox on | swprox privmsg %k ProxyBot Aktif!
halt
}
if ($5 == off) {
if (%proxy == off) { swprox privmsg %k ProxyBot DEAktif! | halt }
set %proxy off | swprox privmsg %k ProxyBot DEAktif!
halt
}
}
}
}
}
alias kpro {
inc -u6 %xxxx
sockopen kpro $+ %xxxx [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
sockmark $+(kpro*,%xxxx) $1
}
on *:sockopen:kpro*:{
sockwrite -n $sockname GET //?ip= $+ $sock($sockname).mark HTTP/1.1
sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf
}
on *:sockread:kpro*:{
var %kpro
sockread %kpro
if (inetnum: isin %kpro) && (0.0.0.0 isin %kpro) {
.swprox gzline *@ $+ $sock($sockname).mark +0 Proxy Girisi Yasak! $date $time $+([,$pbotnick,])
sockclose $sockname
}
}
alias tor_ {
if ($1) {
inc %xx
sockopen $+(tor*,%xx) ircnet.com 80
sockmark $+(tor*,%xx) $1
}
}
on *:sockopen:tor*:{
var %s sockwrite -n $sockname
%s GET /cgi-bin/bl.cgi?ip= $+ $sock($sockname).mark HTTP/1.1
%s Host: ircnet.com
%s $crlf
}
on *:sockread:tor*:{
var %x [ $+ [ $sockname ] ]
sockread %x [ $+ [ $sockname ] ]
if (*listed in tor* iswm %x [ $+ [ $sockname ] ]) {
gzline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4TOR 1girişi tespit edilmiştir.
if !$window(@proxy-tor) { window -neg1 @proxy-tor } | echo @proxy-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinden 4TOR 1girişi tespit edilmiştir.
halt
}
if (*listed in rbl* iswm %x [ $+ [ $sockname ] ]) {
gzline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4PROXY 1girişi tespit edilmiştir.
if !$window(@proxy-tor) { window -neg1 @proxy-tor } | echo @proxy-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinden 4PROXY 1girişi tespit edilmiştir.
sockclose $sockname
}
}
raw 352:*:{
tor_ $4
}
on *:snotice:*Client connecting*: {
.who +I $9
}

 

Çevrimdışı

userleri atmasının sebei:

sockopen $+(kontrol,$r(1,999999999)) $1- 3128

bu satırdaki 3128 portunu siler yada başka bir proxy port ile değiştirirseniz userler etkilenmez.

----------

ve ayrıca benimde yapmak istediğim bir şey var. Mesela socket botun içinde ikinci bir socket nasıl yaparız ancak bu yine aynı oper nick şifre vs vs soracak bu konuda da yardımcı olurmusunuz..

 

Çevrimdışı

Selam kardesım qüsel 1 kod ama ben buBotu Devreye sokamadım yanı sunucuya qiriş yabdı oper'de qırıyor am a On Off oLmuyor. Bır Yardımcı oLursan Sevınırım.

 

Çevrimdışı

ßunu Cr'de Kullana biLirmiyiz?