Red de conocimiento informático - Espacio del host - ¡Quiero crear un programa VB que pueda cifrar y descifrar archivos! ¡Utilice el método de cifrado y descifrado! ¡Espero que los expertos puedan responder!

¡Quiero crear un programa VB que pueda cifrar y descifrar archivos! ¡Utilice el método de cifrado y descifrado! ¡Espero que los expertos puedan responder!

Criptografía

Importaciones System.Text

Forma de clase pública1

Subbotón privado1_Click(ByVal remitente como System.Object, ByVal y como System.EventArgs) Maneja el botón1. Haga clic en

Dim sSecretKey As String = Me.TextBox2.Text

Sub EncryptFile(ByVal sInputFilename As String, ByVal sOutputFilename As String, ByVal sKey As String)

Dim fsInput As New FileStream( ByVal sOutputFilename As String)

Dim fsInput As New FileStream( sInputFilename, FileMode.Dim fsInput As New FileStream( sInputFilename, FileMode.Open, FileAccess.Read)

Atenuar fsEncrypted como nuevo FileStream(sOutputFilename, FileMode.Create, FileAccess.Write)

Atenuar DES como nuevo DESCryptoServiceProvider

DES.Key = ASCIIEncoding.ASCII.GetBytes(sKey)

DES.Key = ASCIIEncoding.ASCII.GetBytes(sKey)

Atenuar cryptostreamDecr como nuevo CryptoStream(fsread, desdecrypt, CryptoStreamMode.

Atenuar fsDecrypted como nuevo StreamWriter( sOutputFilename )

fsDecrypted.Write(New StreamReader(cryptostreamDecr, System.Text.ASCIIEncoding.Default).ReadToEnd)

fsDecrypted.Flush()

fsDecrypted.Close ()

上篇: Portátil Dell p39f 下篇: Cómo comprobar el modelo de CPU del teléfono móvil

Artículos populares