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