LibertadHack

Actualización downloadergoear

2011-10-30T16:42:00.000-06:00

Hace unos días se cambió la apariencia de goear.com por lo que el programa downloadergoear que hice había dejado de funcionar.

Pero ya he hecho los cambios pertinente para que de nuevo funcione, y podamos descargar música :D

Saludos!

DOWNLOAD:

Descargar código fuente: downloadergoear-current.tar.gz - SOURCES
Descargar instalador (Debian, Ubuntu): downloadergoear-current.deb - DEB

Aplicación: myipgb Saber tu IP pública

2011-10-30T16:32:00.001-06:00

Hace tiempo en el foro de gambas-es se abrió un hilo sobre como saber la IP pública. La solución que dieron fue la de conocerla desde una web como http://whatismyip.org/ o como http://dynupdate.no-ip.com/ip.php

Y yo por mi parte contribuí a hacer un pequeño script gambas (gbs2) para crear un icono en el área de notificaciones que mostrase la IP pública.

Pues bien, aquí les dejo el script.

Y para más info vean el hilo http://www.gambas-es.org/saber-direccion-ip-externa-vt1827.html


#!/usr/bin/env gbs2

' myipgb.gbs - Saber la IP pública
' $ ./myipgb.gbs [tiempo en ms] 

USE "gb.gui"
USE "gb.form"
USE "gb.net"
USE "gb.net.curl"

PUBLIC F AS NEW Form
PUBLIC TimerIP AS Timer
PUBLIC TrayIP AS TrayIcon
PUBLIC mTray AS Menu
PUBLIC mIP AS Menu
PUBLIC mCopy AS Menu
PUBLIC mQuit AS Menu
PUBLIC HttpClientIP AS HttpClient

PUBLIC SUB Main()

  mTray = NEW Menu(F, TRUE)
  mTray.Visible = FALSE

  mIP = NEW Menu(mTray) AS "mIP"
  mIP.Caption = "IP"
  mCopy = NEW Menu(mTray) AS "mCopy"
  mCopy.Picture = Stock["16/copy"]
  mCopy.Caption = "Copy IP"
  mQuit = NEW Menu(mTray) AS "mQuit"
  mQuit.Picture = Stock["16/quit"]
  mQuit.Caption = "Quit"

  TrayIP = NEW TrayIcon AS "TrayIP"
  TrayIP.Picture = Stock["16/network"]
  TrayIP.Visible = TRUE

  HttpClientIP = NEW HttpClient AS "HttpClientIP"
  HttpClientIP.URL = "http://whatismyip.org/"
  HttpClientIP.Async = TRUE
  HttpClientIP.Get

  TimerIP = NEW Timer AS "TimerIP"
  IF Val(Application.Args[1]) THEN
    TimerIP.Delay = Val(Application.Args[1])
  ELSE
    TimerIP.Delay = 1800000 ' 30 min
  ENDIF
  TimerIP.Start

END

PUBLIC SUB TimerIP_Timer()

  HttpClientIP.Get

END

PUBLIC SUB mQuit_Click()

  PRINT "QUIT"
  QUIT

END

PUBLIC SUB TrayIP_Menu()

  mTray.Popup

END

PUBLIC SUB HttpClientIP_Finished()

  DIM sIP AS String
  IF Lof(HttpClientIP) THEN   
    READ #HttpClientIP, sIP, Lof(HttpClientIP)
  END IF
  PRINT Time(Now), sIP
  mIP.Caption = sIP

END

PUBLIC SUB HttpClientIP_Error()

  PRINT "ERROR"
  mIP.Caption = "IP"

END

PUBLIC SUB mCopy_Click()

  Clipboard.Copy(mIP.Caption)

END

PUBLIC SUB mIP_Click()

  mIP.Caption = "IP"
  HttpClientIP.Get

END

Saludos!

Resolver problema nokia 5310b

2011-07-24T17:59:00.001-05:00

Tenía el problema de que un nokia 5310b (aunque también pasa en el nokia 5310) se apagaba constantemente, y se iniciaba en la pantalla de configuración de hora y fecha. Pasados unos segundos se desvanecía la pantalla y se apagaba o iniciaba de nuevo. Toda una lata!!!!

Al parecer eso pasa por contener algún archivo corrupto (comúnmente algún *.mp3) ya sea en la memoria SD o en la del teléfono.

Sabiendo esto, la primer solución a intentar es quitarle y formatear la memoria mini SD, el formato que debe tener es Fat16. Intenten encender de nueva cuenta el nokia.

Si eso no resolvió el problema, de seguro el archivo corrupto está en la memoria interna. Intenten conectar el teléfono al PC con el cable USB para formatear la memoria, aunque seguramente no dejará conectarlo (la verdad no probé conectar el fono al PC, perdí el cable, je). Otra forma de formatear la memoria es resetear el teléfono a sus condiciones iniciales (CUIDADO: Esto eliminará toda tu info). Para ello primero retira tu SIM por cualquier cosa, luego en tu teléfono ve a MENU > SETTINGS > Rest. Factory Sett. te pedirá un código de seguridad el cual por default es 12345. Tienes que ser rápido para que puedas hacerlo antes de que el teléfono se apague. Otra forma de acceder a la pantalla de reset es con la combinación de teclas dial *#7780#

