App-Genpass-ID
view release on metacpan or search on metacpan
{
"abstract" : "Generate password from combination of Indonesian words",
"author" : [
"perlancar <perlancar@cpan.org>"
],
"dynamic_config" : 0,
"generated_by" : "Dist::Zilla version 6.010, CPAN::Meta::Converter version 2.150010",
"license" : [
"perl_5"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
---
abstract: 'Generate password from combination of Indonesian words'
author:
- 'perlancar <perlancar@cpan.org>'
build_requires:
File::Spec: '0'
IO::Handle: '0'
IPC::Open3: '0'
Test::More: '0'
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 0
Makefile.PL view on Meta::CPAN
# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.010.
use strict;
use warnings;
use 5.010001;
use ExtUtils::MakeMaker;
my %WriteMakefileArgs = (
"ABSTRACT" => "Generate password from combination of Indonesian words",
"AUTHOR" => "perlancar <perlancar\@cpan.org>",
"CONFIGURE_REQUIRES" => {
"ExtUtils::MakeMaker" => 0
},
"DISTNAME" => "App-Genpass-ID",
"EXE_FILES" => [
"script/_genpass-id",
"script/genpass-id"
],
"LICENSE" => "perl",
NAME
App::Genpass::ID - Generate password from combination of Indonesian
words
VERSION
This document describes version 0.003 of App::Genpass::ID (from Perl
distribution App-Genpass-ID), released on 2018-01-02.
SYNOPSIS
See the included script genpass-id.
FUNCTIONS
genpass
Usage:
genpass(%args) -> [status, msg, result, meta]
Generate password from combination of Indonesian words.
Using password from dictionary words (in this case, from WordList::*)
can be useful for humans when remembering the password. Note that using
a string of random characters is generally better because of the larger
space (combination). Using a password of two random words from a
5000-word wordlist has a space of only ~25 million while an 8-character
of random uppercase letters/lowercase letters/numbers has a space of
62^8 = ~218 trillion. To increase the space you'll need to use more
words (e.g. 3 to 5 instead of just 2). This is important if you are
using the password for something that can be bruteforced quickly e.g.
for protecting on-disk ZIP/GnuPG file and the attacker has access to
your file. It is then recommended to use a high number of rounds for
hashing to slow down password cracking (e.g. "--s2k-count 65011712" in
GnuPG).
This function is not exported.
Arguments ('*' denotes required arguments):
* num => *int* (default: 1)
* patterns => *array[str]* (default: ["%w %w %w","%w %w %w %w","%w %w
%w %w %w","%w %w %w %w %w %w","%W%4d%W","%W%6d%s"])
lib/App/Genpass/ID.pm view on Meta::CPAN
use 5.010001;
use strict;
use warnings;
use App::Genpass::WordList ();
our %SPEC;
$SPEC{genpass} = {
v => 1.1,
summary => 'Generate password from combination of Indonesian words',
description => $App::Genpass::WordList::SPEC{genpass}{description},
args => {
num => {
schema => ['int*', min=>1],
default => 1,
cmdline_aliases => {n=>{}},
},
%App::Genpass::WordList::arg_patterns,
},
examples => [
lib/App/Genpass/ID.pm view on Meta::CPAN
my %args = @_;
App::Genpass::WordList::genpass(
(num => $args{num}) x !!defined($args{num}),
(patterns => $args{patterns}) x !!defined($args{patterns}),
wordlists => ['ID::KBBI'],
);
}
1;
# ABSTRACT: Generate password from combination of Indonesian words
__END__
=pod
=encoding UTF-8
=head1 NAME
App::Genpass::ID - Generate password from combination of Indonesian words
=head1 VERSION
This document describes version 0.003 of App::Genpass::ID (from Perl distribution App-Genpass-ID), released on 2018-01-02.
=head1 SYNOPSIS
See the included script L<genpass-id>.
=head1 FUNCTIONS
=head2 genpass
Usage:
genpass(%args) -> [status, msg, result, meta]
Generate password from combination of Indonesian words.
Using password from dictionary words (in this case, from WordList::*) can be
useful for humans when remembering the password. Note that using a string of
random characters is generally better because of the larger space (combination).
Using a password of two random words from a 5000-word wordlist has a space of
only ~25 million while an 8-character of random uppercase letters/lowercase
letters/numbers has a space of 62^8 = ~218 trillion. To increase the space
you'll need to use more words (e.g. 3 to 5 instead of just 2). This is important
if you are using the password for something that can be bruteforced quickly e.g.
for protecting on-disk ZIP/GnuPG file and the attacker has access to your file.
It is then recommended to use a high number of rounds for hashing to slow down
password cracking (e.g. C<--s2k-count 65011712> in GnuPG).
This function is not exported.
Arguments ('*' denotes required arguments):
=over 4
=item * B<num> => I<int> (default: 1)
=item * B<patterns> => I<array[str]> (default: ["%w %w %w","%w %w %w %w","%w %w %w %w %w","%w %w %w %w %w %w","%W%4d%W","%W%6d%s"])
script/_genpass-id view on Meta::CPAN
# ABSTRACT: Completer script for genpass-id
use 5.010;
use strict;
use warnings;
die "Please run this script under shell completion\n" unless $ENV{COMP_LINE} || $ENV{COMMAND_LINE};
my $args = {program_name=>"genpass-id",read_config=>0,read_env=>0,skip_format=>undef,subcommands=>undef,url=>"/App/Genpass/ID/genpass"};
my $meta = {_orig_args_as=>undef,_orig_result_naked=>undef,args=>{num=>{cmdline_aliases=>{n=>{}},default=>1,schema=>["int",{min=>1,req=>1},{}]},patterns=>{cmdline_aliases=>{p=>{}},default=>["%w %w %w","%w %w %w %w","%w %w %w %w %w","%w %w %w %w %w %w...
my $sc_metas = {};
my $copts = {format=>{default=>undef,getopt=>"format=s",handler=>sub{package Perinci::CmdLine::Base;use warnings;use strict;no feature;use feature ':5.10';my($go, $val, $r) = @_;$$r{'format'} = $val},is_settable_via_config=>1,schema=>["str*","in",["t...
my $r = {};
# get words
my $shell;
my ($words, $cword);
script/_genpass-id view on Meta::CPAN
# links => {},
#
# schema => {},
# filters => {},
# default => {},
# req => {},
# pos => {},
# greedy => {},
# partial => {},
# stream => {},
# is_password => {},
# cmdline_aliases => {
# _value_prop => {
# summary => {},
# description => {},
# schema => {},
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
script/_genpass-id view on Meta::CPAN
# default => {},
# default_lang => {},
# defhash_v => {},
# deps => { _keys => { all => {}, any => {}, arg => {}, none => {} } },
# description => {},
# element_completion => {},
# element_meta => { _prop => 'fix', _ver => 1.1, summary => "Rinci function metadata" },
# filters => {},
# greedy => {},
# index_completion => {},
# is_password => {},
# links => {},
# meta => 'fix',
# name => {},
# partial => {},
# pos => {},
# req => {},
# schema => {},
# stream => {},
# summary => {},
# tags => {},
script/genpass-id view on Meta::CPAN
#!perl
### code_after_shebang
# Note: This script is a CLI for Riap function /App/Genpass/ID/genpass
# and generated automatically using Perinci::CmdLine::Gen version 0.483
# PERICMD_INLINE_SCRIPT: {"code_after_shebang":"...","config_dirs":null,"config_filename":"genpass-id.conf","env_name":"GENPASS_ID_OPT","include":null,"log":null,"pack_deps":1,"pod":0,"read_config":1,"read_env":1,"script_name":"genpass-id","script_su...
my $_pci_metas = {""=>{args=>{num=>{cmdline_aliases=>{n=>{}},default=>1,schema=>["int",{min=>1,req=>1},{}]},patterns=>{cmdline_aliases=>{p=>{}},default=>["%w %w %w","%w %w %w %w","%w %w %w %w %w","%w %w %w %w %w %w","%W%4d%W","%W%6d%s"],description=>...
# This script is generated by Perinci::CmdLine::Inline version 0.541 on Tue Jan 2 11:42:34 2018.
# Rinci metadata taken from these modules: App::Genpass::ID (no version)
# You probably should not manually edit this file.
our $DATE = '2018-01-02'; # DATE
our $VERSION = '0.003'; # VERSION
# PODNAME: genpass-id
# ABSTRACT: Generate password from combination of Indonesian words
# BEGIN DATAPACK CODE
{
my $toc;
my $data_linepos = 1;
unshift @INC, sub {
$toc ||= do {
my $fh = \*DATA;
script/genpass-id view on Meta::CPAN
### get arguments (from config file, env, command-line args
{
my %mentioned_args;
require Getopt::Long::EvenLess;
my $go_spec1 = {
'config-path=s@' => sub { $_pci_r->{config_paths} //= []; push @{ $_pci_r->{config_paths} }, $_[1]; },
'config-profile=s' => sub { $_pci_r->{config_profile} = $_[1]; },
'format=s' => sub { $_pci_r->{format} = $_[1]; },
'help|h|?' => sub { print "genpass-id - Generate password from combination of Indonesian words\n\nUsage:\n genpass-id --help (or -h, -?)\n genpass-id --version (or -v)\n genpass-id [options]\n\nUsing password from dictionary words (in this cas...
'json' => sub { $_pci_r->{format} = (-t STDOUT) ? "json-pretty" : "json"; },
'naked-res' => sub { $_pci_r->{naked_res} = 1; },
'no-config' => sub { $_pci_r->{read_config} = 0; },
'no-env' => sub { $_pci_r->{read_env} = 0; },
'no-naked-res|nonaked-res' => sub { $_pci_r->{naked_res} = 0; },
'version|v' => sub { no warnings 'once'; require App::Genpass::ID; print "genpass-id version ", "0.003", ($App::Genpass::ID::DATE ? " ($App::Genpass::ID::DATE)" : ''), "\n"; print " Generated by Perinci::CmdLine::Inline version 0.541 (2017-08-16...
};
my $go_spec2 = {
'config-path=s@' => sub { },
'config-profile=s' => sub { },
script/genpass-id view on Meta::CPAN
my $exit_code = $_pci_r->{res}[3]{"cmdline.exit_code"} // ($status =~ /200|304/ ? 0 : ($status-300));
exit($exit_code);
}
=pod
=encoding UTF-8
=head1 NAME
genpass-id - Generate password from combination of Indonesian words
=head1 VERSION
This document describes version 0.003 of main (from Perl distribution App-Genpass-ID), released on 2018-01-02.
=head1 SYNOPSIS
Usage:
% genpass-id [options]
=head1 DESCRIPTION
Using password from dictionary words (in this case, from WordList::*) can be
useful for humans when remembering the password. Note that using a string of
random characters is generally better because of the larger space (combination).
Using a password of two random words from a 5000-word wordlist has a space of
only ~25 million while an 8-character of random uppercase letters/lowercase
letters/numbers has a space of 62^8 = ~218 trillion. To increase the space
you'll need to use more words (e.g. 3 to 5 instead of just 2). This is important
if you are using the password for something that can be bruteforced quickly e.g.
for protecting on-disk ZIP/GnuPG file and the attacker has access to your file.
It is then recommended to use a high number of rounds for hashing to slow down
password cracking (e.g. C<--s2k-count 65011712> in GnuPG).
=head1 OPTIONS
C<*> marks required options.
=head2 Main options
=over
=item B<--num>=I<s>, B<-n>
script/genpass-id view on Meta::CPAN
# links => {},
#
# schema => {},
# filters => {},
# default => {},
# req => {},
# pos => {},
# greedy => {},
# partial => {},
# stream => {},
# is_password => {},
# cmdline_aliases => {
# _value_prop => {
# summary => {},
# description => {},
# schema => {},
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
( run in 0.740 second using v1.01-cache-2.11-cpan-49f99fa48dc )