用vb 如何 把 字符串 JS加密
用vb 如何 把 字符串 JS加密
日期：2011-05-20 00:35:34 人气：1
Private Sub Form_Load()
FileName$ = InputBox("请输入需要加密的文件名及路径：")
Open FileName$ For Input As #1
Line Input #1, yw$
Close #1
xw$ = ""
n = Len(yw$)
For i = 1 To n
yz$ = Mid$(yw$, i, 1)
xz$ = Chr(Asc(yz$) - 10)
xw$ = xw$ & xz$