Espero que les sirva saber esto. Saludos!

Referencias:
5310 Will Not turn on!
Nokia 5310b Troubleshooting
How to Master or Hard Reset a Nokia 5310b or 5310

nueva versión: megambasup 0.1.9 Upload files to megaupload

2011-06-19T20:37:00.000-05:00

De nueva cuenta he mejorado la aplicación megambasup.
Ahora el Filemanager permite ordenar los archivos de nuestra cuenta MU por nombre, tamaño, número de descargas y fecha de súbida.
Otra mejora es la capacidad de guardar la información entregada por el Filemanager en una hoja de cálculo, en un fichero *.ods.
Y también fueron agregadas unas etiquetas que muestran el total de ficheros que tenemos, el total de descargas y nuestros reward points.

Espero que les sea de utilidad. :)

INSTALADOR (DEB): megambasup_0.1.9.deb
FUENTES (SOURCES): megambasup-0.1.9.tar.gz

Diseño de engrane con QCAD

2011-03-21T21:39:00.001-06:00

QCAD es un buen programa para dibujo asitido por computador en 2D, en este ejemplo hago el diseño de un engrane de dientes rectos con angulo de presión de 20º.

REALIZACIÓN DEL ENGRANE

La envolvente solo se hace una vez y se aplica con el debido escalamiento para la construcción de cualquier otro engrane con ángulo de presión de 20°; en este ejemplo se hará un engrane con los siguientes datos:

Z = 20 dientes

m = 4

Ɵ = 20°

PASO 1: Crear circunferencia con radio 100*cos(20)/2 con centro en 0,0 (formula 'i')

PASO 2: Crear 12 líneas consecutivas tangentes al circulo de longitud 25*pi*cos(20)/18 (formula 'iii')

PASO 3: Crear 12 copias del grupo de líneas cubriendo 60° con Edit - Rotate

Multiple Copies: 12

Angle: -60/12

PASO 4: Usar Splines de 2do grado para unir los endpoints

PASO 5: Borrar elementos sobrantes

PASO 6: Guardar fichero, será nuestra plantilla de envolvente

PASO 7: Guardar como... (usar otro nombre) para modificar libremente

PASO 8: Seleccionar figura y aplicar escalamiento de 0.01*20*4 (formula 'iv')

PASO 9: Crear círculos con los radios indicados (formulas 'v', 'vi' y 'vii')

r_e = (20+2)*4/2

r_p = 20*4/2

r_i = 20*4/2 – 2.5*4/2

PASO 10: Crear línea que una el centro con el diámetro primitivo

PASO 11: Crear copia con Edit - Rotate con un ángulo de -360/(m Z)

Angle: -360/(4*20)

PASO 12: Aplicar mirror a la curva con eje la línea creada

PASO 13: Descomponer curvas con Edit - Explote

PASO 14: Recortar y borrar sobrantes

PASO 15: Copiar curva izquierda con un ángulo de -360/Z

Angle: -360/20

PASO 16: Unir intersección diámetros primitivos con envolventes al centro circulo

PASO 17: Recortar con diámetro raíz

PASO 18: Fillet con radio 0.25*4 (formula viii)

PASO 19: Crear 19 copias del diente cubriendo los 360°

Multiplie copies: 19

Angle: 360/20

Autor: aztk

CopyLeft 2010

Referencias:
http://www.produccionpormecanizado.es/2008/12/21/video-de-diseno-de-engranajes-con-autocad

Documento con información y formulas:
gear.odt

Archivos generados en QCAD:
qcad-gear.tar.gz

nueva versión: megambasup 0.1.2 Upload files to megaupload

2011-03-05T14:40:00.001-06:00

He mejorado un poco la aplicación megambasup para ahora permitir ver y eliminar archivos de nuestra cuenta megaupload, además de otros pequeños cambios.

INSTALADOR (DEB): megambasup_0.1.2.deb
FUENTES (SOURCES): megambasup-0.1.2.tar.gz

gambas2: TableView a hoja de cálculo (ODS)

2011-02-07T14:17:00.001-06:00

He creado un pequeño código que exporta la data contenida en un TableView o GridView a una hoja de cálculo, fichero ODS de la fundación Open Document.

Este pequeño modulo es muy simple y se limita solo a pasar la data pero sin conservar el formato de fuente.

Aquí está la parte importante del código, pero también les dejo las fuentes para su facilidad. Cualquier duda aquí andamos :)

' Gambas module file


PRIVATE pathOpendoc AS String = "/tmp/opendocgambas/" ' Ruta temporal donde se crearan los ficheros que componen el ODS


