Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
  1. Home
  2. General Programming
  3. Visual Basic
  4. Encryption Text

Encryption Text

Scheduled Pinned Locked Moved Visual Basic
questionsecurity
4 Posts 4 Posters 0 Views 1 Watching
  • Oldest to Newest
  • Newest to Oldest
  • Most Votes
Reply
  • Reply as topic
Log in to reply
This topic has been deleted. Only users with topic management privileges can see it.
  • F Offline
    F Offline
    FriendlySoluations
    wrote on last edited by
    #1

    Hi How can I Make Encryption And Decryption for a Text (String) By any way ?!

    K D S 3 Replies Last reply
    0
    • F FriendlySoluations

      Hi How can I Make Encryption And Decryption for a Text (String) By any way ?!

      K Offline
      K Offline
      kevindotnet
      wrote on last edited by
      #2

      you could write your own algorithm to encrypt the msg, a simple idea is: use 001 to represent A, 010 to B, 011 to C ...... if you want it more complex and secure, you could refer to the RSA key pairs, to build your algorithm. Cheers,Kev

      1 Reply Last reply
      0
      • F FriendlySoluations

        Hi How can I Make Encryption And Decryption for a Text (String) By any way ?!

        D Offline
        D Offline
        Dave Kreskowiak
        wrote on last edited by
        #3

        Google results for "vb.net string encryption"[^].

        Dave Kreskowiak Microsoft MVP - Visual Basic

        1 Reply Last reply
        0
        • F FriendlySoluations

          Hi How can I Make Encryption And Decryption for a Text (String) By any way ?!

          S Offline
          S Offline
          slowbutsure29
          wrote on last edited by
          #4

          try this: Function Encrypt(ByVal strval$, ByVal blndec As Boolean) As String Dim str, str1, str2, str3, str4 As String Dim int1, int2, int3 As Integer str1 = strval$ int1 = Len(str1) int2 = 1 Do While int2 <> (int1 + 1) str2 = Mid(str1, int2, 1) If blndec = True Then int3 = Asc(str2) + 3 'Decrypt Else int3 = Asc(str2) - 3 'Encrypt End If str3 = Chr(int3) str4 = str4 & str3 int2 = int2 + 1 Loop Encrypt = str4 End Function geboy

          1 Reply Last reply
          0
          Reply
          • Reply as topic
          Log in to reply
          • Oldest to Newest
          • Newest to Oldest
          • Most Votes


          • Login

          • Don't have an account? Register

          • Login or register to search.
          • First post
            Last post
          0
          • Categories
          • Recent
          • Tags
          • Popular
          • World
          • Users
          • Groups