[script] n0=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx n1=; 1.- Nombre: OrioN n2=; 2.- Versión: v5.9 n3=; 3.- Autor: Javier Fernández Rivera n4=; 4.- Web: http://www.ircorion.net n5=; 5.- Mail: script@ircorion.net n11=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx n12= n13=;EVENTOS PRINCIPALES=========================== n14=on 1:start:{ n15= if (\OrioN\ !isin $mircdir) { informo ERROR grave. $crlf $+ Se ha detectado que OrioNScripT se encuentra instalado en un directorio " $+ $mircdir $+ " el cual no tiene como nombre "OrioN", cambiele el nombre al directorio para que sea unicamente "OrioN"... } n16= if ($gettok($mircdir,2,32)) { informo ERROR grave. $crlf $+ Se ha detectado que el script se encuentra en una ruta o directorio que contiene espacios en alguno de sus nombres (ejpl: C.\Mis Documets), mIRC no soporta directorios con espacio. $crlf $+ Debes meter la carpeta del OrioN en un directorio que no contenga espacios, se recomienda en c:\orion\ $crlf $+ Disculpe las molestias, en breve se cerrara el OrioN. | .timer 1 10 exit } n17= dll $mircdirsistema\dlls\mircustom.dll SetIcon -m $orionskin(OrioN.ico) n18= .timerindtimeact 0 1 indtimeact n19= background -l $orionskin(barramirc.jpg) n20= @logo | @barstatus | @barsepa |@barWAR | @barexes | @barscript n21= if ($gettok($time,1,58) < 10) && (%autofondo == on) { .timer 1 1 background -mf $orionskin(fondo1.jpg) } n22= titlebar & OrioN ScripT v5.9 - Copyright (C) bY Quasi < www.ircOrioN.net ~ script@ircorion.net > n23= compbackground | sorion start | actstats start | showmirc -x | unset %ts %tm %th | set %auser si | txtiniscriptstatus | .disable #away | %oversion = 5.9 n24= if (%iniejecutconex == on) { server %servautoconexion } n25= if (%iniejecutserv == on) { dialog -m servers servers } n26= if (!%iniacercade) { dialog -m acercade acercade } n27= if ($readini($mircdirsistema\stats\stats.ini,stats,start) == 1) { n28= set %dirwindows $finddir(C:\,windows,1) n29= if ($findfile($mircdirwar\,click.exe,1) == $null) { informo No se ha localizado en el script ningun programa de war (guerra), si los desea puedes conseguirlos en el mismo web del orion-script: www.ircOrioN.net $crlf Desde OrioNScripT no recomendamos el uso de estos programas de war y OrioN funciona correctamente y al punto obtimización maxima sin ellos. } n30= if ($input(¿Desea configurar su OrioN ScripT?)) { dialog -m setup setup } n31= if (98 !isin $os) { informo !!!ATENCION!!! Lea por favor atentamente este mensaje solo saldra esta vez. Su sistema operativo puede ser: (XP)/2000/NT/ME, y estos presentan diferencias de compatibilidad con versiones anteriores de windows (98). El propio programa OrioN las ha solbentado. Si usted pulsa sobre el boton derecho encima del icono del mIRC y a continuacion selecciona la solapa compatibilidad y la activa el OrioN dejara de funcionar correctamente. Puesto que la compatibilidad ya esta provista en su mecanismo interno. No debe de activar esa casilla. } n32= nick $$?="Por favor introduce tu nick (apodo de inet)" n33= } n34=} n35=;evento al conectar======================================================= n36=on 1:connect:{ n37= echo -s $oriontheme(eConnect) n38= .auser 900 $nick | timesklageo | conexext | .enable #escuchasocks | actstats conex | onlinenews | onlineldecode | loadconfredes n39= infotxt@ Conectado a: $server por el puerto: $port | %timeconex = $time n40= if (%autowav1) { sorion %autowav1 } n41= if (%autoconfig#conex) { dialog -m config# config# } n42= if (%autonewsserv) { getnoticeserv } n43= if (%conexejecutsacar-canales == on) { .timer 1 1 dialog -m canales canales } n44= if ($ignore(*!*@*)) { .ignore -r *!*@* } n45=} n46=on 1:disconnect:{ n47= actstats tonline %th | timerindconex off | infotxt@ Desconectado del servidor : $server . n48= .disable #away | .ruser $nick n49= drawpic -s @barstatus 393 5 $orionskin(conexoff.jpg) n50= titlebar & OrioN ScripT v5.9 - Copyright (C) bY Quasi < www.ircOrioN.net ~ script@ircorion.net > n51= ;desactivando juegos del addon n52= unset %juego.adivina %ruleta %cruz %cara n53= if (%autowav2) { sorion %autowav2 } n54= if ($readini($redconf,addoncontrol,loadaddon) == on) && ($readini($redconf,addoncontrol,acpath) != off) { .unload -rs $readini($redconf,addoncontrol,acpath) } n55=} n56=on ^1:join:#:{ n57= if ($me == $nick) { n58= infotxt@ Has entrado al canal: $chan n59= %waitdatecanal = on n60= if (%autowav3) { sorion %autowav3 } n61= if (%automsgjoinme) { .timer 1 1 msg # %automsgjoinme } n62= if (%msgsalunotify) { .timer 1 1 autonicksnotify saludo1 # %msgsalunotify } n63= actstats join n64= } n65= else { n66= %nickjoin = $nick n67= if (%msgjoin) { msg # $nick - %msgjoin } n68= if (%rejoinnick == $gettok($address($nick,2),2,64)) { n69= %r1 = $iif($nick != %rejoinnicknick , %rejoinnicknick) n70= echo $chan $oriontheme(eReJoin) n71= } n72= else { echo $chan $oriontheme(eJoin) 12[&u?] } n73= } n74= if ($ialchan($gettok($address($nick,2),2,33),$chan,0) > 1) { n75= echo $chan $oriontheme(eJoinClon) $gettok($address($nick,2),2,64) 7«10 $+ $ialchan($gettok($address($nick,2),2,33),$chan,0) $+ 7»14 $ialchan($gettok($address($nick,2),2,33),$chan ,1).nick $ialchan($gettok($address($nick,2),2,33),$chan ,2).nick $ialchan($gettok($address($nick,2),2,33),$chan ,3).nick $ialchan($gettok($address($nick,2),2,33),$chan ,4).nick $ialchan($gettok($address($nick,2),2,33),$chan ,5).nick n76= infotxt@ Detectados clones en: $chan n77= } n78= if (%espiarnick == $nick) && ($window(@espianick) != $null) { aline @espianick 0El nick9 %espiarnick 0ha entrado en el canal $chan } n79= unset %rejoinnick | haltdef n80=} n81=on ^1:part:#:{ n82= if ($me == $nick) { n83= echo $chan $oriontheme(ePartMe) n84= infotxt@ Has salido del canal: $chan n85= if (%msgpart) { msg # %msgpart } n86= actstats part n87= if (%autowav4) { sorion %autowav4 } n88= } n89= if ($me != $nick) { n90= echo $chan $oriontheme(ePart) $1- n91= %rejoinnick = $gettok($address($nick,2),2,64) n92= %rejoinnicknick = $nick n93= } n94= if (%WAR.ssss == $chan) { set %des.WAR.ssss -x- | unset %act.WAR.ssss %WAR.ssss } n95= if (%espiarnick == $nick) && ($window(@espianick) != $null) { aline @espianick 0El nick9 %espiarnick 0ha salido del canal $chan } n96= haltdef n97=} n98=on ^1:mode:#:{ n99= %r = $1- n100= echo # $oriontheme(eModeCanal) n101= haltdef n102=} n103=on ^1:op:#:{ n104= %r1 = $nick | %r2 = $1- n105= if ($me == $opnick) && ($me != $nick) { n106= infotxt@ 9 $nick 11te a dado 4@11 (operador) en el canal8 $chan . n107= actstats opme n108= if (%autowav5) { sorion %autowav5 } n109= if (%msgop) && (!$redbot($nick)) { msg # $nick - %msgop } n110= } n111= if ($me == $nick) { actstats op } n112= if (%espiarnick == $nick) && ($window(@espianick) != $null) { aline @espianick 0El nick9 %espiarnick 0ha dado @ a11 $opnick } n113=} n114=on ^1:deop:#:{ n115= %r1 = $nick | %r2 = $1- n116= if ($me == $opnick) && ($me != $nick) && ($redbot($redbotcanal) != $nick) { n117= infotxt@ 9 $nick 11te ha quitado tu 4@11 en el canal8 $chan . n118= actstats deopme n119= if (%msgdeop) && (!$redbot($nick)) { msg # $nick - %msgdeop } n120= if (%autowav6) { sorion %autowav6 } n121= } n122= if ($me == $nick) { actstats deop } n123= if (%espiarnick == $nick) && ($window(@espianick) != $null) { aline @espianick 0El nick9 %espiarnick 0ha quitado @ a11 $opnick } n124=} n125=on ^1:voice:#:{ n126= %r1 = $nick | %r2 = $1- n127= if ($me != $nick) && ($me == $vnick) { n128= infotxt@ 9 $nick 11te ha dado voz en el canal8 $chan n129= actstats voiceme n130= if (%msgvoz) && (!$redbot($nick)) { msg # $nick - %msgvoz } n131= if (%autowav7 != $null) { sorion %autowav7 } n132= } n133= if ($me == $nick) { actstats voice } n134=} n135=on ^1:devoice:#:{ n136= %r1 = $nick | %r2 = $1- n137= if ($me != $nick) && ($me == $vnick) { n138= infotxt@ 9 $nick 11te acaba de quitar la voz en el canal8 $chan n139= if (%msgdevoz) && (!$redbot($nick)) { msg # $nick - %msgdevoz } n140= if (%autowav8 != $null) { sorion %autowav8 } n141= } n142= if ($me == $nick) { actstats devoice } n143=} n144=on ^1:kick:#:{ n145= %r1 = $nick | %r2 = $knick | %r3 = $1- n146= echo # $oriontheme(eKick) n147= if ($me == $knick) && ($me != $nick) && ($redbot($redbotcanal) != $nick) { n148= infotxt@ 9 $nick 11te ha kikeado del canal8 $chan . n149= if (%msgkick) && (!$redbot($nick)) { msg # $nick - %msgkick } n150= actstats kickme n151= if (%autowav11 != $null) { sorion %autowav11 } n152= } n153= if ($me == $nick) { actstats kick } n154= if (%espiarnick == $nick) && ($window(@espianick) != $null) { aline @espianick 0El nick9 %espiarnick 0ha kikeado a11 $knick } n155= halt n156=} n157=on ^1:ban:#:{ n158= %r1 = $nick | %r2 = $bnick | %r3 = $banmask n159= if ($me isin $banmask) || $remove($address($me,2),*!*@) isin $banmask || ( $address($me,0) isin $banmask ) || ( $address($me,3) isin $banmask ) || ( $address($me,4) isin $banmask ) { n160= infotxt@ Te acaban de meter un ban, preparando ataques predefinidos.. n161= if (%msgban) && (!$redbot($nick)) { msg # $nick - %msgban } n162= actstats banme n163= if (%autowav12) { sorion %autowav12 } n164= } n165= if ($me == $nick) { actstats ban } n166= if (%espiarnick == $nick) && ($window(@espianick) != $null) { aline @espianick 0El nick9 %espiarnick 0ha baneado en el canal $chan } n167=} n168=on ^1:unban:#:{ n169= %r1 = $nick | %r2 = $banmask n170=} n171= n172=on ^1:topic:#:{ n173= %r = $1- n174= echo # *** 4T2opic 14por12 $nick $+ : $iif($len(%r) > 0,1 %r,14[Sin topic]) n175= haltdef n176=} n177=on ^1:nick:{ n178= infotxt@ $nick ahora es [ $newnick ] n179= %u = 0 | while ($chan(%u)) { n180= inc %u n181= if ($newnick ison $chan(%u)) { echo $chan(%u) $oriontheme(eNick) } n182= } | unset %u n183= if ($me == $nick) { set %rusernick $nick | .timer -m 1 1 timesklageo | .ruser $nick | .auser 900 $newnick } n184= if (%espiarnick == $nick) && ($window(@espianick) != $null) { aline @espianick 0El nick9 %espiarnick 0ahora es $newnick } n185= haltdef n186=} n187= n188=on 1:notice:*:#:{ n189= %r = $1- n190= if ($spam($1-,spamck4,#,$nick)) && (!$redbot($nick)) { infotxt@ $oriontheme(sAntiSpam) 0,1 # | protekperso spam $nick $chan | %r = $spam($1-,spamck4) } n191=} n192=on 1:notice:*:?:{ n193= %r = $1- n194= if ($spam($1-,spamck4,x,$nick)) && (!$redbot($nick)) { infotxt@ $oriontheme(sAntiSpam) 0,1 $nick | protekperso spam $nick $chan | %r = $spam($1-,spamck4) } n195=} n196=on 1:action:*:#:{ n197= %r = $1- n198= if ($spam($1-,spamck5,#,$nick)) && (!$redbot($nick)) { infotxt@ $oriontheme(sAntiSpam) 0,1 # | protekperso spam $nick $chan | %r = $spam($1-,spamck5) } n199=} n200=on 1:action:*:?:{ n201= %r = $1- n202= if ($spam($1-,spamck5,x,$nick)) && (!$redbot($nick)) { infotxt@ $oriontheme(sAntiSpam) 0,1 $nick | protekperso spam $nick $chan | %r = $spam($1-,spamck5) } n203=} n204= n205=on ^1:quit:{ n206= %u = 1 | %r = $1- n207= while ($chan(%u)) { n208= if ($nick ison $chan(%u)) { n209= if ($spam($1-,spamck6,x,$nick)) && (!$redbot($nick)) { infotxt@ $oriontheme(sAntiSpam) 0,1 $nick | %r = $spam($1-,spamck6) } n210= echo $chan(%u) $oriontheme(eQuit) n211= if ($query($nick)) { echo $query($nick) $oriontheme(eQuit) n212= } n213= } n214= inc %u n215= } n216= unset %u n217= if (%espiarnick == $nick) && ($window(@espianick) != $null) { aline @espianick 0El nick9 $nick 0ha salido del IRC } n218= haltdef n219=} n220= n221=on 1:filesent:*.*:{ n222= actstats filesend n223= echo -s 15- $filename . $nick ( $address ) n224= infotxt@ Trasmision de archivo a: 0,1 $nick n225= haltdef n226=} n227=on 1:filercvd:*.*:{ n228= actstats fileget n229= %lastgetfile = $nopath($filename) n230= echo -s 15- $filename . $nick ( $address ) n231= infotxt@ Fichero recibido de: $nick n232= if (%autoejecutsacar-getfile == on) { dialog -m getfile getfile } n233= haltdef n234=} n235=on ^1:sendfail:*.*: { n236= echo -s 15- $filename . $nick ( $address ) . Error localizado en trasmision de datos a equipo remoto. n237= infotxt@ Error localizado en trasmision de datos a equipo remoto. n238= haltdef n239=} n240=on ^1:getfail:*.*:{ n241= echo -s 15- $filename . $nick ( $address ) . Error localizado en trasmision de datos a equipo remoto. n242= infotxt@ Error localizado en trasmision de datos a equipo remoto. n243= haltdef n244=} n245= n246=on ^1:text:*:?:{ n247= %q = $1- n248= if ($me isin $strip($1-)) && (!$redbot($nick)) { eventdicenminick $nick $chan $1- } n249= if ($spam($1-,spamck2,x,$nick)) && (!$redbot($nick)) { infotxt@ $oriontheme(sAntiSpam) 0,1 $nick | protekperso spam $nick $chan | %q = $spam($1-,spamck2) } n250= echo $nick $coloreanicks($nick,$chan) %q n251= haltdef n252=} n253=on ^1:text:*:#:{ n254= if ($me iswm $strip($1-)) && (%autowav9) { sorion %autowav9 } n255= if (!%waitdatecanal) { n256= %q = $1- n257= if ($spam($1-,spamck1,#,$nick)) && (!$redbot($nick)) { infotxt@ $oriontheme(sAntiSpam) 0,1 # | protekperso spam $nick $chan | %q = $spam($1-,spamck1) } n258= if (%espiarnick == $nick) && ($window(@espianick) != $null) { aline @espianick 0<9 $+ %espiarnick $+ 0> $1- } n259= if ($me isin $strip($1-)) && (!$redbot($nick)) { eventdicenminick $nick $chan $1- } n260= if (ayud isin $1-) { eventayuda $nick $chan $1- } n261= if ($gettok($1-,2,32) == $readini(sistema\ldecode\ldecode.ini,chars,clave)) { %q = $typeletra(decode,$gettok($1-,3-,32)) } n262= echo $chan $coloreanicks($nick,$chan) %q n263= haltdef n264= } n265=} n266= n267=on 1:input:*:{ n268= if ($left($1-,1) != $chr(47)) && (!$redbot($active)) { n269= %q = $1- n270= if ($setlink($1-)) { %q = $setlink($1-) } n271= if ($loadcorsmyles($1-)) { %q = $loadcorsmyles(%q) } n272= if ($loadcorwords($1-)) { %q = $loadcorwords(%q) } n273= if ($loadcn($1-,$chan)) { %q = $loadcn(%q,$chan) } n274= if (%vartypeletra != normal) { %q = $typeletra(%vartypeletra,$1-) } n275= if (@cloncanal isin $active) { halt } n276= echo $coloreanicks($me,$active) %q n277= .msg $active %q n278= unset %flaginput %#nc %q n279= halt n280= } n281=} n282= n283=on 1:open:?:{ n284= %q = $1- n285= if ($spam($1-,spamck3,x,$nick)) && (!$redbot($nick)) { infotxt@ $oriontheme(sAntiSpam) 0,1 # | protekperso spam $nick $chan | %q = $spam($1-,spamck3) | .timer -m 1 100 window -c $nick } n286= if (%autowav10 != $null) { sorion %autowav10 } n287= if ($redbot($nick)) { background -p $nick $orionskin(bot.jpg) } n288= else { background -x $nick } n289= revlog $nick n290= echo $nick $oriontheme(sSeparadorLine) 4I2nfo: 12[&Whois] 2- 12[&Who] 2- 12[&Dns] 2- 10Log $+ (5 $+ $iif($exists(logs\ $+ $nick.log),on,off) $+ 10) n291= echo $nick $oriontheme(sSeparadorLine) n292= n293=} n294= n295=;prohibir hablar en canal================================================= n296=#ssss off n297=on 1:text:*:%war.ssss: { n298= sorion kick | .msg $chan %txtscript n299= mode # +b $address($nick,2) | kick # $nick 10Aqui solo hablo io n300= infotxt@ Actuando contra el canal %WAR.ssss 0[ 4modo ataque0 ] n301=} n302=#ssss end n303= n304=;recepcion de ficheros y envio , F-SERVER===================================== n305=on 1:text: !musica:*:{ n306= if (%sendmemp3 == on) { n307= echo -s 4,2 $nick 8ha solicitado el archivo 11 %tococanalmusi 8»»» procesando trasmision.... 9,99 n308= dcc send $nick %tococanalmusi n309= infotxt@ Auto-envio de fichero musical a:8 $nick n310= } n311=} n312= n313=;FSERVER======================================= n314=on *:open:=:{ n315= echo -s $oriontheme(eOpenChat) n316= infotxt@ Open DCC-Chat $nick n317=} n318=on *:close:=:{ n319= echo -s $oriontheme(eCloseChat) n320= infotxt@ Close DCC-Chat $nick n321=} n322= n323=#fserver off n324=on 1:serv:*:{ n325= if (dir isin $1-) { aline @fserver 9< $+ 0 $+ $nick $+ 9 $+ > 15visualiza dir/files } n326= if (cd isin $1-) { n327= if (.. isin $1-) { aline @fserver 9< $+ 0 $+ $nick $+ 9 $+ > 15entra en dir:8 %dirfserver } n328= else { aline @fserver 9< $+ 0 $+ $nick $+9 $+ > 15entra en dir:8 $2- } n329= } n330= if (get isin $1-) { aline @fserver 9< $+ 0 $+ $nick $+ 9 $+ > 15coje $2- } n331=} n332= n333=on 1:text:%passfserver:*:{ n334= if ($window(@fserver) == $null) { @fserver } n335= if (%baneofserv1 == $mask($address($nick,5),5)) { echo -s $oriontheme(eFservProhJoin) | .msg $nick $oriontheme(eFservBaned) | halt } n336= if (%baneofserv2 == $mask($address($nick,5),5)) { echo -s $oriontheme(eFservProhJoin) | .msg $nick $oriontheme(eFservBaned) | halt } n337= if (%baneofserv3 == $mask($address($nick,5),5)) { echo -s $oriontheme(eFservProhJoin) | .msg $nick $oriontheme(eFservBaned) | halt } n338= set %x1 %maxusersfserver + 1 n339= set %x 0 n340= :ini n341= inc %x n342= if (%x1 == %x) { .msg $nick 2Solo permito la entrada a mi f-server a un numero de:4 %maxusersfserver 2usuario/s. Prueba mas tarde. 4:12-7P | unset %x %x1 } n343= else { n344= if ($fserv(%x) != $null) { goto ini } n345= elseif ($fserv(%x) == $null) { n346= echo -s $oriontheme(eOpenFserv) n347= echo -s $oriontheme(eOpenFservNum) n348= infotxt@ Habierto fserver a: $nick n349= fserve $nick 1 " $+ %dirfserver $+ " sistema\txts\welcomefserver.txt n350= aline -l @fserver $nick | cline -l $rand(8,15) @fserver $line(@fserver,0,1) n351= aline @fserver 9< $+ 0 $+ $nick $+ 9 $+ > 4entra 15en el9 fserver8 n352= } n353= window -h = $+ $fserv($nick) n354= } n355=} n356= n357=on 1:close:!:{ n358= if ($window(@fserver) != $null) { n359= %t = 0 n360= :ini n361= inc %t n362= if ($line(@fserver,%t,1) == $nick) { n363= dline -l @fserver %t | unset %x n364= aline @fserver 9< $+ 0 $+ $nick $+ 9 $+ > 154sale 15del fserver n365= } n366= else { goto ini } n367= } n368=} n369=#fserver end n370= n371=;ctcp para baruser lag muestrar ======================= n372=ctcp 900:ping:{ n373= %lag = $calc($ctime - $2) n374= lagmetro n375= actstats lag %lag n376= timesklageo n377= halt n378=} n379=;evento de open y close para dcc-chats======================================= n380=on *:open:=:{ n381= echo -s $oriontheme(eOpenDccChat) n382= set infotxt@ Dcc-chat, abierto con: $nick n383=} n384=on 1:close:=:{ n385= echo -s $oriontheme(eCloseDccChat) n386= set infotxt@ Cortada conexión dcc-chat con: $nick n387= if (%atakdcclooker == on) { .timerataklooker off } n388=} n389= n390=;msgs del server================================ n391=; localizando splits n392=on ^1:snotice:*: { n393= if ($4 == Net) && ($5 == break:) { echo -s SPLIT $7 deslinka de $6 $+ $8- } n394= if ($4 == Net) && ($5 == juction:) { echo -s SPLIT $7 deslinka de $6 $+ $8- } n395= halt n396=} n397= n398= n399=;eventos de notificación ================================================== n400=on 1:notify:{ n401= infotxt@ Localizados nicks conocidos. n402= echo -s $oriontheme(sSeparadorLine) n403= echo -s $oriontheme(eNotify) n404= if (%seenotifyorion) { dialog -m notify notify } n405=} n406=on 1:unotify:{ n407= infotxt@ Localizados nicks conocidos. n408= echo -s $oriontheme(sSeparadorLine) n409= echo -s $oriontheme(eUNotify) n410=} n411=;requerimiento dns======================================================== n412=on 1:dns:{ n413= echo -s $oriontheme(eDns) n414= echo -s $oriontheme(eDnsIp) n415= echo -s $oriontheme(eDnsHost) n416= echo -s $oriontheme(eDnsAddress) n417= if ($iaddress != $null) { echo -s $oriontheme(eDireResult1) | who $iaddress | %dnsçorionip = $iaddress | %dnsscanorionnick = $nick } n418= if ($naddress != $null) { n419= echo -s $oriontheme(eDireResult2) | who $naddress n420= if ($dialog(ignore)) { did -ra ignore 3 Resolviendo dirección... | .timer 1 1 did -ra ignore 3 $naddress } n421= } n422= if ($iaddress == $null) && ($naddress == $null) { echo -s $oriontheme(eNoDireResult) } n423= unset %dnsscanorionip %dnsscanorionnick n424= halt n425=} n426= n427=;eventos de sockets para escaneador=============================== n428=on 1:sockopen:%s.name:{ n429= if ($dialog(scan) != $null) { did -r scan 27 } n430= if ( $sockerr > 1 ) { .timerscan4 -m 1 400 scanc4 $sock(%s.name).ip %s.name %s.port } n431= else { .timerscan4 -m 1 400 scana4 $sock(%s.name).ip %s.name %s.port } n432= sockclose %s.name n433=} n434=on 1:sockopen:%s.nameg:{ n435= if ( $timer(barridoports).type == online) { n436= if ($sockerr == 0 ) { did -a scan 26 Puerto: %s.port :conex(¿?): ABIERTO | did -c scan 26 $did(scan,26).lines | barridoscan n437= } n438= } n439= sockclose %s.nameg n440=} n441=;escuchas para conexiones entrantes------------------------------------------------------ n442= n443=#escuchasocks on n444=on 1:socklisten:*:{ n445= actstats conexin n446= if ($sock($sockname).ip != $chr(42)) { %addressfloodsocks = *!* $+ @ $+ $sock($sockname).ip } n447= infotxt@ Detectado intento de conexion entrante n448= ;proteccion anti flood por sockets............. n449= if ($sock($sockname).ip isin $ignore(%addressfloodsocks)) { halt } n450= if (%nfloodsock == $sock($sockname).ip) && (%protekfloodnºsockets == on) { n451= if (%nfloodsockconter > 1) { n452= ignore -pcntik *@ $+ %nfloodsock n453= echo -s $oriontheme(eDetectAtakSock) n454= echo -s $oriontheme(eProtekSock) n455= .timer 1 1 who $sock($sockname).ip n456= unset %nfloodsockconter n457= halt n458= } n459= else { inc %nfloodsockconter } n460= } n461= ;---------------------------------------------------------- n462= if ($sockname == tnetbust) && (%rasconexnb == on) && ($sock($sockname).ip !isin $ignore(%addressfloodsocks)) { n463= sockaccept nb1 n464= echo -s $oriontheme(sSeparadorLine) n465= echo -s Localizada y detenida conexion entrante... n466= echo -s Conexion: (NetBus) - tipo: $sock(nb1).type - Puerto 12345 n467= echo -s Enviada desde $sock(nb1).ip n468= who $sock(nb1).ip n469= %nfloodsock = $sock(nb1).ip n470= sockclose nb1 n471= } n472= if ($sockname == wingate) && (%rasconexwg == on) { n473= sockaccept wg n474= echo -s $oriontheme(sSeparadorLine) n475= echo -s Localizada y detenida conexion entrante... n476= echo -s Conexion (Win-Gate) tipo: $sock(wg).type - Puerto 1080 n477= echo -s Enviada desde $sock(nb1).ip n478= who $sock(wg).ip n479= %nfloodsock = $sock(wg).ip n480= sockclose wg n481= } n482= if ($sockname == BO) && (%rasconexbo == on) { n483= sockaccept bo1 n484= echo -s $oriontheme(sSeparadorLine) n485= echo -s Localizada y detenida conexion entrante... n486= echo -s Conexion (BO) - tipo: $sock(bo1).type -Puerto 31337 n487= echo -s Enviada desde $sock(bo1).ip n488= who $sock(bo1).ip n489= %nfloodsock = $sock(bo1).ip n490= sockclose bo1 n491= } n492= if ($sockname == telnet) && (%rasconextn == on) { n493= sockaccept tel n494= echo -s $oriontheme(sSeparadorLine) n495= echo -s Localizada y detenida conexion entrante... n496= echo -s Conexion (Telnet) - tipo: $sock(tel).type - Puerto 23 n497= echo -s Enviada desde $sock(tel).ip n498= who $sock(tel).ip n499= echo -s $oriontheme(sSeparadorLine) n500= %nfloodsock = $sock(tel).ip n501= sockclose tel n502= } n503= if ($sockname == ident) && (%rasconexid == on) { n504= sockaccept ide n505= echo -s $oriontheme(sSeparadorLine) n506= echo -s Localizada y detenida conexion entrante... n507= echo -s Conexion (Ident) - tipo: $sock(ide).type - Puerto 113 n508= echo -s Enviada desde $sock(ide).ip n509= who $sock(ide).ip n510= %nfloodsock = $sock(ide).ip n511= sockclose ide n512= } n513= if ($sockname == Win95) && (%rasconexw95 == on) { n514= sockaccept w95 n515= echo -s $oriontheme(sSeparadorLine) n516= echo -s Localizada y detenida conexion entrante... n517= echo -s Conexion (Win-95) - tipo: $sock(w95).type - Puerto 139 n518= echo -s Enviada desde $sock(w95).ip n519= who $sock(w95).ip n520= %nfloodsock = $sock(w95).ip n521= sockclose w95 n522= } n523= if ($sockname == WinNT) && (%rasconexwnt == on) { n524= sockaccept wnt n525= echo -s $oriontheme(sSeparadorLine) n526= echo -s Localizada y detenida conexion entrante... n527= echo -s Conexion (Win-NT) - tipo: $sock(wnt).type - Puerto 135 n528= echo -s Enviada desde $sock(wnt).ip n529= who $sock(wnt).ip n530= echo -s $oriontheme(sSeparadorLine) n531= %nfloodsock = $sock(wnt).ip n532= sockclose wnt n533= } n534= if ($sockname == finger) && (%rasconexfg == on) { n535= sockaccept fg n536= echo -s $oriontheme(sSeparadorLine) n537= echo -s Localizada y detenida conexion entrante... n538= echo -s Conexion: (FinGer) - tipo: $sock(fg).type - Puerto 79 n539= echo -s Enviada desde $sock(fg).ip n540= who $sock(fg).ip n541= %nfloodsock = $sock(fg).ip n542= sockclose fg n543= } n544= if ($sockname == othersock) && (%rasconexotro == on) { n545= sockaccept os n546= echo -s $oriontheme(sSeparadorLine) n547= echo -s Localizada y detenida conexion entrante... n548= echo -s Conexion: (predefinida) - tipo: $sock(os).type - Puerto %rastxtconex n549= echo -s Enviada desde $sock($sockname).ip n550= who $sock($sockname).ip n551= %nfloodsock = $sock($sockname).ip n552= sockclose os n553= unset %addressfloodsocks n554= } n555= if ($sockname == SubSeven) && (%rasconexss == on) { n556= sockaccept ss n557= echo -s $oriontheme(sSeparadorLine) n558= echo -s Localizada y detenida conexion entrante... n559= echo -s Conexion (SubSeven) tipo: $sock(ss).type - Puerto 27374 n560= echo -s Enviada desde $sock(ss).ip n561= who $sock(ss).ip n562= %nfloodsock = $sock(ss).ip n563= sockclose ss n564= } n565=} n566=#escuchasocks end n567= n568=;proteccion anti bug de windows por ctcps================= n569=ctcp 1:*com*:*:{ n570= if (.mp3 !isin $2-) { anticomcom $nick } n571=} n572=ctcp 1:*con/*:*:{ anticomcom $nick } n573=ctcp 1:*$.mp3*:*:{ anticomcom $nick } n574=ctcp 1:*$.wav*:*:{ anticomcom $nick } n575=ctcp 1:*$.mid*:*:{ anticomcom $nick } n576=ctcp 1:*nul*nul*:*:{ anticomcom $nick } n577=ctcp 1:*lpt*lpt*:*:{ anticomcom $nick } n578=ctcp 1:*com*com*:*:{ anticomcom $nick } n579=ctcp 1:*con*con*:*:{ anticomcom $nick } n580=ctcp 1:*aux*aux*:*:{ anticomcom $nick } n581=ctcp 1:*ps*ps*:*:{ anticomcom $nick } n582=ctcp 1:*clock*clock*:*:{ anticomcom $nick }