' Funcion que creará los ficheros que componen el ODS, y los empaquetará con el nombre de la variable pathODS
PUBLIC FUNCTION saveODS(controlx AS Object, pathODS AS String)

   

   DIM writer AS XmlWriter ' Creará los ficheros XML necesarios
   DIM filex AS File             ' Creará los ficheros de texto plano necesarios
   DIM iCount AS Integer     ' Índice para las filas del TableView
   DIM jCount AS Integer     ' Índice para las columnas del TableView
   

   ' Ejecutar función solo para GridViews o TableViews
   IF Object.Type(controlx) = "GridView" OR IF Object.Type(controlx) = "TableView" THEN 

   TRY MKDIR pathOpendoc                                             ' Crear directorio temporal
   TRY MKDIR pathOpendoc &/ "Configurations2"   ' Crear otros directorios para el ODS
   TRY MKDIR pathOpendoc &/ "META-INF"

   TRY MKDIR pathOpendoc &/ "Thumbnails"

   ' Crear fichero mimetype
   filex = OPEN pathOpendoc &/ "mimetype" FOR INPUT CREATE 

       PRINT #filex, "application/vnd.oasis.opendocument.spreadsheet"; ' El ";" es para no insertar una terminación de línea
   CLOSE #filex

   ' Crear fichero manifest.xml
   writer = NEW XmlWriter

   WITH writer

   .Open(pathOpendoc &/ "META-INF/manifest.xml", TRUE, "UTF-8")

   .StartElement("manifest:manifest", ["xmlns:manifest", "urn:oasis:names:tc:opendocument:xmlns:manifest:1.0"])

       .StartElement("manifest:file-entry", ["manifest:media-type", "application/vnd.oasis.opendocument.spreadsheet", "manifest:version", "1.2", "manifest:full-path", "/"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", " ", "manifest:full-path", "Configurations2/statusbar/"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", " ", "manifest:full-path", "Configurations2/accelerator/current.xml"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", " ", "manifest:full-path", "Configurations2/accelerator/"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", " ", "manifest:full-path", "Configurations2/floater/"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", " ", "manifest:full-path", "Configurations2/popupmenu/"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", " ", "manifest:full-path", "Configurations2/progressbar/"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", " ", "manifest:full-path", "Configurations2/menubar/"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", " ", "manifest:full-path", "Configurations2/toolbar/"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", " ", "manifest:full-path", "Configurations2/images/Bitmaps/"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", " ", "manifest:full-path", "Configurations2/images/"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", "application/vnd.sun.xml.ui.configuration", "manifest:full-path", "Configurations2/"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", "text/xml", "manifest:full-path", "content.xml"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", "text/xml", "manifest:full-path", "styles.xml"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", "text/xml", "manifest:full-path", "meta.xml"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", " ", "manifest:full-path", "Thumbnails/thumbnail.png"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", " ", "manifest:full-path", "Thumbnails/"])

       .EndElement()

       .StartElement("manifest:file-entry", ["manifest:media-type", "text/xml", "manifest:full-path", "settings.xml"])

       .EndElement()

   .EndElement

   .EndDocument

   END WITH 

   

   ' Crear fichero content.xml. En este fichero se encuentra la data del TableView
   writer = NEW XmlWriter

   writer.Open(pathOpendoc &/ "content.xml", TRUE, "UTF-8")

   writer.StartElement("office:document-content")

     writer.Attribute("xmlns:office", "urn:oasis:names:tc:opendocument:xmlns:office:1.0")

     writer.Attribute("xmlns:style", "urn:oasis:names:tc:opendocument:xmlns:style:1.0")

     writer.Attribute("xmlns:text", "urn:oasis:names:tc:opendocument:xmlns:text:1.0")

     writer.Attribute("xmlns:table", "urn:oasis:names:tc:opendocument:xmlns:table:1.0")

     writer.Attribute("xmlns:number", "urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0")

     writer.Attribute("xmlns:chart", "urn:oasis:names:tc:opendocument:xmlns:chart:1.0")

     writer.Attribute("xmlns:form", "urn:oasis:names:tc:opendocument:xmlns:form:1.0")

     writer.Attribute("xmlns:oooc", "http://openoffice.org/2004/calc")

     writer.Attribute("xmlns:field", "urn:openoffice:names:experimental:ooo-ms-interop:xmlns:field:1.0")

     writer.Attribute("xmlns:formx", "urn:openoffice:names:experimental:ooxml-odf-interop:xmlns:form:1.0")

     writer.Attribute("office:version", "1.2")

     

     writer.StartElement("office:body")

         writer.StartElement("office:spreadsheet")

         writer.StartElement("table:table", ["table:name", CStr(controlx.Name), "table:print", "false"])

         ' Si existen headers, también vaciarlos a la hoja de cálculo
         IF controlx.Header = GridView.Horizontal OR IF controlx.Header = GridView.Both THEN 

             writer.StartElement("table:table-row")

             FOR jCount = 0 TO controlx.Columns.Count - 1

                 writer.StartElement("table:table-cell", ["office:value-type", "string"])

                 writer.Element("text:p", controlx.Columns[jCount].Text)

                 writer.EndElement()

             NEXT 

             writer.EndElement()

         ENDIF 

         ' Vaciar la info de las celdas del TableView a la hoja de cálculo
         FOR iCount = 0 TO controlx.Rows.Count - 1 ' Recorremos las filas
             writer.StartElement("table:table-row")

             FOR jCount = 0 TO controlx.Columns.Count - 1   ' Recorremos las columnas
                 writer.StartElement("table:table-cell")

                 ' Indentificar si el dato es una string o un dato numerico
                 IF Str$(Val(controlx[iCount, jCount].Text)) = controlx[iCount, jCount].Text THEN 

                     writer.Attribute("office:value-type", "float")

                     writer.Attribute("office:value", controlx[iCount, jCount].Text)

                 ELSE 

                     writer.Attribute("office:value-type", "string")

                 ENDIF 

                 writer.Element("text:p", controlx[iCount, jCount].Text)

                 writer.EndElement()

             NEXT 

             writer.EndElement()

         NEXT 

         writer.EndElement()

     writer.EndElement()

   writer.EndElement()

   writer.EndDocument()

   

   ' Creamos un script bash para empaquetar los ficheros y directorios del ODS
   filex = OPEN pathOpendoc &/ "pckods" FOR INPUT CREATE 

       PRINT #filex, "#!/bin/bash"

       PRINT #filex, "# Script creado con gambas, comprime ficheros para crear un documento ODS"

       PRINT #filex, "cd $(dirname $0)"

       PRINT #filex, "zip -r $1 Configurations2 META-INF Thumbnails content.xml mimetype"

   CLOSE #filex

   EXEC ["chmod", "+x", pathOpendoc &/ "pckods"] WAIT

   EXEC [pathOpendoc &/ "pckods", pathODS] WAIT ' Ejecutamos el script
   ELSE 

       ERROR "El control no es un GridView o TableView"

   ENDIF 

   

