简单加解密算法 - vb.net
Public Class Form1
Dim charAarray() As Char
'加密
Private Sub Btn_En_Click(sender As System.Object, e As System.EventArgs) Handles Btn_En.Click
Dim s As String
Dim result As Boolean
result = EncryptOrDecrypt(Txt_PlainText_1.Text, Txt_Secrect_Key.Text, 1, s)
Txt_Text_1.Text = s
MessageBox.Show(IIf(result, "Success", "Failure"))
End Sub
'解密
Private Sub Btn_De_Click(sender As System.Object, e As System.EventArgs) Handles Btn_De.Click
Dim s As String
Dim result As Boolean
result = EncryptOrDecrypt(Txt_Text_2.Text, Txt_Secrect_Key.Text, -1, s)
Txt_PlainText_2.Text = s
MessageBox.Show(IIf(result, "Success", "Failure"))
End Sub
'加解密字符串
'str为待加密的字符串
'secretKey为秘钥
'f为加解密标示,f=1标示加密,f=-1标示解密
'outputStr为加解密之后的字符串
'返回操作结果
Function EncryptOrDecrypt(ByVal str As String, ByVal secretKey As Integer, ByVal f As Integer, ByRef outputStr As String) As Boolean
outputStr = ""
If (String.IsNullOrWhiteSpace(str)) Then
Return False
End If
Dim c As Char
For i As Integer = 0 To str.Length - 1
c = str(i)
c = EncryptChar(c, secretKey, f)
outputStr &= c
Next i
Return True
End Function
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
charAarray = CreateCharArray()
MessageBox.Show("OK")
End Sub
Function CreateCharArray() As System.Array
Dim s As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_"
Dim rnd As New Random
Dim cArray(s.Length - 1) As Char
Dim index As Integer
Dim i As Integer
i = 0
Do
index = rnd.Next(s.Length)
If Not cArray.Contains(s(index)) Then
cArray(i) = s(index)
i += 1
End If
Loop While (i < s.Length)
Return cArray
End Function
'加密单个字符
'c为要加密的字符
'secretKey为秘钥
'f为加解密标示,f=1标示加密,f=-1标示解密
'返回加密之后的字符
Function EncryptChar(ByVal c As Char, ByVal secretKey As Integer, ByVal f As Integer) As Char
Dim cIndex As Integer
Dim len As Integer
len = charAarray.Length
cIndex = Array.IndexOf(charAarray, c)
If f = 1 Then
cIndex += secretKey
Else
cIndex -= secretKey
End If
If (cIndex >= len) Then
Math.DivRem(cIndex, len, cIndex)
End If
If (cIndex < 0) Then
Do
cIndex += len
Loop While (cIndex < 0)
End If
Return charAarray(cIndex)
End Function
End Class
简单加解密算法 - vb.net的更多相关文章
- DES加解密算法Qt实现
算法解密qt加密table64bit [声明] (1) 本文源码 大部分源码来自:DES算法代码.在此基础上,利用Qt编程进行了改写,实现了DES加解密算法,并添加了文件加解密功能.在此对署名为b ...
- AES加解密算法Qt实现
[声明] (1) 本文源码 在一位未署名网友源码基础上,利用Qt编程,实现了AES加解密算法,并添加了文件加解密功能.在此表示感谢!该源码仅供学习交流,请勿用于商业目的. (2) 图片及描述 除图1外 ...
- C#加解密算法
先附上源码 加密解密算法目前已经应用到我们生活中的各个方面 加密用于达到以下目的: 保密性:帮助保护用户的标识或数据不被读取. 数据完整性:帮助保护数据不被更改. 身份验证:确保数据发自特定的一方. ...
- 3des加解密算法
编号:1003时间:2016年4月1日09:51:11功能:openssl_3des加解密算法http://blog.csdn.net/alonesword/article/details/17385 ...
- QQ协议的TEA加解密算法
QQ通讯协议里的加解密算法. #include <stdio.h> #include <stdlib.h> #include <memory.h> #include ...
- AES加解密算法在Android中的应用及Android4.2以上版本调用问题
from://http://blog.csdn.net/xinzheng_wang/article/details/9159969 AES加解密算法在Android中的应用及Android4.2以上 ...
- [转]RSA,DSA等加解密算法介绍
From : http://blog.sina.com.cn/s/blog_a9303fd90101cgw4.html 1) MD5/SHA MessageDigest是一个数据的数字指纹. ...
- JavaScript与C#互通的DES加解密算法
原文地址:传送门 本文提供了一个能使JavaScript与C#互通的DES加解密算法的实现,在前台页面中用JavaScript版本的DES算法将数据加密之后,传到服务器端,在服务器端可用C#版本的DE ...
- C# 中使用 RSA加解密算法
一.什么是RSA RSA公开密钥密码体制.所谓的公开密钥密码体制就是使用不同的加密密钥与解密密钥,是一种“由已知加密密钥推导出解密密钥在计算上是不可行的”密码体制. 在公开密钥密码体制中,加密密钥(即 ...
随机推荐
- mytop
http://jeremy.zawodny.com/mysql/mytop/mytop.html 内容有点过时,用?查看帮助 vi set nuset nonu总记不住
- tooltip 鼠标移动上去出现图片或文字与title大同小异
代码如下: <script type="text/javascript" src="jquery-1.3.2.min.js"></script ...
- 转 Could not create the view: An unexpected exception was thrown.问题解决
转自:http://blog.csdn.net/shuangzixing520/article/details/35225105 今天打开Myeclipse10的时候,发现server窗口出现一堆问题 ...
- Android Camera HAL浅析
1.Camera成像原理介绍 Camera工作流程图 Camera的成像原理可以简单概括如下: 景物(SCENE)通过镜头(LENS)生成的光学图像投射到图像传感器(Sensor)表面上,然后转为电信 ...
- iOS之UITableView的上拉刷新
#import "ViewController.h" #import "UITableView+PullRefresh.h" @interface ViewCo ...
- mybatis+spring事务
http://www.mybatis.org/spring/zh/transactions.html 第四章 事务 一个使用 MyBatis-Spring 的主要原因是它允许 MyBatis 参与到 ...
- IIS发布WebService的一些常见问题
安装IIS过程,在控制面板程序à程序功能à打开或关闭windows功能. 将Internet信息服务中的选项全部选中,点击确定. 验证IIS是否正确安装,等待几分钟后IIS配置完成在浏览器输入http ...
- Tomcat 静态部署 二步特别注意
一.修改server.xml 在Host 节点添加如下配置 <!-- path 为请求url地址 docBase 为项目文件绝对地址制定到WebContent根目录下 --> <Co ...
- C# 6.0 11个新特性
1. 静态using(static using) 静态using声明允许不使用类名直接调用静态方法. The static using declaration allows invoking stat ...
- CDN概念+作用+特点+原理
CDN的全称是Content Delivery Network,即内容分发网络.其目的是通过在现有的Internet中增加一层新的网络架构,将网站的内容发布到最接近用户的网络"边缘" ...