README.md

December 5, 2022 ยท View on GitHub

Logical String Encryption

Description

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.

More Info

Submitted On
ByAdam Orenstein
LevelAdvanced
User Rating3.2 (16 globes from 5 users)
CompatibilityVB 6.0
CategoryEncryption
WorldVisual Basic
Archive File

Source Code

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