password

    architecture pass_arch of pass is

        begin
        process(clkin)
        variable ntakta : integer := 0;
        variable ok1 : integer := 0;
        begin
        if ((clkin'event) and (clkin = '1')) then

        ntakta := ntakta + 1;
        ok1 := 0;
        if ((ntakta = 1) and (k1 = "01010101") and (clkin'event) and (clkin = '1'))
        then ok1 := 1;
        end if;
        if ((ntakta = 2) and (k2 = "11001100") and (clkin'event) and (clkin = '1'))
        then ok1 := 1;
        end if;
        if ((ntakta = 3) and (k3 = "11001100") and (clkin'event) and (clkin = '1'))
        then ok1 := 1;
        end if;
        if ((ntakta = 4) and (k3 = "11001100") and (clkin'event) and (clkin = '1'))
        then ok1 := 1;
        end if;
        if ((ntakta = 5) and (k1 = "01010101") and (clkin'event) and (clkin = '1'))
        then ok1 := 1;
        end if;
        if ((ntakta = 6) and (k3 = "01010101") and (clkin'event) and (clkin = '1'))
        then ok1 := 1;
        end if;
        if ((ntakta = 7) and (k3 = "01010101") and (clkin'event) and (clkin = '1'))
        then ok1 := 1;
        end if;
        if ((ntakta = 8) and (k2 = "01010101") and (clkin'event) and (clkin = '1'))
        then ok1 := 1;
        end if;
        if (ok1 = 1) then ntakta := 0;
        end if;

        if ((ntakta = 3) and (clkin'event) and (clkin = '1'))
        then y10 <= '1', '0' after 20 ns;
        ntakta := 0;
        end if;
        end if;

        end process;

    end pass_arch;