a clean Text Encryption/Decryption module

Description

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

More Info

Just some Text. that is it.

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

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

none that I know of.

Submitted On
By	c0rrupt0
Level	Unknown
User Rating	3.3 (39 globes from 12 users)
Compatibility	VB 3.0, VB 4.0 (16-bit), VB 4.0 (32-bit), VB 5.0, VB 6.0, VB Script, ASP (Active Server Pages)
Category	String Manipulation
World	Visual Basic
Archive File

API Declarations

Option Explicit

Source Code

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 = "<s^"
   Case "0"
    varChr = ";&c"
   'caps
   Case "A"
    varChr = "$)c"
   Case "B"
    varChr = "-gt"
   Case "C"
    varChr = "|p*"
   Case "D"
    varChr = "1" & Chr(34) & "r"
   Case "E"
    varChr = "c>:"
   Case "F"
    varChr = "@+x"
   Case "G"
    varChr = "v^a"
   Case "H"
    varChr = "]eE"
   Case "I"
    varChr = "aP0"
   Case "J"
    varChr = "{=1"
   Case "K"
    varChr = "cWv"
   Case "L"
    varChr = "cDc"
   Case "M"
    varChr = "*,!"
   Case "N"
    varChr = "fW" & Chr(34)
   Case "O"
    varChr = ".?T"
   Case "P"
    varChr = "%<8"
   Case "Q"
    varChr = "@:a"
   Case "R"
    varChr = "&c$"
   Case "S"
    varChr = "WnY"
   Case "T"
    varChr = "{Sh"
   Case "U"
    varChr = "_%M"
   Case "V"
    varChr = "}'$"
   Case "W"
    varChr = "QlU"
   Case "X"
    varChr = "Im^"
   Case "Y"
    varChr = "l|P"
   Case "Z"
    varChr = ".>#"
   'Special characters
   Case "!"
    varChr = "\" & Chr(34) & "]"
   Case "@"
    varChr = "cY,"
   Case "#"
    varChr = "x%B"
   Case "$"
    varChr = "a*v"
   Case "%"
    varChr = "'&T"
   Case "^"
    varChr = ";%R"
   Case "&"
    varChr = "eG_"
   Case "*"
    varChr = "Z/e"
   Case "("
    varChr = "rG\"
   Case ")"
    varChr = "]*F"
   Case "_"
    varChr = "@B*"
   Case "-"
    varChr = "+Hc"
   Case "="
    varChr = "&|D"
   Case "+"
    varChr = "(:#"
   Case "["
    varChr = "SlW"
   Case "]"
    varChr = "'QB"
   Case "{"
    varChr = "{D>"
   Case "}"
    varChr = "+c%"
   Case ":"
    varChr = "(s:"
   Case ";"
    varChr = "^a("
   Case "'"
    varChr = "16."
   Case Chr(34)
    varChr = "s.*"
   Case ","
    varChr = "&?W"
   Case "."
    varChr = "GPQ"
   Case "<"
    varChr = "SK*"
   Case ">"
    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 "<s^"
    varChr = "9"
   Case ";&c"
    varChr = "0"
   'caps
   Case "$)c"
    varChr = "A"
   Case "-gt"
    varChr = "B"
   Case "|p*"
    varChr = "C"
   Case "1" & Chr(34) & "r"
    varChr = "D"
   Case "c>:"
    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