BMTEncode
Encode/Decode a string. (BMTEncode refined version). If f.ex. enter AA the 2 output chars wont be the same.
AI
ملخص الذكاء الاصطناعي: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
كود المصدر
'* 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
التعليقات الأصلية (3)
مسترجع من Wayback Machine