• Home
 · 
• Encryption
 · 
• Logical String Encryption

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.

Rate Logical String Encryption

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

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