كود لتشفير البيانات

[الفارس]

كود لتشفير البيانات

 كود
Public Function DeCode(m_Str As String) As String
Dim X As Integer,S As String

For X = 1 To Len(m_Str)
S = S & (Chr(255 - Asc(Mid(m_Str,X,1))))
Next X

DeCode = S
End Function