END



' aztk
' Tenochtitlan. Febrero del 2011
' CopyLeft

Picture: Tecnología Gambas

2011-02-07T13:39:00.000-06:00

En el foro de gambas-es el usuario jsbsan puso un hilo acerca de una convocatoria para la creación de un logotipo "Hecho con Gambas", la neta como yo no sé ni madres del diseño grafico no quería participar, pero despues de ver que había mucha participación me motivó a crearme el mio....... :)

Con esta pequeñisima experiencia me he dado cuenta que los bros/sis que le meten al GIMP o similares son chingones, jejeje :) por que a mi que la neta me costó un buen, y eso que no hice gran cosa.

Bueno, pss allí está mi pequeño aporte para el que le sea útil, también dejo el xcf pal' GIMP.

Fichero XFC (para GIMP)

Nota: Si quieren ver mas logotipos creados por los usuarios de gambas-es, ver el hilo Logotipo "Hecho con Gambas"...

Saludos!

megambasup (vídeo)

2011-01-15T21:13:00.001-06:00

He hecho un pequeño clip donde se ve el uso de la apicación megambasup. Entre las funciones de la app se notan:

Verificar usuario y contraseña
Habilitar algunas configuraciones
Importar ficheros desde el botón 'add files...'
Arrastrar y soltar ficheros hacia megambasup, para importarlos
Importar ficheros desde una lista (anteriormente creada con el mismo megambasup)
Subida de ficheros
Presentación del progreso de subida en una progress bar
Manipulación de la lista con los botones up, down, top and bottom
Cancelación de subidas
Entrega de los links de megaupload
etc

Je, mi primer vídeo en youtube.

Saludos!

megambasup: Upload files to megaupload

2011-01-10T18:35:00.004-06:00

He desarrollado un front-end, gui, aplicación o programa (no sé lo que es, je) que usa plowshare (plowshare es un conjunto de bash scripts para descargar y subir ficheros de diferentes sitios de file-sharing) usando el lenguaje e IDE gambas2 (gambas es un lenguaje de programación para sistemas Linux).

Con este programa podemos subir ficheros desde nuestro ordenador a megaupload, usando una free account.

Para instalar plowshare baje el instalador desde su sitio web, http://code.google.com/p/plowshare

Este programa surgió como una alternativa personal ante la aplicación megajc (otro programa hecho en gambas2 y que hace uso de plowshare) http://sourceforge.net/projects/megajc/. En un primer momento traté de remplazar la consola de eventos que tenía el megajc a una barra de progreso, pero termine optando por crear una nueva aplicación (mi megambasup). He de mencionar que magambasup aún no está terminado al 100%, como toda aplicación que acaba de salir, una de las cosas que le faltan es habilitar el log, más las demás cosas que vayan siendo necesarias.

Aunque la continuación del desarrollo de megambasup es incierto, igual y pasa a ser una aplicación de un novato más que será olvidada; o igual y puede servir para el desarrollo de alguna otra aplicación (como el megajc); o tal vez algunos colaboradores se me unan y podamos hacer una aplicación bastante robusta :). Todo lo dirá el tiempo...

