Ir para conteúdo
Fórum Script Brasil

Legionario

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Tudo que Legionario postou

  1. nessa minha funcao eu estou passando o serial do hd ex.: Edit2.Text := GeraSenha(Edit1.Text) // no Edit1 tem o serial do hd tipo KJP125H e no Edit2 ela gera uma outra contra senha baseada no serial do hd que esta no Edit1, so que ela não aceita letras so aceita numeros então eu queria fazer ela aceitar letras tambem.
  2. 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;
  3. Ola pessoal...tudo bem com vocês? espero que sim.... bom é o seguinte...eu estou aqui pra pedir uma ajudinha de vocês, eu estou pretendo fazer um sistema que pegue o serial do hd...essa funcao já tenho...e depois eu gostaria de gerar uma outra senha baseada no serial do hd pra estar liberando o sistema. gostaria de saber de vocês se teria alguma rotina que fizesse isso pra poder passar pra mim... ficaria muito grato se pudessem. bom então é isso pessoal....abração pra todos e conto com a ajuda de vocês.
×
×
  • Criar Novo...