Dynamite Nickli Üyeden Alıntı
(Mesaj 1040548425)
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. Kod:
alias pbotnick return Muhittin
alias pnickpass return NİCKŞİFREYAZIN.
alias popers return Muhittin OPERPASSYAZIN.
alias pident return ~Dynamite
alias poperchan return #opers
alias psunucu return irc.SUNUCU-ADI 6667
alias phostum return Muhittin.Proxy-Bot
alias bagla {
if ($sockerr) { echo -a Bot Zaten Sunuda | halt }
else { sockclose prox | sockopen prox $psunucu | echo -a - ProxyBot Devreye Girdi! | halt }
}
alias kopar {
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 * * :Muhittin Socket Proxy-Bot
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 Muhittin Socket Proxy-Bot $+ $chr(1) }
if :FINGER iswm $4- { swprox NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Muhittin Socket Proxy-Bot $+ $chr(1) }
if $1 == PING { swprox PiNG $2- }
if $1 == error && $2 == :closing {
baglan
}
if ($2 == 352) && (%prox == on) {
kpro $6 | kontrol $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 (.proxy isin %m) && (%k == $poperchan) {
if ($5 == on) {
if (%prox == on) { .enable #proxy | swprox privmsg %k Proxy Koruma Aktif! | halt }
}
if ($5 == off) {
if (%proxy == off) { .disable #proxy | swprox privmsg %k Proxy Koruma DEAktif! | halt }
}
}
}
}
}
#proxy on
alias kontrol {
sockopen $+(kontrol,$r(1,999999999)) $1- 1080
sockopen $+(kontrol,$r(1,999999999)) $1- 3128
sockopen $+(kontrol,$r(1,999999999)) $1- 9050
sockopen $+(kontrol,$r(1,999999999)) $1- 8000
sockopen $+(kontrol,$r(1,999999999)) $1- 6588
sockopen $+(kontrol,$r(1,999999999)) $1- 3124
sockopen $+(kontrol,$r(1,999999999)) $1- 50050
sockopen $+(kontrol,$r(1,999999999)) $1- 27977
}
on *:sockopen:kontrol*: {
if !$sockerr {
.swprox gzline *@ $+ $sock($sockname).ip +0 Proxy Girişi Yasaktır
hdel ckontrol $sock($sockname).ip
sockclose $sockname
}
}
on *:sockclose:kontrol*: {
hdel ckontrol $sock($sockname).ip
}
alias ip2nick {
var %i 1
while %i <= $hget(ckontrol,0).item {
if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt }
inc %i
}
}
alias kpro {
inc -u6 %xxxx
sockopen kpro $+ %xxxx
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
sockmark $+(kpro*,%xxxx) $1
}
on *:sockopen:kpro*:{
sockwrite -n $sockname GET //?ip= $+ $sock($sockname).mark HTTP/1.1
sockwrite -n $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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!
sockclose $sockname
}
}
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..
|
