agrego ejercicio paquetes

Author: mpru

capitulos/06_practica.qmd

@@ -71,3 +71,21 @@ Error in filtrar_por_vocal(1:3) : palabras debe ser un vector carácter.
 ## Ejercicio 3
 
 Crear un nuevo paquete llamado `unidad3` para guardar allí al menos 4 de las funciones creadas en los ejercicios de la Práctica 3.
+
+## Ejercicio 4
+
+Hoy en día, casi todas las plataformas digitales —redes sociales, correos electrónicos, tiendas online y homebanking, entre otras— requieren que los usuarios se registren mediante un nombre de usuario y una contraseña. Para mantener la seguridad de nuestras cuentas, es fundamental utilizar contraseñas seguras y diferentes en cada sitio, evitando así que la filtración de una de ellas comprometa las demás. Sin embargo, muchas personas tienden a usar contraseñas simples o repetidas, lo que aumenta el riesgo de ser víctimas de ataques informáticos. Una buena práctica es generar contraseñas personalizadas que resulten fáciles de recordar para el usuario, pero difíciles de adivinar para otros.
+
+En este ejercicio vamos a **crear una función en R que le ayude a las personas a elegir una contraseña**, siguiendo una regla determinada a partir de la información provista por el usuario, y distribuirla mediante la **creación de un paquete**. Si bien puede ser una muy buena estrategia que cada persona invente para sí mismo una regla para generar contraseñas fáciles de recordar, probablemente no sea lo más seguro utilizar una regla propuesta por un tercero, como se propone en esta tarea. No obstante, será una buena oportunidad para seguir aprendiendo.
+
+- El paquete se llama `seguridad`.
+- La función que exporta el paquete debe llamarse `generar_clave()` y debe tener tres argumentos de entrada: un número de dos dígitos, un nombre y un apellido.
+- El número de dos dígitos no debe tener un valor asignado por defecto.
+- Los valores por defecto para los otros dos argumentos deben ser el primer nombre y el apellido del estudiante. 
+- La función tiene que generar un nombre de usuario a partir del nombre y apellido provistos. Por ejemplo, si el nombre es "Silvina" y el apellido es "Perez", el nombre de usuario a crear debe ser "silvina_perez".
+- La contraseña sugerida por la función debe estar formada por las 3 primeras letras del apellido, seguidas por los dígitos que resultan de la multiplicación entre la cantidad de vocales del nombre y la cantidad de consonantes del apellido, luego por las primeras 2 letras del nombre y finalmente por los dígitos que resulten de la multiplicación entre el número ingresado por el usuario y un número elegido por la función al azar entre el 1 y el 10
+- Por ejemplo, si el nombre es "Silvina" (3 vocales),  el apellido es "Perez" (3 consonantes), el dígito elegido es 32 y el número aleatorio resulta ser 4, la contraseña sugerida debe ser: "per9si128".
+- Tanto el nombre de usuario como la contraseña sugeridas deben ser letras minúsculas, sin importar lo que ingrese el usuario.
+- La función debe imprimir un mensaje similar al siguiente `¡La contraseña se ha generado correctamente!` y devolver una lista con el nombre de usario y la contraseña.
+- Pueden emplear los principios de la descomposición algorítmica y crear otras funciones auxiliares si lo consideran necesario, pero la función `generar_clave()` debe ser la única que exporte el paquete.
+- Una vez finalizado, se debe encapsular el paquete en un archivo comprimido de formato `.tar.gz`, que se crea automáticamente ejecutando la función `build()`.

capitulos/07_soluciones_06.qmd

