VB 加密与解密的程序代码

加密：

Private Function JiaMi(ByVal varPass As String) As String '参数varPass是需要加密的文本内容

Dim varJiaMi As String * 20

Dim varTmp As Double

Dim strJiaMi As String

Dim I

For I = 1 To Len(varPass)

varTmp = AscW(Mid$(varPass, I, 1))

varJiaMi = Str$(((((varTmp * 1.5) / 5.6) * 2.7) * I))

strJiaMi = strJiaMi &varJiaMi

Next I

JiaMi = strJiaMi

End Function

解密函数：

Private Function JieMi(ByVal varPass As String) As String '参数varPass是需要解密的密文内容

Dim varReturn As String * 20

Dim varConvert As Double

Dim varFinalPass As String

Dim varKey As Integer

Dim varPasslenth As Long

varPasslenth = Len(varPass)

For I = 1 To varPasslenth / 20

varReturn = Mid(varPass, (I - 1) * 20 + 1, 20)

varConvert = Val(Trim(varReturn))

varConvert = ((((varConvert / 1.5) * 5.6) / 2.7) / I)

varFinalPass = varFinalPass &ChrW(Val(varConvert))

Next I

JieMi = varFinalPass

End Function

扩展资料：

注意事项

编写加密程序，将用户输入的一个英文句子加密为加密字符串，然后输出加密字符串。假设句子长度不超过100个字符。

根据给定的句子加密函数原型SentenceEncoding，编写函数SentenceEncoding调用给定的字符加密函数CharEncoding完成句子加密。

然后，编写主程序提示用户输入英文句子，然后调用函数SentenceEncoding对句子加密，最后输出加密后的句子。

字符加密规则为大写蔽铅字母和改禅小写字母均加密为其补码, 我们定义ASCII码值相加为’A’+’Z’即155的两个大写字母互为补码，ASCII码值相加为’a’+’z’即219的两个小写字母互为补码。

空格用@代替,句号以#代替,其它字符用句点代宏歼好替。

函数原型：

void SentenceEncoding(char *soure,char *code)

功能：对待加密字符串source加密后保存加密字符串到code.

参数：char *soure，指向待加密句子的字符串指针；

char *code 指向加密字符串的字符串指针；

字符加密函数代码。

c# dll 加密最快的方法使用加壳工具Virbox Protector，直接加密，Virbox Protectorke可以对dll进行性能分析，分析每个函数的调用次数，对每个函数选择保护方式如：混淆/虚拟化/碎片化/代码加密等；每种加密方法的特点是什么呢？

代码加密（X86）：

针对X86汇编代码：一种代码自修改技术（SMC）保护代码。把当前代码加密存储为密文，存储起来，当程序运行到被保护函数时候自动解密并且执行，执行之后再擦除代码，运行到哪里才解密哪里的代码，黑客无法获得原始机器指令和内存完整性的代码，由于是纯内存 *** 作所以运行速度快， 性价高的保护手段，建议全加

代码加密(IL)

针对dotNet程序，保护IL代码：一种动态运行方法解密被保护代码。把当前代码加密存储为密文，存储起来，当程序运行到被保护函数时候自动解密并且执行，执行之后再擦除代码，执行之后再擦除代码，运行到哪里才解密哪里的代码，黑客无法获得原始的中间语言的指令和内存完整性的代码，由于是纯内存 *** 作所以运行速度快， 性价高的保护手段，建议全加

压缩

类似zip等压缩软件把代码和数据段压缩，由于带有动态密码，没有任何工具可以自动脱壳，是防止反编译和反汇编关键手段。

代码混淆（IL）：

将代码中的各种元素，如变量，函数，类的名字改写成无意义的名字。比如改写成单个字母，或是简短的无意义字母组合，甚至改写成“__”这样的符号，使得阅读的人无法根据名字猜测其用途。

a)重写代码中的部分逻辑，将其变成功能上等价，但是更难理解的形式。比如将for循环改写成while循环，将循环改写成递归，精简中间变量，等等。

