vb加密解密代码(vb加密算法)

本篇文章给大家谈谈vb加密解密代码，以及vb加密算法对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB文本加密解密
• 2、求大神帮忙用C#转换这段VB写的“使用API进行MD5加密解密” 代码，拜托了

VB文本加密解密

刚好以前写过一篇文章，提取了一部分

对敏感的数据进行加密是必要的，如用户的密码的加密。在要对数据进行加密前得确定要用何种加密方式，加密分类有很多种，从可逆角度可分为可逆和不可逆，从加密算法可分为秘密密钥算法、公开密钥算法（用于加密、数据签名和密钥管理）以及单向散列函数等。md5加密是不可逆的，md5加密的具体实现又分为许多种。

加密为什么要采用不可逆？举个例子，当你输入的密码进行加密的密文被截取，那他也要把密文解密成原文，这时由于不可逆，那他要破解密码的难度就提高，除非他可以越过加密那一步直接提供密文，这样就达到安全的目的。每当我们忘记密码进行找回密码，大多数网站要求我们输入新的密码而不是直接告诉我们原来的密码，这是由于不可逆造成的，但这又不是坏处，为什么这么说？如果在找回密码时能够知道原来的密码，那么卧底就不用修改密码来监控所有人，而所有人又不知情。但并不是所有网站都采用不可逆的算法，笔者在某网站注册过用户，有一段没登录过，那网站就会给笔者一份提醒邮件，而这提醒邮件又显示着笔者的密码，这很可能是这个网站采用的不是不可逆的算法。

今天为一个网友实现了一个简易的自定义加密方式，使用的是Visual Basic 6.0。关键代码如下：

Dim decode As String, encode As String, oldString As String, newString As String

Dim i As Integer

decode = "1234567890" '加密原文对照字符，不应该出错相同的字符

encode = "eoSDriKjsd" '加密成密文的对照字符，字符个数不能少于decode，否则极易造成出错

oldString = "87232" '待加密的字符串，所有字符都必需能够在decode里找到对应位置

newString = "" '存放加密后的字符串

For i = 1 To Len(oldString)

newString = newString + Mid$(encode, Instr(decode, Mid$(oldString, i, 1)), 1)

Next i

Print "原文："; oldString

Print "密文："; newString

decode和encode的值可以根据需要设置，oldString可以由文框输入，如果encode里的字符俩俩不相同，那么只需调换decode和encode的值，就可以实现解密，否则加密后的密文为不可逆。

当然，在实际的应用种应增加加密的算法复杂度，让密文不至于被人轻而易举破解。更多的加密知识请参考相关文档。

希望回答对你有帮助

求大神帮忙用C#转换这段VB写的“使用API进行MD5加密解密” 代码，拜托了

唉~~软糖花了一个小时才转换了三分之一。

里面错误太多了，好像缺失了一些关键方法~~~不能保证能运行。

有好多东西VB和C#根本就不一样，比如十六进制和字节转换函数，

与其翻译，不如直接自己写一个更方便。

有时间再帮你转把，转好了要红包。

关于vb加密解密代码和vb加密算法的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。