encrypt/decrypt data

[SkyHigh]

Hi Folks
Does anyone have some code to encrypt and decrypt data in a particular field of a table.

Thanks
Brenda

 

[RoyVidar]

There was a discussion only a couple of days ago referring to the VB5/6 forum thread702-878630. It should be adaptable for the use you describe.

Roy-Vidar

 

[antoncata]

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