La criptazione é ormai indispensabile poichè siamo continuamente attaccati da hacker,cracker,lamer e qualsiasi termine per dire quel genere di pirati-programmatori.

Ma passiamo alla pratica,ora vi posto una semplice rouine che cripta in modo semplice una stringa e anche la relativa decriptazione


1)In un modulo inserisci questo

Private Const Chiave As String = "!àéèìòù°+*]-.,;QWERTYUIOPASDFGHJKLZXCVBNM:_£$%&/()=?123456789qwertyuiopasdfghjklzxcvbnm<>{}" 

Public Function Cripta(ByVal Testo As String) As String 
Dim casuale As Integer 
For casuale = 1 To Len(Testo) 
Cripta = Cripta & Mid$(Chiave, Asc(Mid$(Testo, ix, 1)) - 31, 1) 
Next casuale 
End Function 
Public Function DeCripta(ByVal Testo As String) As String 
Dim casualex As Long 
For casualex = 1 To Len(Testo) 
DeCripta = DeCripta & Chr$(InStr(Chiave, Mid$(Testo, ix, 1)) + 31) 
Next casualex 
End Function 

Nel generale del form

Private Sub Form_Click() 
    Dim TC As String 
    Dim TD As String 
    TC = Cripta("ciao") 
    Print TC 
    TD = DeCripta(TC) 
    Print TD 
End Sub 

Se cilkki il form nella prima riga ti appare ciao criptato e nella seconda ti appare ciao riportato alla parola normale.


GIUS