Bueno, basta de blablabla, las chucheras con las que cuenta megambasup son:

+ Sube ficheros a megaupload con una cuenta free
+ Abre y guarda listas de ficheros a subir (se guardan con un formato *.xml)
+ Cambia la descripción de los ficheros a subir, sólo da dobleclick en la celda deseada
+ Cancela subidas si es necesario
+ Cambia el orden de los ficheros en la lista
+ Ejecuta un script automáticamente al finalizar todas las subidas
+ Presenta los links de descargas de megaupload
+ Arrastra y suelta ficheros para agregarlos en la lista
+ Más características, descúbrelas!!!

***************************************************************
ACTUALIZACIÓN (19/06/11): Nueva versión liberada (ver: megambasup 0.1.9)
Mejoras:
+ ODS export
+ Modos de ordenamiento: nombre, tamaño, descargas, fecha
+ Etiquetas: archivos totales, descargas totales, reward points

INSTALADOR (DEB): megambasup_0.1.9.deb
FUENTES (SOURCES): megambasup-0.1.9.tar.gz

***************************************************************
ACTUALIZACIÓN (05/03/11): Nueva versión liberada (ver: megambasup 0.1.2)
Mejoras:
+ Filemanager

INSTALADOR (DEB): megambasup_0.1.2.deb
FUENTES (SOURCES): megambasup-0.1.2.tar.gz

***************************************************************

INSTALADOR (DEB): megambasup_0.0.1.deb
FUENTES (SOURCES): megambasup-0.0.1.tar.gz

(ↄ) 2011 aztk

Agregar dependencias a *.deb gambas

2010-12-12T14:45:00.001-06:00

A veces creamos programas en el que hacemos uso de programas externos a gambas, y cuando armamos el instalador (el *.deb) no podemos agregarlos como dependencias. Para ello lo que podemos hacer es editar a mano el paquete *.deb

1. Descomprimir el contenido del *.deb. Con ello tenemos:
control.tar.gz
data.tar.gz
debian-binary

2. Descomprimimos control.tar.gz y data.tar.gz. Y eliminamos los comprimidos y el debian-binary.

3. Renombramos la carpeta control a DEBIAN (en mayúsculas).

4. Ingresamos a DEBIAN (antes control) y abrimos el fichero control para editarlo.

5. En 'Depends:' agregamos las dependencias faltantes (separadas por coma y espacio). También editamos 'Description:' ya que gambas siempre nos corta el texto, este campo permite múltiples líneas. Guardamos los cambios y cerramos el fichero.

6. Desde terminal nos posicionamos en el directorio raíz en donde se encuentra el directorio del proyecto. Y ejecutamos la orden:

dpkg -b PATH_PROGRAM PROGRAM.deb

Listo!

Serial Port for Octave 0.0.2

2010-10-02T16:44:00.003-05:00

Hace unas semanas me contactó un bro, pidiéndome ayuda para hacer funcionar los scripts para comunicación serie en Octave, pero el quería en Octave for Windows.

Aunque no uso Windows y no me gusta apoyar esa plataforma, hice caso al bro que se molesto en enviarme un correo............ Tuve que pedir prestada una compu (no iba a instalar Windows en mi PC), y mejoré un poco los scripts, además de que ahora son funcionales tanto en GNU/Linux y Windows.

Aquí liberando la versión 0.0.2!!!!!!!! :D

---------------------------------------------------------------

ACTUALIZACIÓN (Mayo 2011)

[DEB]: Instalador *.deb para Debian y Ubuntu: octave-serialport_0.0.3.deb

----------------------------------------------------------------

Actividades ZAM

2010-09-20T22:07:00.000-05:00

Aquí les dejo las próximas actividades de la Zona Autónoma Makhnovtchina

22 de septiembre, 2010:
- 4a. Reunion rumbo a Cancun (4:00 pm)
- Muestra de videos del colectivo aleman Ak Kraak (8:00 pm)
23 de septiembre, 2010:
- Kafetas para la Red de Medios Libres (6:00 pm)
24 de septiembre, 2010:
- Exposición “Tan lejos de Dios” (7:00 pm)
27 de septiembre, 2010:
- Tech-io 4.0 (5:00 pm)

Aplicación: Monitor CPU Load

2010-09-12T21:14:00.001-05:00

Os presento otra aplicación (programa, software) hecho en gambas para sistemas GNU/Linux.

Con éste programa podemos monitorizar la carga del CPU y cuando ésta sea menor a un valor establecido por nosotros entonces ejecutará un script. En el script por ejemplo podemos poner las ordenes para apagar el equipo (muy útil cundo compilamos algo pesado cómo un kernel), que el equipo emita una señal de audio, que se guarde en un log la hora en que la carga bajó, etc, etc...... el script está condicionado por nuestra imaginación.

Chucheras con las que cuenta el programa:

