IDENTIFICACAO ELETRONICA

DIOGOMUNARIN 07/08/2007 18:33:04
#229892
Glera alguem tem algum algoritmo q gere um tipo de encriptaçao.
Por exemplo, tenho uma nota fisca numero 98, cod cliente 101
O algoritmo gere um codigo tipo A39B456.
E com esse codigo eu consiga identificar o numero da nota e o cliente.
Se alguem puder ajudar eu agradeço desde ja.
MJAC 14/08/2007 11:38:00
#230828
Amigão podemos criar uma função que faça isso, mas primeiro devemos definir o padrão da informação pelo seu exemplo:
A nota fiscal divididada por dois se o resto for 0 então acrescenta A se não acrecenta B no final e para complicar mais um pouco a primeira letra é A se o resultado da divisão for impar e B se for par.
Para o cliente, se o código for maior que a nota então podemos subtrair esse valor e acrescentar uma letra S e caso contrario invertemos a subtração e acrescentamos uma letra I.
Vc tem a liberdade de criar o algoritimo que desejar, mas o exemplo acima ficaria assim:

Citação:


Public Function Mistura(Notas As Long, Cliente As Long) As String
    Dim Vl As String
    Vl = Notas \ 2
    Vl = IIf(Vl Mod 2 = 0, "B", "A") & Vl & IIf(Notas Mod 2 = 0, "A", "B")
    If Cliente > Notas Then
        Vl = Vl & (Cliente - Notas) & "S"
    Else
        Vl = Vl & (Notas - Cliente) & "I"
    End If
    Mistura = Vl
End Function



Entendeu? Abraços...
DIOGOMUNARIN 15/08/2007 18:36:56
#231101
Obrigado mas consegui um ja com o JeanJedson.
Se ele nao responder o topico vou postar aki pra glera.
Tópico encerrado , respostas não são mais permitidas
Voltar