Visual Basic .NET Encryption

Visual Basic .NET (VB.NET) Encryption

VB.NET is the verbose, approachable half of the .NET family—maintenance apps, internal tools, and plenty of WinForms and ASP.NET WebForms projects still run on it. It shares the CLR with C#, so you get the same assemblies, garbage collection, and framework libraries under a different syntax sugar.

Compiled DLLs and EXEs decompile cleanly; hard-coded API keys, connection strings, and licence tokens show up like neon signs. StringEncrypt gives you VB.NET that rebuilds sensitive strings when the app runs, which beats leaving them as plain quoted text in every checkout. The samples on this page focus on Unicode-style output—check the generator if you need the narrow encoding path too.

String encryption supports both UNICODE and ANSI strings.

You can read more about Visual Basic .NET strings at:

Official .NET client for the StringEncrypt Web API. Install from NuGet with dotnet add package StringEncrypt or the NuGet Package Manager in Visual Studio.

VB.NET encryption (UNICODE Example)

Plaintext reference: StringEncrypt sample

' encrypted with https://www.stringencrypt.com (v1.5.0) [Visual Basic .NET]
' myString = "StringEncrypt sample"
Dim NWbix() As Integer = { &HB3A5, &HF1CB, &H0EDF, &H16E8, &HAF39, &H228E, &H0334, &H7FCC,
                           &H9F08, &HB194, &H34F9, &H0973, &HBBBE, &H0C9C, &H96AC, &HAC90,
                           &HB2A2, &H3C34, &HD59A, &H6102 }
Dim myString As String
Dim qdaYS As Integer
Dim XtOeN As Integer
Dim tsZIJ As Integer
Dim kRQbH As Integer
Dim DUdqS As Integer
Dim LVIbD As Integer
Dim PeSLr As Integer
Dim rOMCD As Integer
Dim MtVyC As Integer
Dim sixfG As Integer
Dim sCvjk As Integer
Dim sgEZl As Integer
Dim DWMvj As Integer
Dim MrRnm As Integer
Dim WkNHZ As Integer

Dim xuISR As Integer
For xuISR = 0 To 19
  qdaYS = NWbix(xuISR)
  qdaYS = (qdaYS Xor xuISR) And &HFFFF
  For XtOeN = 0 To 1
    For tsZIJ = 0 To 3
      For kRQbH = 0 To 1
        qdaYS = (((qdaYS And &HFFFF) << (xuISR Mod 16)) Or ((qdaYS And &HFFFF) >> (16 - (xuISR Mod 16)))) And &HFFFF
        qdaYS = (((qdaYS And &HFFFF) >> 8) Or ((qdaYS And &HFFFF) << 8)) And &HFFFF
        qdaYS = ((qdaYS And &HFFFF) + xuISR) And &HFFFF
      Next
      qdaYS = ((qdaYS And &HFFFF) + 1) And &HFFFF
      qdaYS = (qdaYS Xor &HD7DE) And &HFFFF
    Next
  Next
  For DUdqS = 0 To 3
    qdaYS = ((qdaYS And &HFFFF) + &H962F) And &HFFFF
    For LVIbD = 0 To 2
      For PeSLr = 0 To 3
        qdaYS = (((qdaYS And &HFFFF) Xor &HFFFF) + 1) And &HFFFF
      Next
    Next
  Next
  For rOMCD = 0 To 2
    For MtVyC = 0 To 1
      qdaYS = ((qdaYS And &HFFFF) - 1) And &HFFFF
      qdaYS = ((qdaYS And &HFFFF) - xuISR) And &HFFFF
      qdaYS = (qdaYS Xor xuISR) And &HFFFF
    Next
  Next
  For sixfG = 0 To 1
    qdaYS = ((qdaYS And &HFFFF) + xuISR) And &HFFFF
    qdaYS = (qdaYS Xor ((qdaYS And &HFFFF) >> 8)) And &HFFFF
  Next
  qdaYS = (((qdaYS And &HFFFF) << (xuISR Mod 16)) Or ((qdaYS And &HFFFF) >> (16 - (xuISR Mod 16)))) And &HFFFF
  For sCvjk = 0 To 3
    For sgEZl = 0 To 3
      qdaYS = ((qdaYS And &HFFFF) + &HDF3F) And &HFFFF
    Next
    qdaYS = (qdaYS Xor xuISR) And &HFFFF
    qdaYS = ((qdaYS And &HFFFF) + xuISR) And &HFFFF
  Next
  For DWMvj = 0 To 1
    qdaYS = (((qdaYS And &HFFFF) >> 8) Or ((qdaYS And &HFFFF) << 8)) And &HFFFF
  Next
  qdaYS = (qdaYS Xor xuISR) And &HFFFF
  For MrRnm = 0 To 3
    For WkNHZ = 0 To 3
      qdaYS = (((qdaYS And &HFFFF) Xor &HFFFF) + 1) And &HFFFF
      qdaYS = ((qdaYS And &HFFFF) + xuISR) And &HFFFF
    Next
  Next
  qdaYS = (((qdaYS And &HFFFF) << (xuISR Mod 16)) Or ((qdaYS And &HFFFF) >> (16 - (xuISR Mod 16)))) And &HFFFF
  myString = myString + ChrW(qdaYS And &HFFFF)
Next xuISR