VB.net编写文字加解密程序
-
本篇文章的主要开发环境是Visual Studio 2008，Visual Studio系列产品一直以来都提供了强大的控件功能，然而我们利用这些控件可以编写出功能强大的应用程序，Visual Studio2008在一些特性上也做出了许多的改进。本文主要利用微软的最新。net开发工具为大家展示文字加密与解密的应用方法，为大家介绍创建基本加密与解密程序的一些技巧。很适合。net开发工具的初学者，具有一定的实用价值。
打开 Visual Studio 2008在文件 （File） 菜单上，单击新建项目 （New Project）。 在新建项目 （New Project） 对话框的模板 （Templates） 窗格中，单击 Windows 应用程序（Windows Application）。单击确定 （OK） 如图1.
选择Form1窗体，在Form1窗体中添加如下控件：Label1、Label2、 Label3控件，TextBox1、TextBox2、TextBox3控件，Button1与Button2控件。
相关属性设置如下：
我们适当地调整界面，界面设置效果如下：图2
程序界面设置好后，我们需要创建类，在类中来输入与此程序相关的代码选择<项目>——<添加类>——文件命名为：csmode 如图3
在编程之前首先我们需要知道System.Security.Cryptography 命名空间System.Security.Cryptography 命名空间提供加密服务，包括安全的数据编码和解码
介绍部分常用的枚举
介绍部分常用的枚举进入csmode.vb类的代码事件输入代码：
Imports System
Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
Public Class csmode
Public Function Encrypt（ByVal StrInput As String） As String
Dim ByteInput As [Byte]（） = Encoding.Default.GetBytes（StrInput）
Dim ms As New System.IO.MemoryStream
Dim DESC As New DESCryptoServiceProvider
Dim CStream As New CryptoStream（ms， DESC.CreateEncryptor（Encoding.Default.GetBytes（"20000000"）， Encoding.Default.GetBytes（"字节数量"））， CryptoStreamMode.Write） CStream.Write（ByteInput， 0， ByteInput.Length）
CStream.FlushFinalBlock（）
Return Convert.ToBase64String（ms.ToArray（））
End Function
Public Function Decrypt（ByVal StrInput As String） As String
Dim ByteInput As [Byte]（） = Convert.FromBase64String（StrInput）
Dim ms As New System.IO.MemoryStream
Dim DESC As New DESCryptoServiceProvider
Dim CStream As New CryptoStream（ms， DESC.CreateDecryptor（Encoding.Default.GetBytes（"20000000"）， Encoding.Default.GetBytes（"字节数量"））， CryptoStreamMode.Write）
CStream.Write（ByteInput， 0， ByteInput.Length）
CStream.FlushFinalBlock（）
Return Encoding.Default.GetString（ms.ToArray（））
End Function
End Class
选择Form1窗体，进入代码编辑器
首先进行声明
Imports System
Imports System.IO
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
进入Button1_Click事件
Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles Button1.Click
Dim Encode As New csmo
相关视频
-
没有数据
相关阅读 iPhone数据迁移怎么用 iOS 12.4数据迁移功能使用教程iqoo neo和iqoo哪个好 iqoo neo和iqoo对比一览iqoo neo手机发布会直播地址 iqoo neo发布会直播网址iPadOS beta 2下载 iPadOS beta 2固件下载地址iOS 13 beta 2下载 iOS 13 beta 2固件下载地址ios12.4beta2更新日志 ios12.4beta2更新了什么怪物猎人世界冰原iceborne多少钱 怪物猎人世界冰原iceborne收费价Genesis激活码怎么申请 Genesis创世争霸激活码获得方法
- 文章评论
-
热门文章
Wordpress本地安装教程
dx1.5如何设置二级域名
最新文章
hbuilder有哪些快捷键Wordpress本地安装教程
Wordpress本地安装教程expression web 4文档乱码解决方法dz 2.5“收藏本版”关闭小对话框无法关闭解在制作安装软件之前,您必须先将易语言存盘,
人气排行 如何使用multipart/form-data格式上传文件Photoshop PS图层混合模式详解(非常详细)ISAPI_Rewrite3使用教程网站里添加收藏和设为首页代码桌面快捷方式图标不见了C#获取执行程序所在的当前路径的方法详解（XMLHttpRequest）进行跨域请求方法如何用远程桌面连接进行传输文件
查看所有0条评论>>