# Erzeugt einen 6-stelligen Code der eine Stunde gültig ist
sub codegen{
    my $self = shift;
    my $in = shift;    # 6 stelliger Code zum Gegenprüfen
    my ($s, $m, @date) = localtime;
    my $code = substr(sha256_hex("@date"),0,6);
    return $in ? $in eq $code : $code;
}