| Aytac08 | 21 Mayıs 2014 02:52 |
Socket bot sorun ?
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
}
}
#opers kanalında .proxy on | .proxy off komutları işlemiyor , ipsorgu yerine daha hızlı sorgulama sitesi var mı ? |
