#!/usr/bin/perl -w

use strict;
use v5.30;

use Digest::MD5 qw(md5_hex);

my $id = 'ugkcyxxp';
my $pass = ' ' x 8;
my $i = 0;
while ($pass =~ /\s/) {
	my $h = md5_hex($id.$i);
	if ($h =~ /\A00000/) {
		my $pos = substr($h, 5, 1);
		if ($pos =~ /[0-7]/ && substr($pass, $pos, 1) eq ' ') {
			substr($pass, $pos, 1) = substr($h, 6, 1);
		}
	}
	$i++;
}

say $pass;
		
