Sample Visual Basic
Code to encrypt a file using blowfish:
Where Cryptocx1 is an instance of a Cryptocx Control.
Cryptocx1.Password = txtBlowFilePass.Text
Cryptocx1.SourceFile = txtSourceFileBlow.Text
Cryptocx1.DestinationFile = txtDestinationFileBlow.Text
theResult = Cryptocx1.BlowfishFileEncrypt
'' Check to see what has happened (if the
encryption went ok without errors)
''
If theResult = "TRUE" Then
'' Ok, the Encryption went well with no errors
Else
MsgBox theResult
End If |