if you do that, then the database is un-crypted while the app is in
use, so, just run your app, and then open the database with some kind
of viewer.
Much better is to encrypt all info inside the database, each field,
read it in, de-crypt it for use, then discard the variable.
Never leave the database de-crypted.
Trausti
On Mar 11, 2006, at 5:26 PM, Michael Williams wrote:
Ian,
I appreciate the code. Basically, this is the long and short of
what I want to do. I plan to use an RBDB to store preferences,
registration information, etc, but I want the DB encrypted at all
times unless in use. So I need a mechanism by which to Encrypt/
Decrypt the DB file and read/write to the file on the fly, etc.
Any leads, or suggestions?
Regards,
Michael
On Mar 11, 2006, at 8:09 AM, realbasic-nug-
[EMAIL PROTECTED] wrote:
Message: 18
Subject: Re: Einhugur Plugins (e-Cryptit)
From: Ian Piper <[EMAIL PROTECTED]>
Date: Sat, 11 Mar 2006 12:43:16 +0000
Hi Michael,
Here is a code snippet. You pass in the plaintext and the key and it
returns a Blowfish-encrypted string. BTW it also enhexes the string
so that you can pass the string around more easily. UserEncrypter,
BTW, is a string that getes generated elsewhere in the application
and is just used to pad out the string so that the important part of
the plaintext is divisible by 8.
==== end snippet ====
Function encipher(plaintext As String, key As String) As String
Dim bf As BlowfishCBC
dim sPlaintext As String
dim sEncrypted As String
dim sEncryptedHex As String
// initialise a new Blowfish object using the key
bf = new BlowFishCBC(key)
// Add 7 extra bytes to ensure that Blowfish will encrypt the
// entire string if its not dividable by 8
// (this is actually overkill since we determine the string
length)
sPlaintext = plaintext + mid(userEncrypter,1,7)
// now encrypt the key supplied
sEncrypted = bf.Encrypt(sPlaintext) + bf.FinishEncrypt()
// and hex
sEncryptedHex = DoLocalHex(sEncrypted)
// send the encrypted and hexed string back to the calling method
return sEncryptedHex
// Reset the encryptor so if can be safely used again
bf.Reset
End Function
==== end snippet ====
I hope this helps.
Ian.
--
Dr Ian M Piper
[EMAIL PROTECTED]
skype: ianmpiper
--
Where is the wisdom we have lost in knowledge?
Where is the knowledge we have lost in information?
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
