您现在的位置是：首页 > 综合信息网站首页综合信息

大家好，我是小业，我来为大家解答以上问题。加密文件怎么打开，加密文件怎么解密很多人还不知道，现在让我们一起来看看吧！

1、安例名称:文件加密,解密系统的实现 系统功能: 1.编写一加密,解密的程序,要求在选定文本件后中,可以 对文件中所有字符进行加密,加密后文件保存为另外一个文本文件, 2.也可以选择被加密后的文件进行逆向解密. 要求要求提示: 1.要求不得采用例题中所采用算法,不需要采用运算符XOR,至少要比原程序中拉架使用三个控件对象. 2.综合运用多种文件控件 3.对文件中的字符采用逐个加密,解密的方法. 课文 例题: Dim strInput$,code$,c as string * 1 dim i % , length%, iasc% private sub cmdcls_Click() txtCode.Text="" txtRecode.Text="" txtInput.Text="" End Sub Private Sub cmdcode_click() dim strinput$,Code$,Record$,c As string *1 dim i% ,length%,iAsc% strInput=txtInput.Text length= le (RTrim(strInput)) Code="" For i = 1 To length c=mid$ (strinput,i,1) select Case c case"A" To "Z" iasc = asc(c)+5 if iasc>asc("Z")Then iasc = iasc-26 Code= Code=Chr$(iasc) Case"a"to "z" iasc=asc(c)+5 if iasc>asc("z")Then iasc = iasc-26 code = code + chr$(iasc) case Else Code = Code +c End Select Next i txtCode.Text= Code End Sub。

本文到此讲解完毕了，希望对大家有帮助。