encrypt a string and write it out to a file

[Jon Paal]

need help with code to encrypt a string and write it out to a file.
code does not write out to file

=========code== ============

Private Shared ReadOnly encryptionKeyBy tes() As Byte = New Byte() {53, 53, 53, 53, 53, 53, 53, 53}
Private Shared Function GenerateEncrypt edLicFile(ByVal inputText As String, ByVal outputFile As String) As Boolean

Dim outputStream As Stream = Nothing
Dim encryptedStream As Stream = Nothing
Dim result As Boolean = False

Dim des As DESCryptoServic eProvider = New DESCryptoServic eProvider()
des.Key = encryptionKeyBy tes
des.IV = encryptionKeyBy tes

Try
outputStream = New FileStream(outp utFile, FileMode.Create , FileAccess.Writ e, FileShare.None)

Dim desEncryptor As ICryptoTransfor m = des.CreateEncry ptor()
encryptedStream = New CryptoStream(ou tputStream, desEncryptor, CryptoStreamMod e.Write)

Dim contents() As Byte = des.EncryptValu e(inputText)

encryptedStream .Write(contents , 0, contents.Length )
result = True

Finally
If Not encryptedStream Is Nothing Then
encryptedStream .Close()
encryptedStream = Nothing
End If
If Not outputStream Is Nothing Then
outputStream.Cl ose()
outputStream = Nothing
End If
End Try

Return result
End Function

[Chris Young]

You will need to call the encryptedStream .Flush() method. Which causes
all unbuffered data to be written.

On Sun, 3 Sep 2006 13:29:28 -0700, "Jon Paal" <Jon[ nospam ]Paal @
everywhere dot comwrote:

>need help with code to encrypt a string and write it out to a file.
code does not write out to file

=========code= =============

Private Shared ReadOnly encryptionKeyBy tes() As Byte = New Byte() {53, 53, 53, 53, 53, 53, 53, 53}
Private Shared Function GenerateEncrypt edLicFile(ByVal inputText As String, ByVal outputFile As String) As Boolean

Dim outputStream As Stream = Nothing
Dim encryptedStream As Stream = Nothing
Dim result As Boolean = False

Dim des As DESCryptoServic eProvider = New DESCryptoServic eProvider()
des.Key = encryptionKeyBy tes
des.IV = encryptionKeyBy tes

Try
outputStream = New FileStream(outp utFile, FileMode.Create , FileAccess.Writ e, FileShare.None)

Dim desEncryptor As ICryptoTransfor m = des.CreateEncry ptor()
encryptedStream = New CryptoStream(ou tputStream, desEncryptor, CryptoStreamMod e.Write)

Dim contents() As Byte = des.EncryptValu e(inputText)

encryptedStream .Write(contents , 0, contents.Length )
result = True

Finally
If Not encryptedStream Is Nothing Then
encryptedStream .Close()
encryptedStream = Nothing
End If
If Not outputStream Is Nothing Then
outputStream.Cl ose()
outputStream = Nothing
End If
End Try

Return result
End Function