Codigo Gerador de senha
Caro(s) Colegas(s) de Clube,
Estou com essa rotina de Geração de Senha p/ Registrar o sistema.
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
const
str=´1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ´;
max=6;
begin
Edit1.Text:=´´;
for i:=1 to max do
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;
Agora, gostaria de fazer o meu sistema ler a senha gerada, para licenciar o sistema.
Brigaduuuuuuuuuuuuuuuuuuuuuu.
Wiltefran Silva - Balsas(MA)
Programador (Meggasoft Informatica)
Estou com essa rotina de Geração de Senha p/ Registrar o sistema.
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
const
str=´1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ´;
max=6;
begin
Edit1.Text:=´´;
for i:=1 to max do
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;
Agora, gostaria de fazer o meu sistema ler a senha gerada, para licenciar o sistema.
Brigaduuuuuuuuuuuuuuuuuuuuuu.
Wiltefran Silva - Balsas(MA)
Programador (Meggasoft Informatica)
Maranhao
Curtidas 0
Respostas
Luciano Pimenta®
25/02/2003
Uma dica é salvar no BD, mas não fica segura, se o usuário abrir o BD acha a senha, outra forma é salvar num arq .ini, e guardar na pasta System, com um novo diferente para não chamar a atenção de micreiros fusadeiros.
T+
:)
T+
:)
GOSTEI 0