#!/bin/bash
# Password generators

# Simple alphabetic password making function
function mkpw() { head /dev/urandom | uuencode -m – | sed -n 2p | cut -c1-${1:-8}; }

function mkpw_md5() { # Hex password making function via MD5 hashing

# random + Year + Month + Day + Hour + Minute + Second + Nanoseconds
local s=$(head /dev/urandom)$(date +%Y%m%d%H%M%S%N)
echo $s | md5sum | cut -c1-${1:-8};
}

function mkpw_md5_alpha() { # Alphabetic password making function via MD5 hashing

# random + Year + Month + Day + Hour + Minute + Second + Nanoseconds
local s=$(head /dev/urandom)$(date +%Y%m%d%H%M%S%N)
echo $s | md5sum | uuencode -m -| sed -n 2p | cut -c3-43 | cut -c1-${1:-8};
}

function mkpw_sha1() { # Hex password making function via SHA1 hashing

# random + Year + Month + Day + Hour + Minute + Second + Nanoseconds
local s=$(head /dev/urandom)$(date +%Y%m%d%H%M%S%N)
echo $s | sha1sum | cut -c1-${1:-8};
}

function mkpw_sha1_alpha() { # Alphabetic password making function via SHA1 hashing

# random + Year + Month + Day + Hour + Minute + Second + Nanoseconds
local s=$(head /dev/urandom)$(date +%Y%m%d%H%M%S%N)
echo $s | sha1sum | uuencode -m -| sed -n 2p | cut -c3-43 | cut -c1-${1:-8};

}

#!/usr/bin/perl -w
# Perl version of mkpw_md5_alpha
# Call this by /usr/bin/perl mkpw_md5_alpha.pl –length=integer \$length, # Password length
“count=i” => \$cnt); # Number of hash feedback-cycles

open(DATE, “date +%Y%m%d |”); $theDate = ; close(DATE);
$adate = int($theDate); # Generate Year-Month-Day variable signature

open(DATE, “date +%H%M%S |”); $theDate = ; close(DATE);
$bdate = int($theDate); # Generate Hour-Min-Sec variable signature

open(DATE, “date +%N |”); $theDate = ; close(DATE);
$cdate = int($theDate); # Generate Nanoseconds variable signature

$xdate = $adate ^ $bdate ^ $cdate; $pdate = pack(”a”, $xdate); # Combinate signatures by xor

open(RNG, “head /dev/urandom |”); $sx=; close(RNG);
$sx = $sx.$pdate; # Get random generator concatenated with signatures combination

while ($cnt > 1) { # Process MD5 feedback cycles

$cnt = $cnt – 1;
$sx = md5($sx);

}

$sx = md5_hex($sx); # Last MD5 cycle

# Get substring from base64 encoded random
open(PWD, “echo $sx | uuencode -m -| sed -n 2p | cut -c3-43 |”); $sx=; close(PWD);

$pass = substr($sx, 1, $length); # Limit password length and print it
printf(”%s\n”, $pass);

Можно улучшить стойкость пароля из предыдущего примера:

#!/usr/bin/perl -w
# Perl version of mkpw_md5_alpha
# Call this by /usr/bin/perl mkpw_md5_alpha.pl [–length=integer \$length, # Password length
“cycles=i” => \$cycles); # Number of hash feedback-cycles

#open(DATE, “date +%Y%m%d |”); $theDate = ; close(DATE);
#$ddate = int($theDate); # Generate Year-Month-Day variable signature

# YY-MM-DD date
$hyear = int(strftime “%y”, localtime);
$hmonth = int(strftime “%m”, localtime);
$hday = int(strftime “%d”, localtime);
$ddate = 365 * $hyear + 30 * $hmonth + $hday; # Pseudo-day normalized date signature

#open(DATE, “date +%H%M%S |”); $theDate = ; close(DATE);
#$bdate = int($theDate); # Generate Hour-Min-Sec variable signature

# HH:MM:SS date
$hhour = int(strftime “%H”, localtime);
$hmin = int(strftime “%M”, localtime);
$hsec = int(strftime “%S”, localtime);
$tdate = 3600 * $hhour + 60 * $hmin + $hsec; # Second normalized time signature

open(DATE, “date +%N |”); $theDate = ; close(DATE);
$nsdate = int($theDate); # Nanosecond normalized time

$xdate = $ddate ^ $tdate ^ $nsdate; # Combinate signatures by xor
$pdate = pack(“a”, $xdate); # Pack signature to a string

open(RNG, “head /dev/urandom |”); $sx=; close(RNG);
$sx = $sx.$pdate; # Get random generator concatenated with signatures combination

while ($cycles > 1) { # Process MD5 feedback cycles

$cycles = $cycles – 1;
$sx = md5($sx);

}

$sx = encode_base64(md5($sx)); # Convert result of last MD5 cycle to Base64
$sx = substr($sx, 0, 16); # Cut control symbols in tail

# Get substring from base64 encoded random
#open(PWD, “echo $sx | uuencode -m -| sed -n 2p | cut -c3-43 |”); $sx=; close(PWD);

printf(“%s\n”, substr($sx, 0, $length)); # Limit password length and print password


#!/usr/bin/perl -w
# Perl version of mkpw_md5_alpha
# Call this by /usr/bin/perl mkpw_md5_alpha.pl [--length=integer \$length, # Password length
"cycles=i" => \$cycles); # Number of hash feedback-cycles