jueves, 24 de junio de 2010

Conectarse a Internet en linux...desde la Terminal

Para esto abrimos una terminal:
Aplicaciones -> Accesorios -> Terminal

En ella ingresamos "pppoeconf" (sin las comillas) que nos permite configurar nuestro modem DSL con el protocolo ppp.

Se cargará el programa, y nos preguntará si nuestro modem está listado en la pantalla...

Damos enter en Aceptar y comienza a configurar el modem conectado a nuestra PC...

Una vez completo el paso anterior, no pedirá confirmación para modificar el archivo de configuración de modems /etc/ppp/peers/dsl-provider, le decimos que si, ya que es eso lo que queremos hacer :D

al cartel siguiente también le decimos que si, ya que nos permitirá modificar manualmente mas adelante, el archivo de configuración...aunque a la mayoría de los mortales no nos gusta meterle mano, lo hacemos por las dudas.... ;)

Ahora nos pide que ingresemos el usuario, de nuestro servicio, cada uno sabrá como es...en uruguay sería "miUsuario@adsl(numero de servicio)", pero supongo que varía en cada país..

Hecho esto nos pide la contraseña, la cual se puede ver en la pantalla mientras la escribirmos, así que cuidado...jaja

Hecho esto, si le damos Enter, enter....etc a lo que nos marca por defecto (muy recomendado), ya estamos prontos y conectados a Internet....

Ah, y cada vez que se inicie el sistema, si encendimos el modem de ante mano, nos conectaremos automáticamente, de lo contrario debemos colocar en la terminal "sudo pon dsl-providers" y para desconectar "sudo poff dsl-providers"

Sin nada mas que decir, espero que se haya entendido (un poco por lo menos :D ) el procedimiento, saludos.

Más adelante, voy a subir un script bien sencillo para poder conectarnos con un solo clic...

miércoles, 23 de junio de 2010

Verificador de Cédula...VB.NET

Este es un algoritmo que hice hace poco, y me parece interesante compartirlo con ustedes, es para verificar la Cédula de Identidad de URUGUAY, solo sirve para este país, debido al tamaño del número y como se lo descompone...

Es bien sencillo, espero que lo disfruten, y me corrijan algún error...

Aclaro que no estan controladas las excepciones, ya que lo hago desde afuera...

Public Function Verif_CI(ByVal ci_cadena As String) As Boolean
Dim ciVec(7), result(7), NumComprobador(7), sumatoria As Integer
Dim resto, Resto_sumatoria, ccc, ccc_Sumatoria As Short
Dim ok As Boolean

ccc = 0
ccc_Sumatoria = 0

'------------------------------------------------------
'Preestablecemos los valores del número comprobador..
NumComprobador(0) = 2
NumComprobador(1) = 9
NumComprobador(2) = 8
NumComprobador(3) = 7
NumComprobador(4) = 6
NumComprobador(5) = 3
NumComprobador(6) = 4
'------------------------------------------------------

For i = 0 To 7
'Pasamos cada subíndice de la cadena, a un dígito...De esta forma vectorizamos el número...

ciVec(i) = Val(ci_cadena(i)) 'Hacer un respaldo...para conservar los valores de la cédula ingresada

'Hacemos la operación pertinente con cada dígito de la Cédula..
result(i) = ciVec(i) * NumComprobador(i)

If result(i) >= 10 Then 'Verificamos que el número sea de una sola cifra, de lo contrario Hacemos lo siguiente...
'Verificamos el valor del Modulo..de dividir el resultado entre 10..
resto = result(i) Mod 10
ccc = 0
While resto > 0
result(i) -= 1
ccc += 1
'Actualizamos RESTO
resto = result(i) Mod 10
End While
result(i) = ccc
End If
sumatoria += result(i)
Next

'Una vez obtenida la SUMATORIA (que es lo importante de todo el procedimiento anterior)...
'Buscamos el numero que sea mayor al mismo, que termine en cero, por ejemplo, si sumatoria = 48, el número que buscamos es 50.
Resto_sumatoria = sumatoria Mod 10
While Resto_sumatoria > 0
sumatoria += 1
ccc_Sumatoria += 1
'Actualizamos RESTO_SUMATORIA
Resto_sumatoria = sumatoria Mod 10
End While

'Confirmar que el número es correcto o no...
If ccc_Sumatoria = Val(ci_cadena(7)) Then
ok = True
Else
ok = False
End If

'Avisar que el número ingresado, no es válido
If ok = False Then
Console.WriteLine("")
Console.WriteLine("La C.I. ingresada NO es válida..Lo correcto sería ""########"".")
Console.WriteLine("")
End If

Return ok

End Function