b) 打乱代码的格式。比如删除空格，将多行代码挤到一行中，或者将一行代码断成多行等等。

c) 添加花指令，通过特殊构造中伍的指令来使得反汇编器出错，进而干扰反编译工作的进行。

代码混淆器也会带来一些问题。主要的问题包括：· 被混淆的代码难于理解，因此调试除错也变得困难起来。开发人员通常需要保留原始的未混淆的代码用于调试。· 对于支持反射的语言，代码混淆有可能与反射发生冲突。· 代码混淆并不能真正阻止反向工程，只能增大其难度。因此，对于对安全性要求很高的场合，仅仅使用代码混淆并不能保证源代码的安全。

代码混淆的特点是安全度低、不会影响效率。

代码虚拟化：

针对X86代码： 是指将机器代码翻译为机器和人都无法识别的一串伪代码字节流；在具体执行时再对这些伪代塌败码进行一一翻译解释，逐步还原为原始代码并执行。 这段用于翻译伪代码并负责具体执行的子程序就叫作虚拟机VM（好似一个抽象的CPU）。它以一个函数的形式存在，函数的参数就是字节码的内存地址。 由于虚拟机代码和虚拟机CPU的实现可以做到每次都是随机设计和随机执行 并且代码每次可以随机变化，包括一些逻辑上的等价变化可以参考硬件N个与非门NOT-AND实现各种逻辑门，算法和访问内存形式的变化，包括数学上的非等价变化，代码体积几乎可以膨胀达到100到10000倍，造成团培颤机器无法做算法还原到原有逻辑。

代码虚拟化的特点是：安全度中、不会影响效率。

代码碎片化：

深思自主知识产权的最新技术：基于 LLVM 和 ARM 虚拟机技术，自动抽取海量代码移入 SS 内核态模块，极大的降低了使用门槛， 不再需要手动移植算法，可移植的算法从有限的几个增长到几乎无限多，支持的语言也不再限于 C， 这是加密技术的一次综合应用，效果上类似于将软件打散执行，让破解者无从下手。

安全度高、建议关键函数或调用加密锁方法；使用太多会影响效率

企业源代码防止泄漏其实是伴随计算机编程出现就出现的问题，很多项目组成员仅仅通过代码管理工具进行代码迭代，而项目组的每个开发人员都能够下载全部代码，这就给整个项目代码泄漏造成很大隐患。有数据表明，出现最多的代码泄漏往往来自内部以及离职员工，外部黑客往往不去获取源代码。

企业源代码防泄密，很多橡握企业管理者很头痛的问题，感觉对研发人员防泄密难度很大,原因有：

1，研发人员技术都不会很差

2，开发环境复杂，怕影响现在的开发环境。

3，各种版本管理服务器，更新迭代更方便，但存在很大的安全性。

安秉信息源代码防泄漏软件解决方案对企业的的源代码保护的问题及解决方案有那些呢？

1、支持开发语言及开发环境及编程工具？

支持c、c++、c#、java、python、vb、php等所有开发语言源代码加密，同时兼容vsstudio、vscode、idea、eslips等所有开发工具的加密。

2、加密后对现有开发环境是否有影响？

软件采用透明加密技术销如，安装后加密，无须改变现有开发环境，与加密前环境一样，无需任何改变。编译速度无任何影响。

3、是否支持git及svn版本管理服务器？

不管您公司的git及svn是在内网或在云端，加密系统完美支持git及svn版本管理软件。无需添加任何硬件，保证git及svn服务器端保存为密文。

4、git及svn服务器上源码是密文的情况下是否影响对比及版本冲突问题？

安秉信息梁斗庆成熟稳定的svn及git源代码在服务器保存为密文的方案， 不影响任何源代码的对比及版本冲突处理问题

安秉网盾源代码防泄密软件，完整源代码加密防泄密解决方案，让企业的源码不在出现泄露的情况。软件采用驱动层透明加密策略，成熟的加密策略，已经应用上千家源代码开发企业及开发环境。 加密策略无需调试，直接使用

---