Muestra la carga actual del CPU, tanto en un potenciómetro (componente Dial), en un label y en el tooltip del trayicon.
El valor de CPU esperado se configura con un potenciómetro (componente Dial).
La aplicación cuenta con un trayicon para que se minimice en el área de notificaciones. Además de que el trayicon cuenta con un menú emergente.
Se pueden configurar los parámetros de iteraciones totales, tiempo entre cada iteración y tiempo entre actualización del cálculo de carga de CPU.
La aplicación cuenta con una pestaña para escribir el script a ejecutar.
Se cuentan con funciones para guardar tanto la configuración de parámetros y el script a ejecutar.
Antes de ejecutar el script se lanza una notificación informando que queda x tiempo (ese tiempo es el tiempo entre iteración), se necesita tener instalado el paquete libnotify-bin. Así sí se desea se puede detener el programa antes de que se ejecute el script.

El algoritmo es relativamente sencillo.

Cuando se dá la orden (se oprime el botón 'Run') se activa un timer con delay 'tiempo entre iteración', así cuando ocurre el evento Timer del timer (valga la redundancia) se compara el valor de carga actual del CPU con la del valor esperado; si es menor entonces el contador 'indice' se decrementa, en caso contrario se resetea a un valor configurado. Cuando índice es igual a cero se ejecuta el script.
Por lo tanto es necesario que la carga del CPU sea n veces seguidas menor al valor configurado para que se ejecute el script. Esas n veces es el valor máximo + 1 del índice.
Algo importante a mencionar es que el tiempo de actualización (dt) debe ser menor al tiempo entre iteración.

Descargar fuentes: SOURCES - mcpuload-current.tar.gz
Descargar instalador (Debian, Ubuntu): DEB - mcpuload-current.deb

Referencias:
Quiero Linux: Cálculo del uso de CPU en Linux

Aplicación: Downloader GoEar

2010-08-17T13:09:00.005-05:00

goear es un sitio en internet muy popular en donde los usuarios pueden subir archivos de audio *.mp3 para que puedan ser escuchados por quien sea, pero no permite la descarga de los mismos. Es por eso que se ha realizado este programa (software, aplicación) para realizar búsquedas y descargar los ficheros *.mp3 a nuestro computador desde los servidores de goear.

La aplicación está hecha en gambas (gambas2) para GNU/Linux y ésta es la versión 0.0.2 por lo que aún es muy básica y con algunos bugs, pero totalmente funcional para realizar búsquedas y descargas.

Chucheras con las que cuenta la aplicación

Permite hacer búsquedas.
Muestra los resultados de búsqueda en una tabla (componente gridView).
Se puede establecer directorio a guardar los ficheros *.mp3.
Seleccionar ficheros a descargar.
Nombra los ficheros como 'Artista - Titulo.mp3'.
Muestra barra de porcentaje de descarga.
Descarga secuencialmente los ficheros *.mp3. Solo es posible una descarga a la vez.
La aplicación puede redimensionarse.
Guarda configuración de directorio de descargas.
Abre ficheros *.mp3 con reproductor de medios preferidos.

Limitantes:

Sólo se descarga un fichero a la vez y secuencialmente (en orden) como se vayan agregando a la lista de descargas.
No se posible cancelar descargas.
No se limpian los ficheros ya descargados de la lista de descargas.
~~No he aplicado ninguna forma de cambiar los códigos HTML a UTF-8 o ASCII. Como las vocales acentuadas á é ....~~
Y un largo etcétera.

Les dejo un comprimido con las fuentes de la aplicación junto a un fichero INFO.txt con información.

La aplicación tiene licencia CopyLeft, y cualquier aporte/comentario/queja será bienvenido.

Ah, ya casi se me olvidaba..... para usar la aplicación también es necesario que tengan instalado el paquete curl (para debian y derivados: apt-get install curl). ACTUALIZACION: Ya no usa curl; ahora usa wget (ya no es necesario instalar curl)

Actualización Septiembre del 2010

:ooppss: Al parecer la aplicación tenía un bug relacionado con que un directorio o fichero no existia...... eso era porque estaba usando una ruta absoluta (en vez de una relativa) en la path del movieBox. Pero ya está resuelto, y además incluyo también el instalador para Ubuntu :)

DOWNLOAD:

Descargar código fuente: downloadergoear-current.tar.gz - SOURCES
Descargar instalador (Debian, Ubuntu): downloadergoear-current.deb - DEB

Por cierto, esta ya es la versión 0.0.4, así que le he hecho unas cuantas mejoras a la aplicación.

Actualización Octubre del 2011

Se ha actualizado la aplicación a los cambios de apariencia de goer.com con lo que nuevamente se puede descargar música :D

The Mentor - La Conciencia de un Hacker

2010-08-16T13:09:00.001-05:00

"The Mentor" es el apodo de Loyd Blankenship. Un hacker de elite de las BBS norteamericanas, fue miembro de los grupos Legion of Doom, PhoneLine Phantoms, Racketeers y Extasyy Elite. Se convirtió en una leyenda al escribir el texto "La Conciencia de un Hacker", mejor conocido como el "Manifiesto Hacker", en Enero de 1986, después de haber sido detenido injustamente por el Servicio Secreto de EUA por crear el juego de rol "GURPS Cyberpunk", con la absurda escusa de que se trataba de un manual de crimen informático.

