Encryption A97

Hi Folks

I've been playing with some encryption code from the web (XOR type stuff)
and have been pleased with this sample code from Rob Bovey.

Essentially it takes a string and puts it through an XOR process and saves
it to a variable. This works well!

Unfortunately, the string output is in a Unicode format (and looks like
???? - one charachter per input character) and when its saved in a variable
it can easily be put back through the XOR process to regenerate the original
string. Rob does make the following comment right from the getgo:

*********************************
''' NOTE: The encrypted data must be stored in a location that supports
Unicode text.
''' Such locations include the registry and even plain text files.
''' For demonstration purposes we simply use a public String variable.
*********************************

Unfortunately - of course, when this data is saved out to a text box, it
simply becomes a '????' string!

What I really want to do is save this out, as an encrypted string, to a text
field - where it can be copied and pasted. The ultimate aim is that this
encrypted string can be emailed out and used as the passkey in an app by an
end user.

Being a drongo (technical term lol), I really dont understand what is going
on with this Unicode business - and therefore cant even begin to figure out
how to transpose the code to something human readable.

I'd really appreciate any comments on how I might modify this code or be
able to format the encrypted Unicode string as a-z 0-9 and other characters
etc.

PS I'll be using some further encryption and text chopping in addition to
this XOR tool, so hopefully its shouldn't be too easily breakable (though
the security issue is not as important as just keeping basic users out).

==============================================
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' Comments: Performs XOr encryption/decryption on string data. Passing a
''' string through the procedure once encrypts it, passing it
''' through a second time decrypts it.
'''
''' Arguments: szData [in|out] A string containing the data to
''' encrypt or decrypt.
'''
''' Date Developer Action
''' --------------------------------------------------------------------------
''' 05/18/05 Rob Bovey Created
'''
Private Sub EncryptDecrypt(ByRef szData As String)

Const lKEY_VALUE As Long = 215

Dim bytData() As Byte
Dim lCount As Long

bytData = szData

For lCount = LBound(bytData) To UBound(bytData)
bytData(lCount) = bytData(lCount) Xor lKEY_VALUE
Next lCount

szData = bytData

End Sub
==============================================
--
Kahuna
------------


.

Relevant Pages

  • Re: Encrypt String
    ... >> if you do not publish the protection string, ... > with basic cryptography knowledge should be able to glean the encryption ... And being a symmetrical algorithm, ... XOR scheme. ...
    (microsoft.public.dotnet.languages.csharp)
  • Re: Data Encyption
    ... it says it is Vignere with XOR? ... Public Function VignereCode(ByVal InText As String, ... >> encryption, which allows you to encrypt data in an access table. ...
    (microsoft.public.access.security)
  • Re: Preventing large runs of identical bits.
    ... way I can xor the xor result, and repeat that process X times, so that ... the chance of that input string creating a constant bit string ... I'm using it for an encryption algorithm I'm writing, ... I'm asking it in the compression newsgroup rather than an encryption ...
    (comp.compression)
  • Re: Preventing large runs of identical bits.
    ... way I can xor the xor result, and repeat that process X times, so that ... the chance of that input string creating a constant bit string ... I'm using it for an encryption algorithm I'm writing, ... I'm asking it in the compression newsgroup rather than an encryption ...
    (comp.compression)
  • Re: Byte array to string and back - newbie question
    ... // Create a symmetric algorithm. ... This is done to make encryption more ... // Encrypt a string into a string using a password ... // Decrypt a byte array into a byte array using a key and an IV ...
    (microsoft.public.dotnet.framework.aspnet.security)
Loading