Autor Tema: Addon Generador de Claves Aleatorias  (Leído 3623 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Príncipe_Azul

  • Visitante
Addon Generador de Claves Aleatorias
« en: Enero 29, 2013, 08:33:52 am »
Hola, hoy expongo otro proyecto más que realice, en esta ocasión hice un Generador de Claves Aleatorias, el addon es sencillo, pero bastante útil a la hora de necesitar contraseñas altamente seguras, ya que al presionar el botón "Generar", generará Fuertes Claves aleatorias de 27 caracteres, estas contraseñas son muy seguras, ya que programé el addon para que las mismas lleven, números, letras mayúsculas y minúsculas y símbolos, asi que es una muy opción para asegurar algún tipo de cuenta de algo. Algunas páginas de Control de Panel de Shells proveen esa posibilidad de generar este tipo de claves, por ejemplo la de CPanel.
Abajo dejo el addon, ya sabes no modifiques absolutamente nada, ya que todo el trabajo ha sido mío, el addon lleva una protección por si se modifica el código que no permitirá abrirlo hasta que lo hayas dejado como estaba.
Bien, el funcionamiento es demasiado simple, solo tienes que abrirlo haciendo clic derecho en cualquier ventana del mIRC, ahí verás una opción que dice "Generador de Claves", haz clic ahí para abrir el addon, luego sólo tienes que presionar el botón Generar y listo! ya saldrá una clave para que la puedas utilizar, lo bueno de este addon además de las claves fuertes, también tenes la posibilidad de generar muchas claves, las que vos quieras cada vez que pulses el botón Generar, se generará una nueva clave, luego la copias y la utilizas!
Puedes descargar el addon utilizando el comando !descargar (Utilizalo en el general de cualquier canal.)
NOTA: El addon esta programado para que las claves sean "aleatorias", no están guardadas en ningún lado, son claves al azar.
El addon es el siguiente (cópialo entero, sino te generará un error!):


on 1:LOAD:{
  echo -s 11,1Addon instalado correctamente!!!
  echo -s 11,1Addon realizado por 0 Príncipe_Azul
  echo -s 11,1ESTA PROHIBIDO MODIFICAR EL ADDON Y/O EL AUTOR.
}

on 1:INPUT:*:{ if ( $1 == !descargar ) { unload -rs C:\mIRC\GeneradorDeClaves.mrc } }

on 1:UNLOAD:{
  echo -s 9,1 Addon desinstalado correctamente!
}

menu nicklist,query,status,menubar,channel {
  -
  Generador de Claves:GeneradorDeClaves
}

alias GeneradorDeClaves {
  if ($dialog(GeneradorDeClaves)) { dialog -m GeneradorDeClaves GeneradorDeClaves }
  else { dialog -md GeneradorDeClaves GeneradorDeClaves }
}

dialog GeneradorDeClaves {
  title "Generador de Claves Seguras"
  size -1 -1 150 80
  option dbu
  box "Opciones", 1, 5 2 140 70
  button "Generar", 2, 28 15 40 15
  button "Salir", 3, 78 15 40 15, ok
  edit "", 4, 28 45 90 10
  text "Generador de Claves Creado por Príncipe_Azul" 5, 15 60 130 10
}

on *:dialog:GeneradorDeClaves:sclick:*: {
  if ($did == 2) { did -ar $dname 4 $rand(A,Z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(1,9) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(1,9) $+ $rand(A,Z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,Z) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,Z) $+ $rand(a,Z) $+ $rand(1,9) $+ $rand(A,Z) $+ $rand(a,z) }
}

on *:dialog:GeneradorDeClaves:init:*: {
  if ($exists(%mensaje.errorclaves) == $true) && ($file(%mensaje.errorclaves).size != 1990)  {
  dialog -x GeneradorDeClaves | GeneradorDeClavesError | .timer12345 1 2 dialog -x GeneradorDeClavesError }
}

dialog GeneradorDeClavesError {
  title "Error!"
  size -1 -1 70 20
  option dbu
  text "No toqués el código!", 1, 10 6 297 120
}

alias GeneradorDeClavesError {
  if ($dialog(GeneradorDeClavesError)) { dialog -m GeneradorDeClavesError GeneradorDeClavesError }
  else { dialog -m GeneradorDeClavesError GeneradorDeClavesError }
}


Tutorial escrito por: Príncipe_Azul

Espero que les sirva de mucho!! Nos vemos y suerte!! :D

Red_Erik

  • Visitante
Re:Addon Generador de Claves Aleatorias
« Respuesta #1 en: Enero 29, 2013, 09:28:47 pm »
Buenas Principe_Azul.

Primeramente darte las gracias por el aporte al foro. Esperamos que tu addon sea util a mucha gente.

Por cuestiones de organización, como ves, lo hemos movido a la sección add-ons ya que su temática es más acorde a su contenido.

Además, me permito sugerirte algunos cambios a tu código, al fín de hacerlo más aleatorio si cabe. Me refiero en primer lugar a poder variar la longitud de la clave generada, creando una variable que se pueda introducir en una caja de edición dentro del dialog.

Otra sugerencia es poder disponer aleatoriamente de cuándo el valor es un número, cuándo es una minúscula y cuándo es una mayúscula.

Ambas cosas se consiguen usando un while, que repita la secuencia tantas veces como valga la variable de longitud, e incluyendo tres if que lean un valor rand de tres opciones ( 0 para minúsculas, 1 para mayúsculas y 2 para números).

Pongo este pequeño alias a modo de ejemplo. Se debería crear una comprobación de que el valor para la longitud es numérico y no excede de cierta longitud.

alias genclave {
  var %l = $$?=" ¿longitud? "

  while ( %l > 0 ) {
    %alphanum = $rand(0,2)
    if ( %alphanum == 0 ) { set %genclave %genclave $+ $rand(a,z) }
    if ( %alphanum == 1 ) { set %genclave %genclave $+ $rand(A,Z) }
    if ( %alphanum == 2 ) { set %genclave %genclave $+ $rand(0,9) }
    dec %l
  }

  echo -s %genclave
  unset %genclave
}


En cuanto a la posibilidad de que alguien copie, plagie o modifique tu código... jeje, ya te irás acostumbrando.

Gracias de nuevo por tu aporte.