Este texto que a pesar de que ya tiene sus años, sigue vigente porque marca acertadamente la esencia del hacker la cual es intransmutable al paso del tiempo.

La Conciencia de un Hacker

Hoy han capturado a otro, aparece en todos los periódicos. "Joven arrestado en escándalo de crimen por computadora", "Hacker arrestado luego de traspasar las barreras de seguridad de un banco"...

Malditos muchachos. Son todos iguales.

Pero tú, ¿en tu sicología barata y tu tecnocerebro de 1950, alguna vez has observado detrás de los ojos de un Hacker? ¿Alguna vez te has preguntado qué lo mueve, qué fuerzas lo han formado, que lo pudo haber moldeado?

Soy un Hacker, entra a mi mundo...

El mío es un mundo que comienza en la escuela... Soy más inteligente que la mayoría de los otros muchachos, esa basura que nos enseñan me aburre...

Malditos subrealizados. Son todos iguales.

Estoy en la preparatoria. He escuchado a los profesores explicar por decimoquinta vez como reducir una fracción. Lo entiendo. "No, Srta. Smith, no le voy a mostrar mi tarea, la hice en mi mente..."

Maldito muchacho. Probablemente la copiaste. Son todos iguales.

Hoy hice un descubrimiento. Encontré una computadora. Espera un segundo, esto es genial. Hace lo que yo quiera. Si comete un error es porque yo me equivoqué. No porque no le gusto... O se siente amenazada por mi... O piensa que soy un engreído... O no le gusta enseñar y no debería estar aquí...

Maldito muchacho. Todo lo que hace es jugar. Son todos iguales.

Y entonces ocurrió... una puerta abierta al mundo... corriendo a través de las lineas telefónicas como la heroína a través de las venas de un adicto, un pulso electrónico es enviado fuera, un refugio para las incompetencias del día a día es buscado... una tabla de salvación es encontrada. "Es este... este es el lugar a donde pertenezco..." Los conozco a todos aquí... aunque nunca los he visto, o hablado con ellos, o nunca vuelva a escuchar de ellos otra vez... Los conozco a todos...

Maldito muchacho. Enlazando las lineas telefónicas otra vez. Son todos iguales...

Apuesta tu trasero a que somos todos iguales... En la escuela hemos sido alimentados con cuchara con comida para bebés, cuando estábamos hambrientos de carne... las migajas de carne que ustedes dejaron escapar estaban masticadas y sin sabor. Nosotros hemos sido dominados por sádicos, o ignorados por los apáticos. Los pocos que tenían algo que enseñar nos encontraron como alumnos dispuestos, pero esos pocos son como gotas de agua en el desierto.

Este es nuestro mundo ahora... El mundo del electrón y el conmutador, la belleza del baudio. Nosotros hacemos uso de un servicio ya existente, sin pagar por lo que podría haber sido más barato si no fuese por esos glotones especuladores, y ustedes nos llaman criminales. Nosotros exploramos... y ustedes nos llaman criminales. Nosotros buscamos ampliar nuestro conocimiento... y ustedes nos llaman criminales. Nosotros existimos sin color de piel, sin nacionalidad, sin prejuicios religiosos... y ustedes nos llaman criminales. Ustedes construyen bombas atómicas, hacen la guerra, asesinan, engañan, y nos mienten y tratan de hacernos creer que es por nuestro bien, ahora nosotros somos los criminales.

Si, soy un criminal. Mi crimen es el de la curiosidad. Mi crimen es el de juzgar a las personas por lo que dicen y piensan, no por lo que aparentan. Mi crimen es el de ser más inteligente que tu, algo por lo cual nunca me olvidarás.

Soy un Hacker, este es mi manifiesto. Tu podrás detener este esfuerzo individual, pero nunca podrás detenernos a todos... después de todo, somos todos iguales.

Referencias:
http://blogultura.com/internet/el-manifiesto-hacker-escrito-por-the-mentor/
http://www.mithral.com/~beberg/manifesto.html (versión original - en inglés)

Articulo interesante sobre sobre la redada por el juego "GURPS Cyberpunk" (si revisan el link se enterarán que la redada no fue por el juego):
http://www.psnrol.com/articulos/mostrar.php?id=28

acsaao: aircrack-ng script Acer Aspire One

2010-08-16T12:58:00.001-05:00

Actualización [Mayo/2011]: He modificado un leve el script para incluir la opción de "salir", y se ha agregado una nueva versión del programa stkeys para que descifre las claves en un intervalo del 2005 al 2011.

Ya tiene tiempo que me cree este script, el cual es una adaptación del airoscript para usar aircrack-ng especialmente en una Acer Aspire One con sistema operativo Ubuntu (9.04 o más reciente) y así poder descifrar las llaves WEP.

