🚀 go-pugleaf

"ansris" <ansrisREMOVE_THIS@hotmail.it> a �crit dans le message de news: 
gnajo1djcrmud57bi62srqq8i7gl6hpo6k@4ax.com...
>
> Salve, volevo chiedervi se avete qualche funzione di criptaggio e
> decriptaggio stringhe: dovrei inserire delle stringhe nel registro di
> configurazione. Ho cercato su google ma tutti gli esempi che ho tovato
> utilizzavano classi particolari o erano troppo complessi. Grazie in
> anticipo a chi vorr� aiutarmi!
>
Ciao
prova con questo l'ho fatto qualche anno fa. :

Public Function Crypt_Text(s As String) As String
Dim i As Long
Dim r As String
    If s = "" Then
        Crypt_Text = ""
        Exit Function
    End If
    For i = 1 To Len(s)
        r = Chr((Asc(mId(s, i, 1)) + (2 ^ 7)))
        Crypt_Text = Crypt_Text & r
    Next
End Function
'*****************************************************
Public Function deCrypt_Text(s As String) As String
Dim i As Long
Dim r As String
    If s = "" Then
        deCrypt_Text = ""
        Exit Function
    End If
    For i = 1 To Len(s)
        r = Chr((Asc(mId(s, i, 1)) - (2 ^ 7)))
        deCrypt_Text = deCrypt_Text & r
    Next
End Function

semplice ma funzionante.