Add Powerful Encryption To Your Visual Basic Programs

[dglienna]

Note: This doesn't run under Windows 2000 (with up to date service packs)

I compiled the project, and it didn't run. It works fine under XP Home.

Just found this, and it DOES work on both platforms. I don't know why.

Option Explicit 

Dim sSecretData
sSecretData = "Here is some very secret data." 

' Build up the key
Dim wshNetwork, sComputerName
Set wshNetwork = WScript.CreateObject("WScript.Network") 
sComputerName = wshNetwork.ComputerName

Dim capEData
Set capEData = CreateObject("CAPICOM.EncryptedData")

capEData.Algorithm = 3 'Use 3DES
capEData.SetSecret sComputerName 
capEData.Content = sSecretData

Dim sCipherText
sCipherText = capEData.Encrypt

capEData.Algorithm = 3
capEData.SetSecret sComputerName 
capEData.Decrypt sCipherText

Dim sPlainText
sPlainText = capEData.Content 

MsgBox "Original data: " & sSecretData & chr(13) _ 
  & "Encrypted data: " & sCipherText & chr(13) _ 
  & "Recoverd data: " & sPlainText

[dglienna]

I'm hoping that 3DES is the missing key here. Testing it out.


Hot-DAMN. Wasted a whole day when it was something so simple.

EVERYBODY. DO USE 3DES encryption if you want it to work accross platforms.

[Maven]

I'm hoping that 3DES is the missing key here. Testing it out.


Hot-DAMN. Wasted a whole day when it was something so simple.

EVERYBODY. DO USE 3DES encryption if you want it to work accross platforms.

That com is just a wrapper around the windows crypto API. Different versions of windows support different key sizes, different ciphers, etc.

[kyrathaba]

Could you show a simple example of using CAPICOM to encode a binary file, such as myprog.exe or myarchive.zip, rather than a string?

[Maven]

It should work the same way with binary. Just make sure you use byte data types instead of string. If you want the results stored as binary instead of base64 then you need to use CAPICOM_ENCODE_BINARY.


While I'm here, this is how you hash data:
Dim x As New HashedData
x.Algorithm = CAPICOM_HASH_ALGORITHM_MD5
x.Hash ("Hash This")
Text1.Text = x.Value

[dglienna]

isn't there a way to encrypt a whole file at once, like an attachment to an email? I got that from the website, but they didn't give any examples. If you wanted to encrypt an .exe, you'd have to read the binary file, and encrypt it by encrypting each byte, or what?

[Maven]

isn't there a way to encrypt a whole file at once, like an attachment to an email? I got that from the website, but they didn't give any examples. If you wanted to encrypt an .exe, you'd have to read the binary file, and encrypt it by encrypting each byte, or what?

I'm not aware of any functions for encryption a file. Would definitly make life a lot simpler though wouldn't it? You would do it just like a string with the exception that it would be a byte array instead of a string array. Just make sure when you read the file, you do it as binary and not as string (text).


Later on I may write a decent cipher library but as for right now I'm working long ass hours and have very little time =/