|
Attribute VB_Name = "Module1" 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, casuale, 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, casualex, 1)) + 31) Next casualex End Function
|
|
