15 lines
454 B
Perl
Executable File
15 lines
454 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
print "Enter a string to encrypt with DES\n";
|
|
chomp(my $string = <STDIN>); #Take the input from the user and remove the n
|
|
|
|
print "Enter two random alphanumerics to be used as a salt\n";
|
|
chomp(my $salt = <STDIN>);
|
|
|
|
my $encrypted_string = crypt($string,$salt); #take the string and the salt and put through crypt()
|
|
|
|
print qq~
|
|
"$string" encrypted using the perl crypt() function and salt "$salt" returns:
|
|
$encrypted_string
|
|
~;
|