Function codare(x As String) As String
Dim y As String
Dim i As Integer
Dim n As Integer
If x = "" Then
codare = ""
Exit Function
End If
n = Len(x)
y = ""
For i = 1 To n
y = y & Chr(Asc(Mid(x, i, 1)) + 5)
Next i
codare = y
End Function
Function decodare(x As String) As String
Dim y As String
Dim i As Integer
Dim n As Integer
If x = "" Then
decodare = ""
Exit Function
End If
n = Len(x)
y = ""
For i = 1 To n
y = y & Chr(Asc(Mid(x, i, 1)) - 5)
Next i
decodare = y
End Function
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.