• Home
 · 
• Encryption
 · 
• A very simple encoding format. This simply replaces each ascii character with 255 minus the ascii c

A very simple encoding format. This simply replaces each ascii character with 255 minus the ascii c

A very simple encoding format. This simply replaces each ascii character with 255 minus the ascii char code.

Rate A very simple encoding format. This simply replaces each ascii character with 255 minus the ascii c

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Function encode(str As String) As String
Dim i As Long
Dim r As String
For i = 1 To Len(str)
r = r & Chr(255 - Asc(str))
str = Right$(str, Len(str) - 1)
Next
encode = r
End Function

Function decode(str As String) As String
Dim i As Long
Dim r As String
For i = 1 To Len(str)
r = r & Chr(255 - Asc(str))
str = Right$(str, Len(str) - 1)
Next
decode = r
End Function