# Erzeugt einen 6-stelligen Code
# Prüft auf Gültigkeit
sub codegen{
    my $self = shift;
    my $time = shift;  # Zeitstempel
    my $in = shift;    # 6 stelliger Code zum Gegenprüfen
    my @date = localtime($time);
    my $code = substr(sha256_hex("@date"),0,6);
    return $in ? $in eq $code : $code;
}