/ Snippet Library - View Code

Visual Basic / Encryption / Simple Encryption

Snippet details

ID: 6

Viewed: 1342

Added: 2001-11-21

Version:

Snippets in this catagory
Show Printable Version

Encrypts or Decrypts a given string with a given password.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Clint LaFever

Snippet By:	Clint LaFever
Declarations
Highlight All'------------------------------------------------------------ ' Author: Clint LaFever [lafeverc@usa.net] ' Purpose: Encryption Class to Encrypt/Decrypt Strings. ' Parameters: ' Example: ' Date: July,21 1998 @ 18:13:33 '------------------------------------------------------------ Option Explicit Private mstrPASS As String Private mstrTEXT As String Public Property Get Password() As String Password = mstrPASS End Property Public Property Let Password(pstr As String) mstrPASS = pstr End Property Public Property Get TextString() As String TextString = mstrTEXT End Property Public Property Let TextString(pstr As String) mstrTEXT = pstr End Property '------------------------------------------------------------ ' Author: Clint LaFever [lafeverc@usa.net] ' Purpose: Encrypts a string with a given password. ' Parameters: ' Example: '------------------------------------------------------------ Public Function EncryptText(Optional strText As String = "", Optional ByVal strPwd As String = "") Dim i As Integer, c As Integer Dim strBuff As String If strText = "" Then strText = Me.TextString If strPwd = "" Then strPwd = Me.Password If strPwd <> "" And strText <> "" Then strPwd = UCase$(strPwd) If Len(strPwd) Then For i = 1 To Len(strText) c = Asc(Mid$(strText, i, 1)) c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1)) strBuff = strBuff & Chr$(c And &HFF) Next i Else strBuff = strText End If Me.TextString = strBuff EncryptText = strBuff Else EncryptText = "" End If End Function '------------------------------------------------------------ ' Author: Clint LaFever [lafeverc@usa.net] ' Purpose: Decrypts a string with a given password. ' Parameters: ' Example: '------------------------------------------------------------ Public Function DecryptText(Optional strText As String = "", Optional ByVal strPwd As String = "") Dim i As Integer, c As Integer Dim strBuff As String If strText = "" Then strText = Me.TextString If strPwd = "" Then strPwd = Me.Password If strPwd <> "" And strText <> "" Then strPwd = UCase$(strPwd) If Len(strPwd) Then For i = 1 To Len(strText) c = Asc(Mid$(strText, i, 1)) c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1)) strBuff = strBuff & Chr$(c And &HFF) Next i Else strBuff = strText End If Me.TextString = strBuff DecryptText = strBuff Else DecryptText = "" End If End Function
Code
Highlight Allnone

No Reviews to show