求大神帮我看一下这段代码

爱你爱到发晒狂

老师说这是加密代码
求翻译，求密码
Private Sub Form_Load()
FileName$ = InputBox("请输入需要加密的文件名及路径：")
Open FileName$ For Input As #1
Line Input #1, a$
MsgBox a$, , "加密前的文本内容"
Close #1
mm$ = ""
n = Len(a$)
For i = 1 To n
b$ = Mid$(a$, i, 1)]
c$ = Chr(Asc(b$) - 10)
mm$ = mm$ & c$
Next
MsgBox mm$, , "加密后的文本内容"
Open "d:\答案加密.txt" For Output As #2
Print #2, mm$
Close #2
end
end sub

virusdefender

目测vb  自己编译运行一下啊

dyc941126

这个。。应该是VB代码，，大体意思就是首先从文件中读入一行字符串，然后遍历字符串，取其编码减10作为密文。。。这个没有密码，加密方法包含在程序里

淡然出尘

目测是一段VB加密文本的东西
先以行读取文本 然后一个一个的读取
将它的（编码-10）作为每个加密后的密文、