Hi,
I am trying to encrypt the file using vb.net code but the data is not
encrypting and it is not giving error. But if I do from cmd prompt the file is
encrypted.
Can you tell me what mistake I did in my code? I first used gpg version 1.4.9
with this version the code was not executed after that I tried with gpg version
1.2.0 but no use. Any one can help me ASAP.
Dim vGPGExecutable As Variables
Dts.VariableDispenser.LockOneForRead("GPGExecutable", vGPGExecutable)
Dim gpgExecutable As String
gpgExecutable = vGPGExecutable("GPGExecutable").Value.ToString
vGPGExecutable.Unlock()
Dim vHomeDir As Variables
Dts.VariableDispenser.LockOneForRead("HomeDirectory", vHomeDir)
Dim HomeDir As String
HomeDir = vHomeDir("HomeDirectory").Value.ToString
vHomeDir.Unlock()
Dim vPassPhrase As Variables
Dts.VariableDispenser.LockOneForRead("recipient", vPassPhrase)
Dim recipient As String = vPassPhrase("recipient").Value.ToString
vPassPhrase.Unlock()
Dim outputFile As String = Dts.Connections("Encrypt").ConnectionString
Dim inputfile As String = Dts.Connections("File").ConnectionString
If System.IO.File.Exists(inputfile) = True Then
Dim gpgOptions As String
Dim optionsBuilder As StringBuilder = New StringBuilder()
optionsBuilder.Append("--homedir ")
optionsBuilder.Append(HomeDir)
optionsBuilder.Append(" --yes --batch --armor --recipient ")
optionsBuilder.Append(recipient)
optionsBuilder.Append(" --no-verbose --output ")
optionsBuilder.Append(outputFile)
optionsBuilder.Append(" --always-trust")
optionsBuilder.Append(" --encrypt ")
optionsBuilder.Append(inputfile)
gpgOptions = optionsBuilder.ToString()
Dim process As Process = New Process()
Dim streamWriter As StreamWriter
Dim streamReader As StreamReader
Dim err As StreamReader
Dim prStartInfo As ProcessStartInfo = New
ProcessStartInfo(gpgExecutable, gpgOptions)
prStartInfo.UseShellExecute = False
prStartInfo.RedirectStandardInput = True
prStartInfo.RedirectStandardOutput = True
prStartInfo.RedirectStandardError = True
prStartInfo.CreateNoWindow = True
process.StartInfo = prStartInfo
process.Start()
streamWriter = process.StandardInput
streamReader = process.StandardOutput
err = process.StandardError
streamWriter.Close()
Else
Dim logConstr As String
logConstr = Dts.Connections("Log File Connection
String").ConnectionString
Dim logfile As StreamWriter = New StreamWriter(logConstr, False)
logfile.WriteLine("Fail to Find Records File to be Encrypted.")
Dts.TaskResult = Dts.Results.Failure
logfile.Close()
End If
Thanks&Regards,
Jagadeesh B
________________________________
DISCLAIMER:
This email may contain confidential information and is intended only for the
use of the specific individual(s) to which it is addressed. If you are not the
intended recipient of this email, you are hereby notified that any unauthorized
use, dissemination or copying of this email or the information contained in it
or attached to it is strictly prohibited. If you received this message in
error, please immediately notify the sender at Infotech or
mail.ad...@infotech-enterprises.com and delete the original message.
_______________________________________________
Gnupg-users mailing list
Gnupg-users@gnupg.org
http://lists.gnupg.org/mailman/listinfo/gnupg-users
