Can’t remember credits for this 🙁 perl -MFile::Find=find -MFile::Spec::Functions -Tlwe ‘find { wanted => sub { print canonpath $_ if /\.pm\z/ }, no_chdir => 1 }, @INC’ | less
Tag: perl
Installed perl libraries
perl -MFile::Find=find -MFile::Spec::Functions -Tlwe ‘find { wanted => sub { print canonpath $_ if /\.pm\z/ }, no_chdir => 1 }, @INC’ | less
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