Programemos Cosas

lunes, 5 de mayo de 2014

Seguridad informática

OpenPGP
The GNU Privacy Guard
Transport Layer Security - Wikipedia, the free encyclopedia
OpenSSL: The Open Source toolkit for SSL/TLS
Gentoo Forums :: View topic - openssl vs gnupg in initrd for encrypting LUKS-keyfile
OpenPGP "añade un poco de sal" al rededor del mensaje en claro en el proceso de encriptación. Si lo que estoy encriptando es un mensaje expresado en lenguajes naturales (inglés, español, símbolos matemáticos, etc.), esta "sal agregada" contribuye a la dificultad de someter el mensaje encriptado a análisis estadísticos. En cambio, si lo que estoy encriptando es un código generado por un random-number-generator, como ser la key de una partición LUKS, no añade valor criptográficamente hablando.
encryption - Are private keys generated by different software packages compatible? - Information Security Stack Exchange
RSA (cryptosystem) - Wikipedia, the free encyclopedia
Uso de un criptosistema para la encriptación / desencriptación de documentos:
A public and private key each have a specific role when encrypting and decrypting documents. A public key may be thought of as an open safe. When a correspondent encrypts a document using a public key, that document is put in the safe, the safe shut, and the combination lock spun several times. The corresponding private key is the combination that can reopen the safe and retrieve the document. In other words, only the person who holds the private key can recover a document encrypted using the associated public key.
Open safe

Uso de un criptosistema para la firma / verificación de documentos:

Creating and verifying signatures uses the public/private keypair in an operation different from encryption and decryption. A signature is created using the private key of the signer. The signature is verified using the corresponding public key.

Signature

Moving/Copying your PGP Keys

Encriptar una Partición:
Comparación de técnicas: Encrypting an entire system (ver la tabla comparativa en "Overview").
Otra técnica: En lugar de encriptar la partición entera, encripta a nivel de archivo individual encfs
Paso a paso: How To Migrate to a full encrypted LVM system

Bases de datos de contraseñas en Debian:
pwsafe es un administrador de contraseñas por línea de comandos.
A partir de Wheezy, no existe más el package pwsafe en el repositorio oficial. Repositorio alternativo. Aplicación alternativa: KeePass2.
Referencias:
http://blog.steve.org.uk/a_mixed_week_with_minor_tweaks.html
http://forums.debian.net/viewtopic.php?f=10&t=105015

Temas relacionados en este Blog: Seguridad informática en Java

sábado, 5 de abril de 2014

Creación de sitios web con Drupal

Sitios multi idioma:

- El orden en que se crean los contenidos multi idioma no afecta al funcionamiento correcto de multi idioma. Es decir, se puede crear primero en inglés o bien en otro idioma.

- Si el idioma L1 no tiene path prefijo (1) (ej. sin prefijo: inglés -> misitio.com ; ej. con prefijo: castellano -> misitio.com/es) Cuando el idioma detectado (2) no es L1, no se puede pasar a L1 a través del bloque idiomas (3).
(1) Configuration › Regional and language > Languages (misitio.com/admin/config/regional)
(2) Configuration > Regional and Language > Languages > Language Detection and Selection,
(3) Structure > Blocks > Language switcher (User interface text)
Ejemplo 1:
El sitio web tiene contenido de la home page en idiomas L1 (misitio.com) y en L2 (misitio.com/l2)
El usuario entra a la home: misitio.com
La detección del idioma del usuario es: L1
Se puede cambiar de L1 a L2 y vice versa
Ejemplo 2:
El sitio web tiene contenido de la home page en idiomas L1 (misitio.com/l1) y en L2(misitio.com/l2)
Otro usuario entra a la página home: misitio.com
La detección del idioma de este usuario es: L2
La página se muestra en L2
El link a la versión en L1 en el bloque de idiomas apunta a la URL en L1 de la home (misitio.com), pero al ir ahí, el contenido se presenta siempre en L2.

Solución de compromiso: setear path prefijo a todos los idiomas, incluso inglés.

jueves, 3 de abril de 2014

Configuración de dominio personalizado para Blogger a través de NIC.ar y CDMon

Configuración de dominio personalizado para Blogger a través de NIC.ar y CDMon.

En NIC.ar

Dominios

Dominio
midominio.com.ar

No delegar

Delegar

Delegaciones

Host	IPv4
ns1.cdmon.net
ns2.cdmon.net
ns3.cdmon.net

En CDMon
Ejemplo de configuración 1: midominio.com.ar

En esta página puede configurar los registros DNS de su domino midominio.com.ar.

Listado registros DNS

Seleccionar

Acciones

Añadir registro | Copiar datos | Editar SOA

Registros A Añadir Mostrar/ocultar registros
	Subdominio	Destino	Acciones
	@	46.16.56.42 (Redirecciones web)	Editar registro Eliminar registro
Registros CNAME Añadir Mostrar/ocultar registros
	Subdominio	Destino	Acciones
	*	midominio.com.ar	Editar registro Eliminar registro

Ejemplo de configuración 2: midominio2.com.ar

En esta página puede configurar los registros DNS de su domino midominio2.com.ar.

Listado registros DNS

Seleccionar

Acciones

Añadir registro | Copiar datos | Editar SOA

Registros A Añadir Mostrar/ocultar registros
	Subdominio	Destino	Acciones
	www	46.16.56.41 (Redirecciones web)	Editar registro Eliminar registro
Registros CNAME Añadir Mostrar/ocultar registros
	Subdominio	Destino	Acciones
	@	ghs.google.com	Editar registro Eliminar registro
	*	midominio2.com.ar

En Blogger

Publicación

Dirección del blog

Configuración avanzada