@@ -14,6 +14,5 @@ Los materiales con las soluciones se encuentran [en este repositorio *online*](h
 - La carpeta `man` contiene archivos para la generación de páginas de ayuda, creados automáticamente a partir de la documentación de las funciones (no se edita a mano).
 - El archivo `DESCRIPTION` debe ser editado a mano.
 - El archivo `NAMESPACE` no debe ser editado a mano, sino que es modificado automáticamente a partir de la documentación de las funciones.
-- Se ha omitido el archivo 
 - Estos paquetes son extremadamente sencillos y contienen lo mínimo e indispensable para su funcionamiento. Un desarrollo más profesional debe incluir otros aspectos, como los mencionados en el material de lectura opcional.
 - En estos directorios no se incluyeron otros archivos que son creados automáticamente por `devtools` al crear el paquete: el archivo de configuración del proyecto (extensión `.Rproj`), la carpeta `.Rproj.user` y los archivos `.gitignore` y `.Rbuildignore`. Estos componentes no son de interés para los ejemplos básicos desarrollados.

paquetes_unidad_6/seguridad/DESCRIPTION

@@ -0,0 +1,10 @@
+Package: seguridad
+Title: Sugerencias para nombres de usuario y contraseñas
+Version: 0.0.0.9000
+Authors@R: 
+    person("Julian", "L'heureux", , "lheureuxjulian@gmail.com", role = c("aut", "cre"))
+Description: Paquete que contiene una función para crear un usuario y contraseña a partir de los datos ingresados.
+License: `use_mit_license()`, `use_gpl3_license()`
+Encoding: UTF-8
+Roxygen: list(markdown = TRUE)
+Config/roxygen2/version: 8.0.0

paquetes_unidad_6/seguridad/NAMESPACE

@@ -0,0 +1,3 @@
+# Generated by roxygen2: do not edit by hand
+
+export(generar_clave)

paquetes_unidad_6/seguridad/R/contraseña.R

@@ -0,0 +1,59 @@
+#' Generador de nombre de usuario y contraseña segura
+#'
+#' Esta función genera un nombre de usuario y una contraseña combinando partes
+#' del nombre, apellido y un número, incluyendo un número aleatorio.
+#'
+#' @param codigo Entero de dos cifras. Número que se usará en el cálculo de la contraseña.
+#' @param nombre Caracter. Nombre del usuario. Por defecto es `"silvina"`.
+#' @param apellido Caracter. Apellido del usuario. Por defecto es `"perez"`.
+#'
+#' @return Una lista con dos elementos:
+#' \describe{
+#'   \item{nombre_usuario}{El nombre de usuario en formato `nombre_apellido`, todo en minúsculas.}
+#'   \item{contraseña}{Una cadena que conforma una contraseña creada con los datos aportados}
+#' }
+#'
+#' @details
+#' La contraseña se construye de la siguiente manera:
+#' \itemize{
+#'   \item 3 primeras letras del apellido (minúsculas)
+#'   \item cantidad de vocales del nombre multiplicada por la cantidad de consonantes del apellido
+#'   \item 2 primeras letras del nombre
+#'   \item código multiplicado por un número aleatorio del 1 al 10
+#' }
+#'
+#' Se imprime un mensaje indicando que la contraseña fue generada correctamente.
+#'
+#' @examples
+#' generar_clave(42, "Juan", "Martinez")
+#' generar_clave(32)
+#'
+#' @export
+generar_clave <- function(codigo, nombre = "silvina", apellido = "perez") {
+  if(!(codigo %% 1 == 0 && codigo < 100 && codigo > 9)){
+    stop("El código no es válido.")
+  }
+  nombre <- tolower(nombre)
+  apellido <- tolower(apellido)
+
+  letras_nombre <- strsplit(nombre, "")[[1]]
+  letras_apellido <- strsplit(apellido, "")[[1]]
+
+  # se podria usar funciones como chartr para eliminar acentos, diéreisis, etc, pero no nos fijemos en eso
+  n_vocales_nombre <- sum(letras_nombre %in% c("a", "e", "i", "o", "u"))
+  n_conson_apellido <- length(letras_apellido) - sum(letras_apellido %in% c("a", "e", "i", "o", "u"))
+
+
+  primeras_3_apellido <- substr(apellido, 1, 3)
+  prod <- n_vocales_nombre * n_conson_apellido
+  primeras_2_nombre <- substr(nombre, 1, 2)
+  numero_azar <- sample(1:10, 1)
+  prod_codigo <- codigo * numero_azar
+  clave <- paste0(primeras_3_apellido, prod, primeras_2_nombre, prod_codigo)
+
+  nombre_usuario <- paste(nombre, apellido, sep = "_")
+
+  message("¡La contraseña se ha generado correctamente!")
+
+  return(list(nombre_usuario = nombre_usuario, contraseña = clave))
+}