Pero la neta que si eres un mugroso lamer o pseudo-cracker de una vez te informo que te vayas mucho al infierno y no andes robándote el internet. Ahora en cambio si eres un bro o sis que por la codicia de unos infelices no puedes tener acceso a internet pss nomás por que ya no hay varo, pero por algún milagro posees una Acer Aspire One y necesitas internet para estudiar, aprender y/o compartir, y no solamente para ver tu pinche facebook o tonteras de ese estilo........... pss a apropiarse de los medios! je!

Kamara kamaradas, les dejo el script con un fichero *.txt con instrucciones de uso!

NOTA: Esta versión del script también incluye el programa stkeys para descifrar la llaves de routers Thomson modelos 580i y 585v6 cuyo nombre de red es INFINITUMXXXXXX o ThomsonXXXXXX (donde XXXXXX es un numero hexadecimal de 6 dígitos).

Puerto Serie para Octave / Serial Port for Octave

2010-08-16T01:13:00.007-05:00

ACTUALIZACIÓN (Octubre 2010) (NEW VERSION - 0.0.2)

Nueva versión liberada: :::click:::octave-serialport-0.0.2:::click:::
Compatible con GNU/Linux y Windows (Linux and Windows compatible)

Hey!

Pss en la escuela en donde estudio usan mucho el MatLab, y una alternativa libre para éste es Octave........ que en términos generales es muy bueno aunque aún le falta mucho para igualar el poder de MatLab, pero yo creo que dentro de unos añitos ya se le pondrá al tiro chingón :)

Bueno, el punto es que Octave no tiene soporte para comunicación por el puerto serie. Por tal motivo me dispuse a crear alguna solución; y ya que no soy programador pss busqué algunas herramientas fáciles de usar....... así que opté por establecer la comunicación del puerto serie con python, con el modulo PySerial, y enviar/recibir la información a octave por medio de sockets. Como resultado de esto se tiene una aplicación en python que funge como servidor y una serie de scripts en octave que hacen de cliente.

En esta entrada pueden descargar dichos scripts con un PDF con las instrucciones de instalación y uso.

Cualquier duda/comentario/aporte/'lo que sea' agradeceré en que se me sea dada.

NOTA: Estos scripts sólo son funcionales en Octave for GNU/Linux.

----------------------------------------------------------------------------------------
Actualización: Octubre del 2010
DOWNLOAD: octave-serialport-0.0.2.tar.gz (GNU/Linux & Windows)
----------------------------------------------------------------------------------------
DOWNLOAD: octave-serialport-0.0.1.tar.gz (GNU/Linux)

Hola mundo!

2010-08-08T19:55:00.017-05:00

Que hay kamaradas!

Pss bien, aquí la primer entrada de éste nuevo blog......... :)

Y como el blog trata de programación y el mundo hacker (je, aunque yo no sea ni programador ni hacker :p ) pss que el primer post sea un 'Hola mundo'.

Para el 'Hola mundo' de esta ocasión será con html y javascript.

Primero haremos una página HTML que procese información que le sea pasada a la URL por medio del carácter '?'; ya saben.... del estilo de www.servidor.com/pagina.html?val1=vala&val2=valb

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title>Hola mundo!</title>
<script type="text/JavaScript">
//busca la variable en el url
function busca(cadena,variable)
{
var c = cadena;
var v = variable;
c="&"+c.substring(1,c.length)+"&";
v="&"+v+"=";
var lc=c.length;
var lv=v.length;
i=0; j=0;
while (i+lv<lc && c.substring(i,i+lv)!=v) i++;
i=i+lv; j=i;
while (j<lc && c.substring(j,j+1)!="&") j++
return(c.substring(i,j).replace(/+/g, ' '))
}

window.onload = function change_name()
{
var kamarada = unescape(busca(document.location.search,"user"));
document.getElementById('saludo').innerHTML = "Saludos " + kamarada + "!!! :)";
document.getElementById('kmrd0').innerHTML = kamarada;
document.getElementById('kmrd1').innerHTML = kamarada;
document.title = "Saludos " + kamarada + " :)";
}
</script>

</head>

<body>
<h3><div id="saludo"></div></h3>
<br>
<p>Hey <b id="kmrd0">mi herman@!!!</b>, gracias por pasarte por <a href="http://libertadhack.blogspot.com/">libertadhack.blogspot.com</a></p>
<P>Ésta página html es el resultado del primer post del foro, y es como un 'hola mundo' pero mejor te digo:</p><p><strong>Hola </strong><strong id="kmrd1">mi herman@</strong><strong>!!!</strong></p>
:)
</body>

</html>

Y luego incluiremos en este hilo un textbox con un botón para que pongas tu nombre y te enlace a la página html anteriormente creada y sea personalizada :)

El código html para lo anterior es:

Así que.......................... Hola mundo!!!!!!!

Referencias:
HTML Forms and Input

Recursos usados para el hilo:
Dropbox (Para subir el fichero html)
blogcrowds (Transforma las etiquetas html para ser publicadas en blogger)