• Home
 · 
• String Manipulation
 · 
• BMTEncode

BMTEncode

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

Returns
String

API Declarations



Rate BMTEncode

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

'* 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