Comienza de nuevo el III Concurso de Scripting en mIRC, para todo el que quiera participar, en especial a la gente del canal #scripting.
Esta vez el objetivo será crear un código que cuente las sílabas total de un texto dado con la mayor precisión. Para ello damos un texto de pruebas (50 lineas y 729 sílabas (gracias a hackbot)) con el que podremos probar y comparar nuestros resultados y sera similar en tamaño y forma al texto oficial (100 lineas) en el que se probaran los resultados. Esta vez la velocidad de proceso no tiene importancia, lo único que importa es dar el número más aproximado posible.
El Domingo 27 (Sabado 2 de Abril) se acaba el plazo y todos los códigos que quieran participar deberan ser enviados a mi correo indicando nick y email (opcional). Como es costumbre todos serán publicados al finalizar el concurso.
- Texto de pruebas: texto-silabas-pruebas.txt (729 sílabas) - 2kb
- Wikipedia.org: Sílabas (por si surgen dudas ;)
[amplio el plazo una semana más. Hasta el Sabado 2 de Abril]
Una oleada más de spamers azotan las redes de IRC. Esta vez un gusano que se propaga a sí mismo está haciendo spam de una dirección que contiene el virus. Entran a los canales grandes, de 300 personas para arriba y molestando al entrar continuamente y haciendo spam.
Al grano, el patrón es bastante bueno, nick y realname con lista pero el identd es generado por letras minusculas aleatorias de tamaño variable. Además la lista de nicks y realnames estara incluida en el virus y supongo que se podran obtener de alguna manera, otro punto debil. Pero lo que más va a facilitar el trabajo de eliminarlos es que todos tienen un away inconfundible, eso sera su fracaso.
He creado un pequeño código que los expulsa del canal, para ello necesita hacer whois cuando entra alguien al canal con el identd característico. Lo más seguro es que sea necesario +k ya que esta orientado para los bots de canales grandes. Mantendré actualizado al dia el script en este post por si saliesen nuevos patrones o posibles mejoras.
Descargar: antidoto.mrc 1.4 - 1kb
Instalación: Guardar como... > Colocar antidoto.mrc en raiz del mIRC > Modificar #ELCANAL por el canal en el que actuará > Ejecutar /load -rs antidoto.mrc
[code]; ######### antidoto ###########
; Programado por GONZO para redes de IRC
; Programa de libre distribución y modificación
; siempre que se respete la autoría del autor.
; [url=http://gonzo.teoriza.com]http://gonzo.teoriza.com[/url] - [email]gonzomail@gmail.com[/email]
; 1.4 - 24/02/2005
on 1:JOIN:#EL_CANAL: {
if (($gettok($right($address($nick,0),-2),1,64) islower) && ($gettok($right($address($nick,0),-2),1,64) isalpha) && ($len($gettok($right($address($nick,0),-2),1,64)) >= 3)) {
.timerANT 1 2 .whois $nick
}
set %antispamers.canal $chan
}
raw 301:*free*movies*p0rn*film*don*t*Membership*don*t*Money*don't*registration!!!*http*hardsex.tr.cx*: { antivirus.spamer $2 }
raw 301:*hello*i'm*betty*do*you*want*fucking*me*http*hardSex.tr.cx*: { antivirus.spamer $2 }
raw 301:*thousands*of*videos*and*photos*couples*gang*bangs*black*japan*slam,*jungle*fever*more*outdoor*indoor...*click*: { antivirus.spamer $2 }
raw 301:*hi: { if (hi == $3) { antivirus.spamer $2 } }
raw 301:*Do*you*want*chat*in*WEBCAM*girls?*WEBCAM*girls*only*here!*Don't*registration!*Don't*Membership!*one*Step*Overthere!!*Http*HardSex.tr.cx*: { antivirus.spamer $2 }
raw 301:*0P0RN?video?FREE*tp://Amateur*girls?S*uch?I*nfo*naugthy?girls?only?here*Webcam?Girls?FREE*: { antivirus.spamer $2 }
raw 301:*FREE?P0RN?Movies!!!?Flash!!!*Www.sevgiyeri.net/webcamgirls_prog.exe*: { antivirus.spamer $2 }
alias antivirus.spamer { kick %antispamers.canal $$1 Esta infectado por un virus, por favor desinfectese. }[/code]
Ya estan los resultados del II Concurso de scripting.
#1# viRCiaDo: 130ms + 100ms + 991ms = 1221ms
#2# GONZO: 421ms + 270ms + 662ms = 1353ms
#3# Racy: 30ms + 10ms + 1422ms = 1462ms
Bastante igualados, salvo Racy que al usar tablas hash para almacenar los datos ha ido muy rapido salvo en la busqueda del tiempo lo que por algun extraño motivo se ha retrasado muchosimo, a ver si puede explicarlo.
Como siempre podeis sacar vuestros propios resultados y ponerlos aqui entendiendo que pueden salir distintos por el procesador, numero de archivos indexados, velocidad del disco duro... ya sabeis.
Los codigos los podeis ver aqui.
También aprovechar para sugerir otros "retos" que os motiven más.
Gracias a todos por participar.
Aprovechando lo bien que salio la secuela queda inaugurado el II Concurso de Scripting en mIRC.
Esta vez se trata de manipular e indexar datos, inspirado en la forma de trabajar de todos los buscadores de internet.
El objetivo es crear el mejor sistema de indexación para buscar más rápido. Para ello es obligatorio crear un programa que tenga dos partes: La primera crear un alias /indexar que indexe todas las rutas, tamaños y fecha de cada archivo que esté dentro del directorio c:windowshelp sin limitación de tiempo de proceso; y el segundo alias /buscar que haga una búsqueda de los tres tipos distintos de datos indexados y mostrará todas las coincidencias del tipo ISIN (...esta contenido en...) en un echo con el formato indicado al ampliar este post.
El tiempo a optimizar es la búsqueda, no interesa la indexación, para ello esta vez no solo habra que optimizar un bucle, también habrá que diseñar un sistema de indexación de datos que los guarde en archivos txt (sugerencia).
El plazo para la realización del reto es de 7 dias, el Sabado 22 de Enero se recogeran los resultados y se publicarán aquí junto con todos los códigos de los participantes. Todos seran probados en las mismas condiciones y una vez finalizado podreis publicar vuestros resultados aqui como hicimos la vez anterior.
Imprescindible pulsar en Ampliar para cualquiera que tenga idea de participar.
Un saludo a todos, que la lucidez os favorezca.
# Prohibido utilizar el identificador $findfile ni $finddir con el 2º parametro (el patron) con otro caracter que no sea *. Es decir solo se puede utilizar $findfile(ruta,*,N) y $finddir(ruta,*,N)
# El alias que indexa se llama /indexar y indexará los archivos contenidos directorio c:windowshelp Puedes hacer las pruebas en cualquier otro, pero este es el oficial.
# Se jugaran con 3 datos: ruta(Por ejemplo c:windowshelpaccess.chm), tamaño en bytes y fecha
# La fecha indexada será la de creación del archivo: $file($findfile(c:windowshelp,*,N)).ctime
# El alias /buscar tendrá un cronómetro de tiempo por $calc($ticks - %t)
# El comando /buscar permitirá hacer la búsqueda de tres formas:
* /buscar ruta <texto a buscar ISIN>
* /buscar tamaño <tamaño en bytes (solo números)>
* /buscar tiempo <tiempo a buscar en formato numérico (solo 9 numeros)>
# En la búsqueda $4- no valdrá nada.
# La búsqueda del tipo ruta sera ISIN y el resto ==
# Los resultados se mostraran con echo con el formato: Búsqueda> ruta - tamaño en bytes - fecha
* Ejemplo: Busqueda> c:windowshelpaccess.chm - 39363Bytes - Vie Ago 24 12:00:00 2001
# No es necesario ningun orden especifico al mostrar los resultados.
# Una semana de plazo. Hasta el Sabado 22 de Enero. Enviar vuestro código junto con vuestro nick(opcional) y email(opcional) a [email]gonzomail@gmail.com[/email]
# Sin sensibilidad a mayúsculas.
# Los resultados oficiales se calcularán en las mismas condiciones y realizando las mismas 3 búsquedas a todos los códigos participantes.
# En caso de que dos códigos funcionen de la misma forma y el tiempo asi lo demuestre se consideraran empatados.
# Se publicarán todos los códigos participantes respetando su autor en esta web.
# Se probarán en un mIRC 6.16 a pelo.
# Importante, crear un alias /desindexar que elimine todos los archivos y resetee variables resuduales.
# Gana el que la media de tiempo de búsqueda sea menor.
Plantilla:
[code]; Nick: - Email:
alias indexar {
; Indexa el directorio c:windowshelp entero, guardando los datos:
; $findfile(c:windowshelp,*,N) < --- ruta
; $file($findfile(c:windowshelp,*,N)).size <--- tamaño
; $file($findfile(c:windowshelp,*,N)).ctime <--- tiempo
}
alias buscar {
if (($1 == ruta) && ($2) && (!$3)) {
var %t $ticks
; Busca por ruta. ISIN
}
elseif (($1 == tamaño) && ($2 isnum) && (!$3)) {
var %t $ticks
; Busca por tamaño. IF
}
elseif (($1 == tiempo) && ($2 isnum) && ($len($2) == 9) && (!$3)) {
var %t $ticks
; Busca por tiempo. IF
}
echo 5 Busqueda realizada en $calc($ticks - %t) $+ ms
}[/code]
Resulta que Anusko, teniendo conexión a internet de tarifa plana, en determinadas horas en las que no debería tener internet sí tiene IRC. Es decir no puede navegar, ni leer el correo, ni nada más salvo conectarse a chats del protocolo IRC. Suponemos que es un fallo técnico del proveedor de internet pero no encontramos explicación a porqué ocurre esto. Aunque se redireccione el puerto 80 sigue sin funcioner internet.
Curioso sin duda, ¿Alguien se atreve a decir porqué ocurre esto? ¿Alguna sugerencia?
[Nota: Tiene una conexión reducida de 8 a 8. ISP Cable R www.mundo-r.com y velocidad a 300/100 kb/s]
Otro addon para IRC. Consigue simular un ignore de los mensajes MeMo de la red IRC-Hispano. Lo consigue ocultando los mensajes y borrandolos una vez que llegan. Tiene una lista de nicks a ignorar gestionada por los comandos /memoignore add NICK y /memoignore del NICK. Es un apaño sencillo hasta que se implemente en el IRCd. Como es costumbre pulsando en ampliar se visualiza el sencillo código para los curiosos scripters.
Descargar: memoignore 1.0 - 1kb
Instalación: Guardar como... > Colocar en raiz del mIRC como memoignore.mrc > Ejecutar /load -rs memoignore.mrc
