ola pessoal....eu estou com essa função pra gerar senha mas ela so gera senha com numeros e eu queria mudar ela pra trabalhar com numeros e letras mas não estou conseguindo fazer isso...sera que vocês poderiam dar uma olhadinha nela pra mim e ver o que poderia ser mudado pra ela trabalhar com letrar e numeros....
Pergunta
Legionario
ola pessoal....eu estou com essa função pra gerar senha mas ela so gera senha com numeros e eu queria mudar ela pra trabalhar com numeros e letras mas não estou conseguindo fazer isso...sera que vocês poderiam dar uma olhadinha nela pra mim e ver o que poderia ser mudado pra ela trabalhar com letrar e numeros....
codigo da funcao:
function GeraSenha (ContSenha: String): String;
var
N1, N2, N3, N4, N5, N6, N7, N8, N9, N10, N11, N12, N13, N14, N15: Integer;
D1, D2, D3, D4, D5: Integer;
begin
N1:= StrToInt(ContSenha[1]); N6:= StrToInt(ContSenha[6]); N11:= StrToInt(ContSenha[11]);
N2:= StrToInt(ContSenha[2]); N7:= StrToInt(ContSenha[7]); N12:= StrToInt(ContSenha[12]);
N3:= StrToInt(ContSenha[3]); N8:= StrToInt(ContSenha[8]); N13:= StrToInt(ContSenha[13]);
N4:= StrToInt(ContSenha[4]); N9:= StrToInt(ContSenha[9]); N14:= StrToInt(ContSenha[14]);
N5:= StrToInt(ContSenha[5]); N10:= StrToInt(ContSenha[10]); N15:= StrToInt(ContSenha[15]);
D1:= (N1 mod 2) + (N2 mod 3) + (N3 mod 2);
D2:= (N4 + 2) + (N5 + 3) - (N6 - 2);
D3:= (N7 * 2) - (N8 div 3) + (N9 div 2);
D4:= (N1 div 2) - (N2 div 3) + (N3 div 2);
D5:= (N1 + 2) + (N2 * 3) + (N3 - 2);
Result:= IntToStr(D5) + IntToStr(D3) + IntToStr(D1) + IntToStr(D2) + IntToStr(D4) + IntToStr(d3 * N11) + IntToStr(N12 + n14*2) + IntToStr(N15) + InttoStr(d2 * (N3 mod 3)) + IntToStr(N8) + InttoStr(N5 + N3 - d3);
end;
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.