Gerador de senhas

Gerador de senhas
Este é um simples programa que gera senhas.
No programa é possivel guardar a senha num ficheiro de txt.



COR: {BRANCO_BRILHANTE}{PRETO}
NOME_DA_JANELA Gerador de Senhas
TAMANHO_DA_JANELA HORIZONTAL=25 VERTICAL=10

MARCA.topo
LIMPAR_TEXTO
OPERAR parte1=ACASO_98
OPERAR parte2=ACASO_513
OPERAR parte3=ACASO_645
OPERAR parte4=ACASO_900
OPERAR parte5=ACASO_801
OPERAR x=ACASO_23

SE: %parte2% MAIOR_QUE 350 (
SE: %x% IGUAL_A 1 (VAR parte2=qdwg)
SE: %x% IGUAL_A 2 (VAR parte2=wfawd)
SE: %x% IGUAL_A 3 (VAR parte2=ewada)
SE: %x% IGUAL_A 4 (VAR parte2=raa)
SE: %x% IGUAL_A 5 (VAR parte2=tddw)
SE: %x% IGUAL_A 6 (VAR parte2=ydaws)
SE: %x% IGUAL_A 7 (VAR parte2=udsafd)
SE: %x% IGUAL_A 8 (VAR parte2=isad)
SE: %x% IGUAL_A 9 (VAR parte2=oafds)
SE: %x% IGUAL_A 10 (VAR parte2=pdssa)
SE: %x% IGUAL_A 11 (VAR parte2=aasv)
SE: %x% IGUAL_A 12 (VAR parte2=sdsad)
SE: %x% IGUAL_A 13 (VAR parte2=dd)
SE: %x% IGUAL_A 14 (VAR parte2=vvsdf)
SE: %x% IGUAL_A 15 (VAR parte2=gsdv)
SE: %x% IGUAL_A 16 (VAR parte2=hfax)
SE: %x% IGUAL_A 17 (VAR parte2=jsd)
SE: %x% IGUAL_A 18 (VAR parte2=kad)
SE: %x% IGUAL_A 19 (VAR parte2=lsdf)
SE: %x% IGUAL_A 20 (VAR parte2=zsas)
SE: %x% IGUAL_A 21 (VAR parte2=xsd)
SE: %x% IGUAL_A 22 (VAR parte2=csdx)
SE: %x% IGUAL_A 23 (VAR parte2=vffa)

)

SE: %parte4% MAIOR_QUE 600 (
SE: %x% IGUAL_A 1 (VAR parte4=afdf)
SE: %x% IGUAL_A 2 (VAR parte4=baertyy)
SE: %x% IGUAL_A 3 (VAR parte4=cds)
SE: %x% IGUAL_A 4 (VAR parte4=df)
SE: %x% IGUAL_A 5 (VAR parte4=ed)
SE: %x% IGUAL_A 6 (VAR parte4=fff)
SE: %x% IGUAL_A 7 (VAR parte4=gsd)
SE: %x% IGUAL_A 8 (VAR parte4=hf)
SE: %x% IGUAL_A 9 (VAR parte4=is)
SE: %x% IGUAL_A 10 (VAR parte4=j)
SE: %x% IGUAL_A 11 (VAR parte4=lll)
SE: %x% IGUAL_A 12 (VAR parte4=xad)
SE: %x% IGUAL_A 13 (VAR parte4=fr)
SE: %x% IGUAL_A 14 (VAR parte4=gf)
SE: %x% IGUAL_A 15 (VAR parte4=mng)
SE: %x% IGUAL_A 16 (VAR parte4=fdas)
SE: %x% IGUAL_A 17 (VAR parte4=rtd)
SE: %x% IGUAL_A 18 (VAR parte4=edasf)
SE: %x% IGUAL_A 19 (VAR parte4=bghp)
SE: %x% IGUAL_A 20 (VAR parte4=cagh)
SE: %x% IGUAL_A 21 (VAR parte4=ehfw)
SE: %x% IGUAL_A 22 (VAR parte4=fsrgh)
SE: %x% IGUAL_A 23 (VAR parte4=seg)

)
MARCA.cima
LIMPAR_TEXTO
MOSTRAR Senha gerada:
MOSTRAR %parte1%-%parte2%-%parte3%-%parte4%-%parte5%
MOSTRAR %parte1%%parte2%%parte3%%parte4%%parte5%
ESPAÇO
MOSTRAR [1] Nova Senha
MOSTRAR [2] Gravar Senha
INSERIR k=
SE: %k% IGUAL_A 1 VAI_PARA topo
SE: %k% IGUAL_A 2 VAI_PARA gravar
VAI_PARA cima


MARCA.gravar
VAR nome=%parte1%%parte2%%parte3%%parte4%%parte5%
MOSTRAR %parte1%%parte2%%parte3%%parte4%%parte5% COLOCAR_TEXTO: %nome%.txt
MOSTRAR A senha foi gravada.
PAUSA_TECLA_PARA_CONTINUAR
VAI_PARA topo