by Walter Eigner (15 Submissions)
Category: Encryption
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 23rd February 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
A very simple encoding format. This simply replaces each ascii character with 255 minus the ascii char code.
VBcoders
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
No comments have been posted about A very simple encoding format. This simply replaces each ascii character with 255 minus the ascii c. Why not be the first to post a comment about A very simple encoding format. This simply replaces each ascii character with 255 minus the ascii c.
