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 指向加密字符串的字符串指针；

字符加密函数代码。

你做源代码加密无非是想要对公司的源代码进行保护。越来越多的企业开始注重这一点了。

目前我所知道的对源代码加密的办法有两种：一种是物理性的“源代码加密”，一种是软件性的源代码加密。

物理性“源代码加密”就是指截断外网，封掉U口（或者锁机箱雀拍），让开发者完全处于一种封闭的状态，这种方法是可以达到效果的，弊端就是实施过程也不是那么简单，并且程序旅岁伍员写代码查资料不方便，如果给每人再增加一台电脑，那成本就很大了，而做开发的人恰好随时随地都要查阅资料。

软件性的源代码加密是指通过软件对源码进行保护的工作。目前市面上最流行的源代码加密软件是一种对开发人员的 *** 作环境进行加密的软件，不用对任何硬件做修改，开发人员所有拆或的开发数据都只能存放在公司范围里，拿不出被加密的空间。如果想要拿出来必须要走审批流。我们公司自己也在用这种产品，我们用的是沙盒SDC系统，我个人觉得我们选它的原因就是厂商服务挺好，加密时不改变源文件类型、大小，而且开发人员可以自由上网并且不用担心泄密，这样就完美实现了开发人员开发数据时可以查资料的要求。

你要是有什么问题可以给我留言。望采纳。

源代码加密软件推荐使用深圳德人合科技有限公司的加密软件，是一套从源头上保障数据安全和使用安全的软件系统。采用的是文件透明加密模块，对平常办公使用是没有影响的。而且支持与SVN等源代码管理工具无缝结合。

如果企业内部SVN服务器采取透明模式，碧搜即加密文件是可以存放在SVN服务器上的，需要达到的效果是SVN服务器上文件密文存储。则配合天锐绿盾应用服务器安全接入系统来实现只有安装了加密客户端的Windows、Linux、MAC端才能够正常的访问公司内部的SVN服务器。

如果企业内部采用eclipse、VS等开发工具，从这些开发工具将代码直接上传到SVN服务器上时会自动解密。为了避免明文、密文混乱存放导致版本比对时出现错误等问题。因此，SVN服宽改务器上需统一存放明文文件。则通过服务器白名单功能实现对终端电脑数据进行强制透明加密，对上传到应用服务器数据实现上传自动解密、下载自动加密。再配合应用服务器安全接入系统实现只有安装了加密客户端的Windows、Linux、MAC端才能够正常的访问公司内部的SVN服务器。

深圳德人合科技有限公司为客户提供优质的内网安全管理产品慎慧判和适合多种行业的应用解决方案。

---