Unsecure perl pw hide

#!/bin/perl
my $text, $orig_text="MyVerySecretPassword";
$text = pack("u",$orig_text);
print "Packed:";
print $text;
print "\nUnpacked:";
print unpack "u",qq($text);
print "\ndone\n";
exit 0

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.