La Red de Conocimientos Pedagógicos - Currículum vitae - Ejemplo de VB.net2008 sobre cómo escribir un programa de cifrado y descifrado de texto

Ejemplo de VB.net2008 sobre cómo escribir un programa de cifrado y descifrado de texto

El entorno de desarrollo principal para este artículo es Visual Studio 2008. La serie de productos Visual Studio siempre ha proporcionado potentes funciones de control. Sin embargo, podemos utilizar estos controles para escribir aplicaciones potentes en Visual Studio 2008. También se han hecho cambios en algunas características. Este artículo utiliza principalmente las últimas herramientas de desarrollo .net de Microsoft para mostrarle los métodos de aplicación de cifrado y descifrado de texto y le presenta algunas técnicas para crear programas básicos de cifrado y descifrado. Es muy adecuado para principiantes en herramientas de desarrollo .net y tiene cierto valor práctico.

Abra Visual Studio 2008. En el menú Archivo, haga clic en Nuevo proyecto. En el panel Plantillas del cuadro de diálogo Nuevo proyecto, haga clic en Aplicación de Windows. Haga clic en Aceptar como se muestra en la Figura 1.

Seleccione el formulario Form1 y agregue los siguientes controles al formulario Form1: controles Label1, Label2, Label3, TextBox1, TextBox2, controles TextBox3, controles Button1 y Button2.

La configuración de atributos relevantes es la siguiente:

Ajustamos la interfaz adecuadamente y el efecto de configuración de la interfaz es el siguiente: Figura 2

Después de la interfaz del programa está configurado, necesitamos crear clases, ingresar el código relacionado con este programa en la clase

Seleccione el proyecto---agregar clase---nombre el archivo: csmode como se muestra en la Figura 3

Primero necesitamos saber antes de programar el espacio de nombres System.Security.Cryptography

El espacio de nombres System.Security.Cryptography proporciona servicios de cifrado, incluida la codificación y decodificación segura de datos

Presentación de algunos enumeraciones de uso común

Introducción de algunos eventos de código de enumeración de uso común en la clase csmode.vb

Ingrese el código:

Sistema de importaciones

Importaciones System.IO

Importa System.Security.Cryptography

Importa System.Text

Clase pública csmode

Cifrado de función pública (ByVal StrInput Como cadena) Como cadena

Atenuar ByteInput como [Byte]() = Encoding.Default.GetBytes(StrInput)

Atenuar ms como nuevo System.IO.MemoryStream

Atenuar DESC como nuevo DESCryptoServiceProvider

Atenuar CStream como nuevo CryptoStream(ms, DESC.CreateEncryptor(Encoding.Default.GetBytes("20000000"), Encoding.Default.GetBytes("número de bytes")) , CryptoStreamMode.Write)

p>

CStream.Write(ByteInput, 0, ByteInput.Length)

CStream.FlushFinalBlock()

Return Convert.ToBase64String( ms.ToArray())

Función final

Función pública Descifrar (ByVal StrInput como cadena) como cadena

Atenuar ByteInput como [Byte]() = Convertir .FromBase64String(StrInput)

Atenuar ms como nuevo System.IO.MemoryStream

Atenuar DESC como nuevo DESCryptoServiceProvider

Atenuar CStream como nuevo CryptoStream(ms, DESC. CreateDecryptor(Encoding.Default.GetBytes(" 20000000"), Encoding.Default.GetBytes("número de bytes"), CryptoStreamMode.Write)

CStream.Write(ByteInput, 0, ByteI

nput.Length)

CStream.FlushFinalBlock()

Devolver codificación.Default.GetString(ms.ToArray())

Función final

Finalizar Clase

Seleccione el formulario Form1 e ingrese al editor de código

Primero haga una declaración

Sistema de Importaciones

Sistema de Importaciones. IO

Importa System.Text

Clase pública Form1

Hereda System.Windows.Forms.Form

Ingresa el evento Button1_Click

Sub botón privado1_Click(ByVal remitente como System.Object, ByVal y como System.EventArgs) maneja el botón1.Click

Atenuar codificación como nuevo csmode() 'Cifrar texto

TextBox2.Text = Encode.Encrypt(TextBox1.Text)

End Sub

Ingresar evento Button2_Click

Sub Button2_Click privado (remitente ByVal como System.Object, ByVal e como System.EventArgs) maneja Button2.Click

Atenuar decodificación como nuevo csmode() 'Descifrar texto

TextBox3.Text = Decode.Decrypt(TextBox2.Text)

End Sub

Después de ingresar el código, ejecute el programa para realizar pruebas. Como se muestra en la Figura 4

El programa se ejecuta correctamente. Lo anterior es el proceso de escritura de un programa simple de cifrado y descifrado de texto. Espero que todos puedan sacar inferencias de un ejemplo y usar esta idea para escribir uno más poderoso. Programa de cifrado y descifrado.