2002ASP String Manipulation #780

a clean Text Encryption/Decryption module

Name: a clean Text Encryption/Decryption module
Brand: Planet Source Code
SKU: PSC-780
Availability: InStock
Rating: 4.5 (830 reviews)
Author: gHost_44

gHost_44

★★★★★

4.8 · Download: 2,341

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

Riepilogo AI: 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.

Codice sorgente

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

Commenti originali (3)

Recuperato da Wayback Machine