28 Aralık 2012, 16:57
#3 Misafir
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: Socket Koruma
OzëL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Slm Arkadaslar Bende ki Socker Botu Opers Kanalında .proxy on .proxy off Yaptıgımda Devreye Girmiyor Yanlışı Düzelte bilirmisiniz .
KOD : PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
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: Kodu kopyalamak için üzerine çift tıklayın!
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 ?