 Readme for MREncryption.dll
 ----------------------------
 If you have problems loading the example, its probably because of the reference to
 the .DLL file.  Try this :

>1. Create a form with an array of text boxes called txt(0) to txt(4).
>2. Put 4 labels on the form with the captions "String to encrypt", "Password", "Encrypted string" and "decrypted string".
>3. Put a command button on the form and call it CmdGo.
>4. Paste into the code for the form, the following:


Private Sub CmdGo_Click()
  Dim X As New Encryption
  
  '
  'syntax is :   .encrypt(<input string>, <password>)
  '              .decrypt(<encrypted string>, <password>)
  '
  ' both functions return the encrypted or decrypted string
  
  Txt(2) = X.Encrypt(Txt(0), Txt(1))
  Txt(3) = X.Decrypt(Txt(2), Txt(1))
  
  If X.Error Then
    MsgBox "Error : " & X.LastError & " occured in encrypting/decrypting the string", vbInformation, "Encrypt/decrypt string"
  End If
    
  Set X = Nothing

End Sub

Private Sub Form_Load()

  Txt(0) = ""
  Txt(1) = ""
  Txt(2) = ""
  Txt(3) = ""

End Sub


>5. Save project and press F5 to run the project.



