Gerador de Senhas [Programa exemplo PT BASIC]

[makergame2000]

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




Download:
https://www.dropbox.com/s/ww53t4lugkppe4o/Gerador%20de%20Senhas.zip?dl=0


Código Aberto (Requer PT BASIC 1.2.5.0 ou superior)

Spoiler

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

[close]