Showing posts with label Simple Encrypt and Decrypt Function using Visual Studio. Show all posts
Showing posts with label Simple Encrypt and Decrypt Function using Visual Studio. Show all posts

Saturday, January 27, 2018

Simple Encrypt and Decrypt Function using Visual Studio

Let's create our own encryption code without using the existing encryption method like md5 or hash.

The Code below shows a simple trick on how to handle the Encryption using the loop, chr, asc, and mid method.


ChrW method returns a String containing the Unicode character except on platforms where Unicode is not supported, in which case, the behavior is identical to the Chr function. Chr() method that works in Visual Basic but I don't know in C# code.

AscW function returns the Unicode character code except on platforms where Unicode is not supported, in which case, the behavior is identical to the Asc function.

Mid function to return a specified number of characters from a string.


Encrypt
Function Encrypt(ByVal Inputtxt As String)
        Encrypt = ""
        Dim CharCount As Integer
        For CharCount = 1 To Len(Inputtxt)
            Encrypt = Encrypt + Chr(Asc(Mid(Inputtxt, CharCount, 1)) + 15)
        Next CharCount
    End Function

Decrypt
Function Decrypt(ByVal Inputtxt As String)
        Decrypt = ""
        Dim CharCount As Integer
        For CharCount = 1 To Len(Inputtxt)
            Decrypt = Decrypt + Chr(Asc(Mid(Inputtxt, CharCount, 1)) - 15)
        Next CharCount
    End Function




Image below show's how to use this code





Syntax




Result