GERAR CONTRA-SENHA

LUCIANORW 11/08/2010 14:34:42
#349997
Boa tarde!!!
Estou precisando bolar um esquema para mensalidade de programa.
Estou pensando em algo assim:
Me passam um código numérico, que na verdade será uma data do vencimento (11/08/2010, por exemplo) eu recebo este código e converto na data (11/08/2010) ai eu acrescento mais 30 dias (na verdade x-dias), converto em número e passo ao cliente, este informa este código e programa transforma no próximo vencimento.
Confesso que estou perdidaço.
Agradeço ajuda.
Att
Luciano
TECLA 05/09/2010 14:58:23
#352295 Resposta escolhida
Neste link tem diversas exemplos de criptografia.

O primeiro parece ser o mais seguro.
LUCIANORW 06/09/2010 09:03:28
#352320
Bom dia Tecla!!!
Na verdade estava pensando em algo que eu mesmo pudesse fazer.
Veja a idéia que estava tendo e, se puder, é claro, veja no que posso melhorar.

Option Compare Database
Dim vdata_cliente As Date, vnumero_cliente_passa As Long
Dim vdata_validade As Date, vnumero_retorno_cliente As Long
Dim vresultado As String
Sub teste()
[ô]/// cliente passa estes dados
    vdata_cliente = Format(Date, [Ô]dd/mm/yyyy[Ô])
    vnumero_cliente_passa = (vdata_cliente * 2.1416) * 58.98521477
    [ô]/// lrw converte os dados e acrescenta + 1 mês
    vresultado = (vnumero_cliente_passa / 2.1416) / 58.98521477
    vdata_validade = CDate(Format(vresultado, [Ô]dd/mm/yyyy[Ô]))
    vdata_validade = DateAdd([Ô]m[Ô], 1, vdata_validade)
    [ô]/// lrw envia estes dados ao cliente
    vnumero_retorno_cliente = (vdata_validade * 2.1416) * 58.98521477
    [ô]/// sistema interpreta e altera validade
    vresultado = (vnumero_retorno_cliente / 2.1416) / 58.98521477
    vdata_validade = CDate(Format(vresultado, [Ô]dd/mm/yyyy[Ô]))
End Sub

Isso ai é apenas um teste.
Att
Luciano
LUCIANORW 06/09/2010 10:24:51
#352328
Bom dia Elton!!!
Já andei vendo sobre o MD5, mas o que eu não consigo é como fazer o processo inverso.
Pois, vou passar um código xyz de volta, como converto este xyz no que eu preciso.
Poderia me ajudar, fazendo um favor.
Att
Luciano
Tópico encerrado , respostas não são mais permitidas
Voltar