加密文件解密

我刚装了windows7，结果以前的XP的加密文件打不开啦（是用的文件右键属性里面那个不设密码加密的），现在怎样才能把它打开呢，现在是不能打开，也不能复制。哎。。。郁闷死啦，很重要的资料呀。请你帮我解决一下吧。

安例名称:文件加密,解密系统的实现
系统功能:
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

确保Windows7的账户名和密码同之前的XP一样，然后到文件夹属性里面清除“加密内容以便保护数据”复选项看看

看自己有没有权限

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息