Inicio > Zona Linux > Mi primer programa en Perl

Mi primer programa en Perl

logo_perl

perl

Perl es un lenguaje de programación diseñado por Larry Wall en 1987. Perl toma características del lenguaje C, del lenguaje interpretado shell (sh), AWK, sed, Lisp y, en un grado inferior, de muchos otros lenguajes de programación.

Perl está instalado por defecto en las distribuciones más populares de GNU/Linux incluyendo Gentoo, Mandriva, Debian, RedHat y SUSE.

/*Este script esta basado en el algoritmo DES (Data Encryption Standard), este programa pide al usuario una linea de caracteres y una contraseña y transforma esos valores en la funcion “crypt()” para calcular el valor cifrado. */

#!/usr/bin/perl
# crypy.pl
# pan = lo defines como una cadenas de caracteres escogidos del conjunto [a-z,A-Z,0-9./]
# clave = Contraseña del usuario

use strict;

printIntroduzca el un conjunto de caracteres [a-z,A-Z,0-9]: ‘;
my $pan = <stdin>;
chop $pan;

printIntoduzca la contraseña: ‘;
my $clave = <stdin>;
chop $clave;

printEl resultado es : ‘, crypt($clave, $pan), “\n“;

para descargar el programa application-x-perl

para su ejecucion :

perl crypt.pl

Categorías:Zona Linux
  1. Aún no hay comentarios.
  1. abril 30, 2015 a las 12:04 pm

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: