• Home
 · 
• String Manipulation
 · 
• a clean Text Encryption/Decryption module

a clean Text Encryption/Decryption module

This code will take your text and encrypt it so that it is completely non-readable. I am sure that is someone studied the output long enouch they might be able to break the code, but it would be tough. You can see how easy it actually is to encrypt/decrypt text. It cover all basic letters and most special characters. If you can see it on your keyboard then that character has been covered. Later versions of this code will be much more complex in the way it encrypts the text. and I may include a feature that will require a key to unlock the text. Have fun. Peace

Inputs
Just some Text. that is it.

Assumes
Just paste this code into a module and you should be all set.

Returns
It may look as if someone fell asleep on there keyboard but it is fact encrypted text.

Side Effects
none that I know of.

API Declarations
Option Explicit

Rate a clean Text Encryption/Decryption module

• 1
• 2
• 3
• 4
• 5

(13(13 Vote))

Public Function Encode(vText As String)
 Dim CurSpc As Integer
 Dim varLen As Integer
 Dim varChr As String
 Dim varFin As String
 
 varLen = Len(vText)
 Do While CurSpc <= varLen
 DoEvents
  CurSpc = CurSpc + 1
  varChr = Mid(vText, CurSpc, 1)
  Select Case varChr
   'lower case
   Case "a"
    varChr = "coe"
   Case "b"
    varChr = "wer"
   Case "c"
    varChr = "ibq"
   Case "d"
    varChr = "am7"
   Case "e"
    varChr = "pm1"
   Case "f"
    varChr = "mop"
   Case "g"
    varChr = "9v4"
   Case "h"
    varChr = "qu6"
   Case "i"
    varChr = "zxc"
   Case "j"
    varChr = "4mp"
   Case "k"
    varChr = "f88"
   Case "l"
    varChr = "qe2"
   Case "m"
    varChr = "vbn"
   Case "n"
    varChr = "qwt"
   Case "o"
    varChr = "pl5"
   Case "p"
    varChr = "13s"
   Case "q"
    varChr = "c%l"
   Case "r"
    varChr = "w$w"
   Case "s"
    varChr = "6a@"
   Case "t"
    varChr = "!2&"
   Case "u"
    varChr = "(=c"
   Case "v"
    varChr = "wvf"
   Case "w"
    varChr = "dp0"
   Case "x"
    varChr = "w$-"
   Case "y"
    varChr = "vn&"
   Case "z"
    varChr = "c*4"
   
   'numbers
   Case "1"
    varChr = "aq@"
   Case "2"
    varChr = "902"
   Case "3"
    varChr = "2.&"
   Case "4"
    varChr = "/w!"
   Case "5"
    varChr = "|pq"
   Case "6"
    varChr = "ml|"
   Case "7"
    varChr = "t'?"
   Case "8"
    varChr = ">^s"
   Case "9"
    varChr = ""
    varChr = "RL^"
   Case "/"
    varChr = "40C"
   Case "?"
    varChr = "?#9"
   Case "\"
    varChr = "_?/"
   Case "|"
    varChr = "(_@"
   Case " "
    varChr = "=#B"
  End Select
  
  varFin = varFin & varChr
 DoEvents
 Loop
 
 Encode = varFin
End Function
Public Function DeCode(vText As String)
 Dim CurSpc As Integer
 Dim varLen As Integer
 Dim varChr As String
 Dim varFin As String
 CurSpc = CurSpc + 1
 varLen = Len(vText)
 Do While CurSpc <= varLen
 DoEvents
  
  varChr = Mid(vText, CurSpc, 3)
  
  
  
  Select Case varChr
   'lower case
   Case "coe"
    varChr = "a"
   Case "wer"
    varChr = "b"
   Case "ibq"
    varChr = "c"
   Case "am7"
    varChr = "d"
   Case "pm1"
    varChr = "e"
   Case "mop"
    varChr = "f"
   Case "9v4"
    varChr = "g"
   Case "qu6"
    varChr = "h"
   Case "zxc"
    varChr = "i"
   Case "4mp"
    varChr = "j"
   Case "f88"
    varChr = "k"
   Case "qe2"
    varChr = "l"
   Case "vbn"
    varChr = "m"
   Case "qwt"
    varChr = "n"
   Case "pl5"
    varChr = "o"
   Case "13s"
    varChr = "p"
   Case "c%l"
    varChr = "q"
   Case "w$w"
    varChr = "r"
   Case "6a@"
    varChr = "s"
   Case "!2&"
    varChr = "t"
   Case "(=c"
    varChr = "u"
   Case "wvf"
    varChr = "v"
   Case "dp0"
    varChr = "w"
   Case "w$-"
    varChr = "x"
   Case "vn&"
    varChr = "y"
   Case "c*4"
    varChr = "z"
   
   'numbers
   Case "aq@"
    varChr = "1"
   Case "902"
    varChr = "2"
   Case "2.&"
    varChr = "3"
   Case "/w!"
    varChr = "4"
   Case "|pq"
    varChr = "5"
   Case "ml|"
    varChr = "6"
   Case "t'?"
    varChr = "7"
   Case ">^s"
    varChr = "8"
   Case ":"
    varChr = "E"
   Case "@+x"
    varChr = "F"
   Case "v^a"
    varChr = "G"
   Case "]eE"
    varChr = "H"
   Case "aP0"
    varChr = "I"
   Case "{=1"
    varChr = "J"
   Case "cWv"
    varChr = "K"
   Case "cDc"
    varChr = "L"
   Case "*,!"
    varChr = "M"
   Case "fW" & Chr(34)
    varChr = "N"
   Case ".?T"
    varChr = "O"
   Case "%<8"
    varChr = "P"
   Case "@:a"
    varChr = "Q"
   Case "&c$"
    varChr = "R"
   Case "WnY"
    varChr = "S"
   Case "{Sh"
    varChr = "T"
   Case "_%M"
    varChr = "U"
   Case "}'$"
    varChr = "V"
   Case "QlU"
    varChr = "W"
   Case "Im^"
    varChr = "X"
   Case "l|P"
    varChr = "Y"
   Case ".>#"
    varChr = "Z"
   'Special characters
   Case "\" & Chr(34) & "]"
    varChr = "!"
   Case "cY,"
    varChr = "@"
   Case "x%B"
    varChr = "#"
   Case "a*v"
    varChr = "$"
   Case "'&T"
    varChr = "%"
   Case ";%R"
    varChr = "^"
   Case "eG_"
    varChr = "&"
   Case "Z/e"
    varChr = "*"
   Case "rG\"
    varChr = "("
   Case "]*F"
    varChr = ")"
   Case "@B*"
    varChr = "_"
   Case "+Hc"
    varChr = "-"
   Case "&|D"
    varChr = "="
   Case "(:#"
    varChr = "+"
   Case "SlW"
    varChr = "["
   Case "'QB"
    varChr = "]"
   Case "{D>"
    varChr = "{"
   Case "+c%"
    varChr = "}"
   Case "(s:"
    varChr = ":"
   Case "^a("
    varChr = ";"
   Case "16."
    varChr = "'"
   Case "s.*"
    varChr = Chr(34)
   Case "&?W"
    varChr = ","
   Case "GPQ"
    varChr = "."
   Case "SK*"
    varChr = "<"
   Case "RL^"
    varChr = ">"
   Case "40C"
    varChr = "/"
   Case "?#9"
    varChr = "?"
   Case "_?/"
    varChr = "\"
   Case "(_@"
    varChr = "|"
   Case "=#B"
    varChr = " "
  End Select
  varFin = varFin & varChr
  CurSpc = CurSpc + 3
 DoEvents
 Loop
 DeCode = varFin
End Function