パスワードジェネレータ

Perl 30分プログラム

30分プログラム、その694。パスワードジェネレータを作ってみました。
世の中には色々な基準でパスワードを作ってくれるジェネレータがありますが、今回は単純なランダムな文字列を生成するやつを作りました。

使い方

$ perl gen_pwd.pl
Yncw":o-dSGRn
]L5>5Z_.0XE-b
$;<&9vDj9Bvm6

ソースコード

#! /usr/bin/perl
# -*- mode:perl; coding:utf-8 -*-
#
# gen_pwd.pl -
#
# Copyright(C) 2009 by mzp
# Author: MIZUNO Hiroki / mzpppp at gmail dot com
# http://howdyworld.org
#
# Timestamp: 2009/11/13 22:23:39
#
# This program is free software; you can redistribute it and/or
# modify it under MIT Lincence.
#


use strict;
use warnings;
use Data::Dumper;

sub random_char(){
    my $from = 0x21; # !
    my $to = 0x7e;   # ~
    my $c = rand($to - $from);
    chr $c + $from;
}

sub repeat(&$){
    my ($f,$n) = @_;
    map { $f->($n) } (1..$n);
}

repeat {
    repeat { print random_char } 13;
    print "\n";
} 3;

参考