Do you just want to encrypt a password with the standard unix hash method in your script? Here is a small script that encrypts a password: 

use strict;

my $inp;

srand(time() ^ $$);

print "Please enter password:\n";
system "stty -echo";
chop($inp= <STDIN>);
print "\n";
system "stty echo";
my $i= chr(rand(26)+ord('a')) . chr(rand(26)+ord('a'));
print crypt( $inp,$i ),"\n";

[download]

But you can't use the encrypted form to connect to some service that needs the password. That is not possible!

If that is what you wanted you have to store the password in the clear. You can only really secure it if you store the password in a file only the script can read (in unix the script has to have its suid-flag set so it is executed with the rights of the script owner and the password file should be only readable by the script owner)

In reply to Re: Mention password in the script -encrypted form by jethro
in thread Mention password in the script -encrypted form by perl177

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.