http:// [www.midominio.com.ar]

Tutoriales:

http://blog.salinas.com.ar/2013/12/23/como-usar-un-com-ar-en-blogger-blogspot/

martes, 25 de marzo de 2014

Un pequeño paseo por la automatización de software

Introducing Lync 2010 Super Simple Auto Answer Video Kiosk with Full Screen

winforms - How to interact with an application programmatically - Stack Overflow

AutoIt - AutoItScript

Using Overloaded Win32 API functions to interact with other applications - vbCity - The .NET Developer Community

java - How to write a program that can interact with other programs - Stack Overflow

Quick introduction to Windows API

miércoles, 12 de marzo de 2014

user-list.pl - programa en Perl para leer un formato determinado y crear una lista de usuarios

use strict;
use feature "switch";
open my $outfh, '>:encoding(utf8)', 'user-list.txt';
my %NOT_COLLECTED;
my @UNCLASSIFIED_FILE;
sub print_not_collected {
print $outfh "-----------------------------------------\n";
for (keys %NOT_COLLECTED) {
    print $outfh $_ . ' ' . join(' ', keys %{+{map +($_ => undef), @{$NOT_COLLECTED{$_}}}}) . "\n";
}
print $outfh "-----------------------------------------\n";
print $outfh join "\n", @UNCLASSIFIED_FILE;
close($outfh);
exit(0);
}

use sigtrap 'handler' => \&print_not_collected, qw(INT QUIT);

my @tmp_PIV;
while(<user-pivot-*.txt>) {
my ($class) = /\d+/g;
open my $ph, "<:encoding(utf8)", $_;
push @tmp_PIV, \%{+{map {/(.*)/; $1=>$class} grep /.+/, <$ph>}};
}
my %DUP;
for my $i (0..$#tmp_PIV-1) {
for my $j ($i+1..$#tmp_PIV) {
    for (keys %{$tmp_PIV[$i]}) {
      $DUP{$_}{$tmp_PIV[$i]{$_}} = $tmp_PIV[$j]{$_} if exists $tmp_PIV[$j]{$_};
    }
}
}
for my $name (keys %DUP) {
    for my $i (keys %{$DUP{$name}}) {
        print "$name $i ${DUP{$name}{$i}}\n";
    }
}
die "Duplicated class entries." unless (keys %DUP)==0;
my %PIV_EQ_CLASS;
for (@tmp_PIV) {
%PIV_EQ_CLASS = (%PIV_EQ_CLASS, %{$_});
}
my %NOT_PIV;
open my $nph, "<:encoding(utf8)", "user-not-pivot.txt";
%NOT_PIV = %{+{map {/(.*)/; $1=>0} grep /.+/, <$nph>}};
$NOT_PIV{''} = 0;   # we don't want to consider blank pivots
my @tmp = grep exists($NOT_PIV{$_}), keys %PIV_EQ_CLASS;
die 'Ambiguity pivot not pivot: ' . join "\n", @tmp unless @tmp==0;
local $/ = undef;
while(glob "HTML/**") {
print "$_\n";
open my $fh, "<:encoding(utf8)", $_;
my $fname = $_;
my $text = <$fh>;
$text =~ /\n/g;
my @tmp = $text =~ //g;
my $text2 = join '', map {; s///; $_; } @tmp;
$text2 =~ s/- ( *)(?=-)/-$1/g;
my @FILE_CLASS;
for ($text2 =~ /FriendlyName="(.*?)"/g) {
    push @FILE_CLASS, $PIV_EQ_CLASS{$_} if exists $PIV_EQ_CLASS{$_};
    push @{$NOT_COLLECTED{$_}}, $fname if not exists $PIV_EQ_CLASS{$_} and not exists $NOT_PIV{$_};
}
print $outfh $fname . ' ' . join(' ', keys %{+{map +($_ => undef), @FILE_CLASS}}) . "\n" unless @FILE_CLASS==0;
push @UNCLASSIFIED_FILE, $fname if @FILE_CLASS==0;
}

print_not_collected;

lunes, 10 de marzo de 2014

DB2 - Consultas de metadatos - Consultas recursivas

DB2 – consulta de metadatos

Catalog Schema: Doc original / standard name: syscat à DB2 alias: ibm

triggers

select text from sysibm.sysTRIGGERS where tbname

secuencias

select * from sysibm.syssequences where owner

stored procedure / function

select * from SYSIBM.sysroutines where owner

PK, unique constraint, FK,

select * from SYSIBM.syskeycoluse where constname

select * from SYSIBM.SYSRELS where RELNAME

select * from SYSIBM.SYSFOREIGNKEYS where relname

tables

FROM SYSIBM.SYSTABLES

FROM SYSIBM.SYSCOLUMNS where tbname and tbcreator

Dummy

sysibm.sysdummy1

Consultas recursivas en DB2 (jerarquía jerárquicas hierarchy hierarchial recursive)

/************************************************************************/

/******************* COMPARE THE FOLLOWING 2 QUERIES *******************/

/************************************************************************/

-- TOP-DOWN

with MY_HIERARCHY (MY_NODE, MY_PARENTNODE) as (

-- non-recursive exit

select ROOT.MY_NODE, ROOT.MY_PARENTNODE

from THETABLE ROOT where MY_NODE='value' -- the root node in the tree

union all

-- recursive loop (it needs the non-recursive part in order not to be an empty set)

select CHILD.MY_NODE, CHILD.MY_PARENTNODE

from MY_HIERARCHY PARENT, THETABLE CHILD

where CHILD.MY_PARENTNODE = PARENT.MY_NODE -- top-down join

)

select * from MY_HIERARCHY

-- BOTTOM-UP