| Toprak | 28 Aralık 2012 16:57 |
Cevap: Socket Koruma
Alıntı:
OzëL Nickli Üyeden Alıntı
(Mesaj 1041262615)
Slm Arkadaslar Bende ki Socker Botu Opers Kanalında .proxy on .proxy off Yaptıgımda Devreye Girmiyor Yanlışı Düzelte bilirmisiniz .
KOD : PHP- Kodu:
alias pbotnick return NİCK
alias pnickpass return NİCKİNDENTİFY
alias popers return OzeL PASSSWORD
alias pident return Yeah
alias poperchan return #opers
alias psunucu return irc.sohbetsen.org 6667
alias phostum return irc.Sohbetsen.Org.Devel.Oper
alias bagla {
if ($sockerr) { echo -a Bot Zaten Sunucuda | 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 * * : ~ Devel-Oper ~
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ipsorgu.com 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.
style="color: #007700">.ipsorgu.com $+ $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 4J14a5s7o10n1_7Statham1_5B4o3t7N10e14t6T7e4A5m1_14DevelOper1 $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.4J14a5s7o10n1_7Statham1_5B4o3t7N10e14t6T7e4A5m1_14DevelOper1
if !$window([MENTION=8082]pRoXy[/MENTION]-tor) { window -neg1 [MENTION=8082]pRoXy[/MENTION]-tor } | echo [MENTION=8082]pRoXy[/MENTION]-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinden 4TOR 1girişi tespit edilmiştir.4J14a5s7o10n1_7Statham1_5B4o3t7N10e14t6T7e4A5m1_14DevelOper1
halt
}
if (*listed in rbl* iswm %x [ $+ [ $sockname ] ]) {
gzline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4PROXY 1girişi tespit edilmiştir.
if !$window([MENTION=8082]pRoXy[/MENTION]-tor) { window -neg1 [MENTION=8082]pRoXy[/MENTION]-tor } | echo [MENTION=8082]pRoXy[/MENTION]-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
}
|
Buyur OzeL, Kod:
alias pbotnick return NİCK
alias pnickpass return NİCKİNDENTİFY
alias popers return OzeL PASSSWORD
alias pident return Yeah
alias poperchan return #opers
alias psunucu return irc.sohbetsen.org 6667
alias phostum return irc.Sohbetsen.Org.Devel.Oper
alias bagla {
if ($sockerr) { echo -a Bot Zaten Sunucuda | 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 * * : ~ Devel-Oper ~
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) && $3 == $poperchan {
var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3
if $right($4,-1) == !proxy || $right($4,-1) == .proxy {
if ($5 == on) {
if (%prox == on) { swprox privmsg %k ProxyBot Zaten Aktif! | return }
else { set %prox on | swprox privmsg %k ProxyBot Aktif! | return }
}
if ($5 == off) {
if (%proxy == off) { swprox privmsg %k ProxyBot DEAktif! | return }
else { set %proxy off | swprox privmsg %k ProxyBot DEAktif! | return }
}
}
}
}
}
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 4J14a5s7o10n1_7Statham1_5B4o3t7N10e14t6T7e4A5m1_14DevelOper1 $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.4J14a5s7o10n1_7Statham1_5B4o3t7N10e14t6T7e4A5m1_14DevelOper1
if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor) { window -neg1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor } | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinden 4TOR 1girişi tespit edilmiştir.4J14a5s7o10n1_7Statham1_5B4o3t7N10e14t6T7e4A5m1_14DevelOper1
halt
}
if (*listed in rbl* iswm %x [ $+ [ $sockname ] ]) {
gzline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4PROXY 1girişi tespit edilmiştir.
if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor) { window -neg1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor } | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-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
}
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:57 -->-> Daha önceki mesaj 16:53 --
Bunun yeri burası degil'dir taşıyan arkadaş' tekrar mirc scripting sorunları kısmana taşıya bilirmi ? |
