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的更多相关文章

  1. DES加解密算法Qt实现

      算法解密qt加密table64bit [声明] (1) 本文源码 大部分源码来自:DES算法代码.在此基础上,利用Qt编程进行了改写,实现了DES加解密算法,并添加了文件加解密功能.在此对署名为b ...

  2. AES加解密算法Qt实现

    [声明] (1) 本文源码 在一位未署名网友源码基础上,利用Qt编程,实现了AES加解密算法,并添加了文件加解密功能.在此表示感谢!该源码仅供学习交流,请勿用于商业目的. (2) 图片及描述 除图1外 ...

  3. C#加解密算法

    先附上源码 加密解密算法目前已经应用到我们生活中的各个方面 加密用于达到以下目的: 保密性:帮助保护用户的标识或数据不被读取. 数据完整性:帮助保护数据不被更改. 身份验证:确保数据发自特定的一方. ...

  4. 3des加解密算法

    编号:1003时间:2016年4月1日09:51:11功能:openssl_3des加解密算法http://blog.csdn.net/alonesword/article/details/17385 ...

  5. QQ协议的TEA加解密算法

    QQ通讯协议里的加解密算法. #include <stdio.h> #include <stdlib.h> #include <memory.h> #include ...

  6. AES加解密算法在Android中的应用及Android4.2以上版本调用问题

     from://http://blog.csdn.net/xinzheng_wang/article/details/9159969 AES加解密算法在Android中的应用及Android4.2以上 ...

  7. [转]RSA,DSA等加解密算法介绍

    From : http://blog.sina.com.cn/s/blog_a9303fd90101cgw4.html 1)      MD5/SHA MessageDigest是一个数据的数字指纹. ...

  8. JavaScript与C#互通的DES加解密算法

    原文地址:传送门 本文提供了一个能使JavaScript与C#互通的DES加解密算法的实现,在前台页面中用JavaScript版本的DES算法将数据加密之后,传到服务器端,在服务器端可用C#版本的DE ...

  9. C# 中使用 RSA加解密算法

    一.什么是RSA RSA公开密钥密码体制.所谓的公开密钥密码体制就是使用不同的加密密钥与解密密钥,是一种“由已知加密密钥推导出解密密钥在计算上是不可行的”密码体制. 在公开密钥密码体制中,加密密钥(即 ...

随机推荐

  1. mytop

    http://jeremy.zawodny.com/mysql/mytop/mytop.html 内容有点过时,用?查看帮助 vi set nuset nonu总记不住

  2. tooltip 鼠标移动上去出现图片或文字与title大同小异

    代码如下: <script type="text/javascript" src="jquery-1.3.2.min.js"></script ...

  3. 转 Could not create the view: An unexpected exception was thrown.问题解决

    转自:http://blog.csdn.net/shuangzixing520/article/details/35225105 今天打开Myeclipse10的时候,发现server窗口出现一堆问题 ...

  4. Android Camera HAL浅析

    1.Camera成像原理介绍 Camera工作流程图 Camera的成像原理可以简单概括如下: 景物(SCENE)通过镜头(LENS)生成的光学图像投射到图像传感器(Sensor)表面上,然后转为电信 ...

  5. iOS之UITableView的上拉刷新

    #import "ViewController.h" #import "UITableView+PullRefresh.h" @interface ViewCo ...

  6. mybatis+spring事务

    http://www.mybatis.org/spring/zh/transactions.html 第四章 事务 一个使用 MyBatis-Spring 的主要原因是它允许 MyBatis 参与到 ...

  7. IIS发布WebService的一些常见问题

    安装IIS过程,在控制面板程序à程序功能à打开或关闭windows功能. 将Internet信息服务中的选项全部选中,点击确定. 验证IIS是否正确安装,等待几分钟后IIS配置完成在浏览器输入http ...

  8. Tomcat 静态部署 二步特别注意

    一.修改server.xml 在Host 节点添加如下配置 <!-- path 为请求url地址 docBase 为项目文件绝对地址制定到WebContent根目录下 --> <Co ...

  9. C# 6.0 11个新特性

    1. 静态using(static using) 静态using声明允许不使用类名直接调用静态方法. The static using declaration allows invoking stat ...

  10. CDN概念+作用+特点+原理

    CDN的全称是Content Delivery Network,即内容分发网络.其目的是通过在现有的Internet中增加一层新的网络架构,将网站的内容发布到最接近用户的网络"边缘" ...