Logical String Encryption
This will logically encrypt a string by deviating its ASC() value. Works perfectly. Its just a VERY Short Algoritm the String gets passed through Charachter by Character. To decrypt just redo the encryption. just like a double negative.
AI
AI-sammanfattning: 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.
Källkod
Public Function EncodeText(TheText As String) As String
Dim Letter As String
Dim TextLen As Integer
Dim Crypt As Double
TextLen = Len(TheText)
For Crypt = 1 To TextLen
Letter = Asc(Mid(TheText, Crypt, 1))
Letter = Letter Xor 255
Result$ = Result$ & Chr(Letter)
Next Crypt
EncodeText = Result$
End Function
Originalkommentarer (3)
Återställd från Wayback Machine