String plus decrypted class (vb.net Source Code)

Decryption | string ' Ez_crypt.vb (string encryption and decryption class)

' Reference namespace
Imports System
Imports Microsoft.VisualBasic
Imports System.Collections
Imports System.Configuration

Namespace Security
Public Class Crypt
' Encrypt string
Public Function Encrypt (ByVal plainstr As String, ByVal key As String) as String
Dim Strchar, Keychar, newstr as String
Dim Pos as Integer
Dim I, Intlen as Integer
Dim Side1, Side2 as String
Pos = 1

For i = 1 to Len (PLAINSTR)
Strchar = Mid (Plainstr, I, 1)
Keychar = Mid (Key, Pos, 1)
Newstr = newstr & CHR (ASC (STRCHAR) Xor ASC (Keychar))
If pos = Len (key) Then Pos = 0
pos = pos + 1
Next

If Len (newstr) Mod 2 = 0 Then
Side1 = StrReverse (left (Newstr, Len (NEWSTR)/2))
Side2 = StrReverse (Right (Newstr, Len (NEWSTR)/2))
Newstr = Side1 & Side2
End If

Encrypt = Newstr
End Function

' Decrypt string
Public Function Decrypt (ByVal plainstr As String, ByVal key As String) as String
Dim Strchar, Keychar, newstr as String
Dim Pos as Integer
Dim I as Integer
Dim Side1 as String
Dim Side2 as String
Pos = 1

If Len (plainstr) Mod 2 = 0 Then
Side1 = StrReverse (left (Plainstr, Len (PLAINSTR)/2))
Side2 = StrReverse (Right (Plainstr, Len (PLAINSTR)/2))
Plainstr = Side1 & Side2
End If

For i = 1 to Len (PLAINSTR)
Strchar = Mid (Plainstr, I, 1)
Keychar = Mid (Key, Pos, 1)
Newstr = newstr & CHR (ASC (STRCHAR) Xor ASC (Keychar))
If pos = Len (key) Then Pos = 0
pos = pos + 1
Next

Decrypt = Newstr
End Function
End Class
End Namespace