Tag: perl

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