用易语言编写文件加密程序，谢谢

先下载精易模块。

然后再在“_启动窗口_创建完毕”里加上这几句命令：

版本

2

文件_关联

(,

“要关联的后缀名”,

,

“文件”,

)

取命令行

(启动命令行)

如果真

(取数组成员数

(启动命令行)

≠

0)

（这个地方加上你要处理的命令，我写个例子。）

写到文件（取运行目录（）+“\解密后文件exe”，解密数据（读入文件（启动命令行[1]），“加密密码”）)

运行

(取运行目录

()

＋

“\解密后文件exe”,

假,

)

如果真结束

结束

()

Dim S1 As String

Dim S2 As String

S1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJ"

S2 = "abcdefghijklmnopqrstuvwxyzabcdefghij"

Dim LStr As String

LStr = "AXDCF1245CDxhsavs" '保存原来的文本

Dim TStr As String

Dim i As Integer

Dim S As String

TStr = ""

For i = 1 To Len(LStr)

S = Mid(LStr, i, 1)

If InStr(S1, S) <> 0 Then

S = Mid(S1, InStr(S1, S) + 10, 1)

ElseIf InStr(S2, S) <> 0 Then

S = Mid(S2, InStr(S2, S) + 10, 1)

End If

TStr = TStr & S

Next i

Print TStr

打开你的

C盘

并选择查看所有文件，找到你的

回收站

。在回收站的右键属性里去掉隐藏，选种“启用

缩略图

察看方式”。进入回收站，可以看到desktopini这个文件夹。在加密文件夹的时候，只要把desktopini这个文件复制到所要加密的文件夹下就可以实现了。

在vb中用文本保存desktopini这个里的内容，然后生成到文件夹下。改变文件夹的属性就可以了。

以上就是关于用易语言编写文件加密程序，谢谢全部的内容，包括:用易语言编写文件加密程序，谢谢、用vb 2008 编写一个简单加密程序，将输入的一行字符串中的所有字母字符加密（非字母不处理）。、如何用vb6.0编写文件夹加密程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！