文章导航PC6首页软件下载单机游戏安卓资源苹果资源

pc软件新闻网络操作系统办公工具编程服务器软件评测

安卓新闻资讯应用教程刷机教程安卓游戏攻略tv资讯深度阅读综合安卓评测

苹果ios资讯苹果手机越狱备份教程美化教程ios软件教程mac教程

单机游戏角色扮演即时战略动作射击棋牌游戏体育竞技模拟经营其它游戏游戏工具

网游cf活动dnf活动lol周免英雄lol礼包

手游最新动态手游评测手游活动新游预告手游问答

您的位置:首页网页设计经验技巧 → VB.net编写文字加解密程序

VB.net编写文字加解密程序

时间:2009/7/10 8:28:00来源:本站整理作者:我要评论(0)

本篇文章的主要开发环境是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)进行跨域请求方法如何用远程桌面连接进行传输文件