Skip to content

Instantly share code, notes, and snippets.

@jadeallenx
Created June 3, 2013 03:40
Show Gist options
  • Save jadeallenx/5696021 to your computer and use it in GitHub Desktop.
Save jadeallenx/5696021 to your computer and use it in GitHub Desktop.
My voice is my passport. Verify me.
#!/usr/bin/env perl
use 5.018;
use charnames ();
binmode(STDOUT, ":utf8");
my $upper_prefix = "CIRCLED LATIN CAPITAL LETTER";
my $lower_prefix = "CIRCLED LATIN SMALL LETTER";
my $password = "MyNameIsWernerBrandes"; # or whatever
say join "", map {; charnames::string_vianame($_) }
map {; /[A-Z]/ ? "$upper_prefix \U$_" : "$lower_prefix \U$_" } split //, $password;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment