Encode password for macOS /etc/kcpassword (does not handle blank passwords)

kcpasswordEncode_perl.sh

#!/bin/bash

function kcpasswordEncode_perl {
	local PASSWORD="${1}"; 
	#one-liner variation of Gavin Brock's kcpassword.pl
	perl -ne 'sub kcpassword_xor { my ($pass)=@_; my @key=qw( 125 137 82 35 210 188 221 234 163 185 31 ); my $key=pack "C*", @key; my $key_len=length $key; for (my $n=0; $n<length($pass); $n+=$key_len) { substr($pass,$n,$key_len) ^= $key; }; return $pass; }; $userinput = $_; chomp ($userinput); print(kcpassword_xor($userinput));' <<< "${PASSWORD}"
}

kcpasswordEncode_perl "${1}"