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
}