by Y'll never know ()
Category: String Manipulation
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (2 Votes)
Encode/Decode a string. (BMTEncode refined version). If f.ex. enter AA the 2
output chars wont be the same.
Inputs
Textstring = text to Encode/Decode
value = 0 or 1 for either Encode/Decode
Code Returns
String
API Declarations
'* Sorry for stealing code, but I couldn't help it when I saw the garbage
'* routine called BMTEncrypt.
Function BTMEncrypt(text, types)
For god = 1 To Len(text)
If types = 0 Then
Current$ = Asc(Mid(text, god, 1)) - god
Else
Current$ = Asc(Mid(text, god, 1)) + god
End If
Process$ = Process$ & Chr(Current$)
Next god
BTMEncrypt = Process$
End Function