.版本 2
.支持庫 spec
.支持庫 iext
.程序集 窗口程序集_啟動窗口
.子程序 __啟動窗口_創(chuàng)建完畢
.局部變量 code, 字節(jié)集, , , 加密密碼
.局部變量 test, 字節(jié)集, , , 要加密碼的數(shù)據(jù)字節(jié)集
.局部變量 i, 整數(shù)型, , , 查看反饋信息
' 簡單例子
test ＝ 到字節(jié)集 (“aaaaaaa aaa.*#(中。329}@#￥”)
code ＝ 到字節(jié)集 (“中。有 3a#”)
CNA數(shù)據(jù) (test, code, 1)
調試輸出 (到文本 (test))
CNA數(shù)據(jù) (test, code, )
調試輸出 (到文本 (test))
' 直接用一個文件進行加解密測試。功能完整的。
.子程序 CNA數(shù)據(jù), 整數(shù)型, , 返回數(shù)1表示加密完成，返回0表示解密完成，返回10表示加密或解密碼失敗
.參數(shù) 數(shù)據(jù)集, 字節(jié)集, 可空, 要加密的數(shù)據(jù)集
.參數(shù) 密碼集, 字節(jié)集, 可空, 要加密的密碼集
.參數(shù) 方式, 整數(shù)型, 可空, 1是加密，0或省略是解密
.局部變量 j, 整數(shù)型, , , 計次變量
.局部變量 i, 整數(shù)型, , , 密碼集長度
.局部變量 k, 整數(shù)型, , , 數(shù)據(jù)集長度
.局部變量 lk, 整數(shù)型, , , 計算對換對換位置變量
.局部變量 t, 整數(shù)型, , , 計算對換對換位置變量
.局部變量 對換位置組, 整數(shù)型, , "0", 存放8個位置數(shù)據(jù)
.局部變量 臨時變量, 字節(jié)集, , , 臨時存放變量
.局部變量 密碼疊加量, 整數(shù)型, , , 密碼疊加變量
.局部變量 隨機數(shù), 整數(shù)型, , , 隨機變量
.局部變量 隨機變量集, 字節(jié)集, , , 隨機變量字節(jié)集
.局部變量 單個對換位置, 整數(shù)型, , , 存放單個對換位置
' 限制只加密大于大于或等于10字節(jié)以上長度的文件，密碼可以和文件一樣長，如果比文件長，那多出部分只能累加到密碼疊加量里，不能在數(shù)據(jù)集加密中進行混合
' 小于10字節(jié)的文件可自行調整參數(shù)和算法
.如果真 (方式 ＝ 1 且 取字節(jié)集長度 (數(shù)據(jù)集) ≥ 10 且 取字節(jié)集長度 (密碼集) ≥ 1) ' >>>>>>>>>>>>>加密開始
  ' ----------------------------------（1）計算密碼疊加量
  j ＝ 取字節(jié)集長度 (密碼集)
  .計次循環(huán)首 (j, i)
    密碼疊加量 ＝ 密碼集 [i] ＋ 密碼疊加量 ＋ i × 15
  .計次循環(huán)尾 ()
  lk ＝ 密碼疊加量 ' ---用于計算對換位置時使用
  ' ----------------------------------（2）引入固定8位數(shù)隨機變量
  置隨機數(shù)種子 ()
  隨機數(shù) ＝ 取隨機數(shù) (10000000, 98999999)
  ' ----------------------------------（3）開始數(shù)據(jù)集加密
  j ＝ 取字節(jié)集長度 (密碼集)
  .計次循環(huán)首 (取字節(jié)集長度 (數(shù)據(jù)集), i) ' ------開始加密數(shù)據(jù)
    數(shù)據(jù)集 [i] ＝ 數(shù)據(jù)集 [i] ＋ 密碼集 [j] ＋ 密碼疊加量 ＋ 隨機數(shù)
    j ＝ j － 1
    .如果真 (j ＝ 0)
      j ＝ 取字節(jié)集長度 (密碼集)
    .如果真結束
  .計次循環(huán)尾 ()
  ' ----------------------------------（4）開始把隨機數(shù)轉換隨機變量集加密，再合并到數(shù)據(jù)集中
  隨機數(shù) ＝ 隨機數(shù) ＋ 密碼疊加量 ' ------第一次簡單混合加密
  隨機變量集 ＝ 到字節(jié)集 (到文本 (隨機數(shù)))
  j ＝ 取字節(jié)集長度 (密碼集)
  .計次循環(huán)首 (取字節(jié)集長度 (隨機變量集), i) ' ------開始第二次加密隨機變量集
    隨機變量集 [i] ＝ 隨機變量集 [i] ＋ 密碼集 [j] ＋ 密碼疊加量
    j ＝ j － 1
    .如果真 (j ＝ 0)
      j ＝ 取字節(jié)集長度 (密碼集)
    .如果真結束
  .計次循環(huán)尾 ()
  數(shù)據(jù)集 ＝ 數(shù)據(jù)集 ＋ 隨機變量集 ' ------數(shù)據(jù)集和隨機變量集合并
  ' ----------------------------------（5）通過對數(shù)據(jù)集長度和密碼疊加變量的比例算法求出對換位置
  t ＝ 取字節(jié)集長度 (數(shù)據(jù)集)
  .計次循環(huán)首 (8, i) ' ------先通過和密碼疊加變量計算出對應位置
    加入成員 (對換位置組, t × lk ÷ (lk ＋ t))
    t ＝ t － 1.69
    lk ＝ lk × 0.459
  .計次循環(huán)尾 ()
  ' ----------------------------------（6）開始對換隨機變量集在數(shù)據(jù)集里的位置
  k ＝ 取字節(jié)集長度 (數(shù)據(jù)集)
  臨時變量 ＝ 取空白字節(jié)集 (1)
  .計次循環(huán)首 (8, i) ' ------ 開始對換
    單個對換位置 ＝ 對換位置組 [i]
    臨時變量 [1] ＝ 數(shù)據(jù)集 [單個對換位置]
    數(shù)據(jù)集 [單個對換位置] ＝ 數(shù)據(jù)集 [k]
    數(shù)據(jù)集 [k] ＝ 臨時變量 [1]
    k ＝ k － 1
  .計次循環(huán)尾 ()
  返回 (1)
.如果真結束
.如果真 (方式 ＝ 0 且 取字節(jié)集長度 (數(shù)據(jù)集) ≥ 10 且 取字節(jié)集長度 (密碼集) ≥ 1) ' --------------------解密
  ' ----------------------------------（1）計算密碼疊加量，和加密部分（1）一樣
  j ＝ 取字節(jié)集長度 (密碼集)
  .計次循環(huán)首 (j, i)
    密碼疊加量 ＝ 密碼集 [i] ＋ 密碼疊加量 ＋ i × 15
  .計次循環(huán)尾 ()
  lk ＝ 密碼疊加量 ' ---用于計算對換位置時使用
  ' ----------------------------------（2）通過對數(shù)據(jù)集長度和密碼疊加變量的比例算法求出對換位置，和加密碼部分（5）一樣
  t ＝ 取字節(jié)集長度 (數(shù)據(jù)集)
  .計次循環(huán)首 (8, i)
    加入成員 (對換位置組, t × lk ÷ (lk ＋ t))
    t ＝ t － 1.69
    lk ＝ lk × 0.459
  .計次循環(huán)尾 ()
  ' ----------------------------------（3）開始對換隨機變量集在數(shù)據(jù)集里的位置，并把數(shù)據(jù)集和隨機變量集切分出來，對換位置和加密部分（6）略有不同
  k ＝ 取字節(jié)集長度 (數(shù)據(jù)集) － 7 ' ------ 開始反向對換
  臨時變量 ＝ 取空白字節(jié)集 (1)
  .計次循環(huán)首 (8, i)
    單個對換位置 ＝ 對換位置組 [9 － i] ' ------ 開始反向對換
    臨時變量 [1] ＝ 數(shù)據(jù)集 [單個對換位置]
    數(shù)據(jù)集 [單個對換位置] ＝ 數(shù)據(jù)集 [k]
    數(shù)據(jù)集 [k] ＝ 臨時變量 [1]
    k ＝ k ＋ 1
  .計次循環(huán)尾 ()
  k ＝ 取字節(jié)集長度 (數(shù)據(jù)集)
  隨機變量集 ＝ 取字節(jié)集右邊 (數(shù)據(jù)集, 8) ' ------ 分割出隨機變量集
  數(shù)據(jù)集 ＝ 取字節(jié)集中間 (數(shù)據(jù)集, 1, k － 8) ' ------ 分割出數(shù)據(jù)集
  ' ----------------------------------（4）開始解密出隨機數(shù)，和加密部分（4）取反向操作
  j ＝ 取字節(jié)集長度 (密碼集)
  .計次循環(huán)首 (取字節(jié)集長度 (隨機變量集), i)
    隨機變量集 [i] ＝ 隨機變量集 [i] － 密碼集 [j] － 密碼疊加量
    j ＝ j － 1
    .如果真 (j ＝ 0)
      j ＝ 取字節(jié)集長度 (密碼集)
    .如果真結束
  .計次循環(huán)尾 ()
  隨機數(shù) ＝ 到數(shù)值 (到文本 (隨機變量集))
  隨機數(shù) ＝ 隨機數(shù) － 密碼疊加量
  ' ----------------------------------（5）開始解密數(shù)據(jù)集，和加密部分（3）取反向操作
  j ＝ 取字節(jié)集長度 (密碼集)
  .計次循環(huán)首 (取字節(jié)集長度 (數(shù)據(jù)集), i)
    數(shù)據(jù)集 [i] ＝ 數(shù)據(jù)集 [i] － 密碼集 [j] － 密碼疊加量 － 隨機數(shù)
    j ＝ j － 1
    .如果真 (j ＝ 0)
      j ＝ 取字節(jié)集長度 (密碼集)
    .如果真結束
  .計次循環(huán)尾 ()
  返回 (0)
.如果真結束
返回 (10)
.子程序 _打開文件加密_被單擊
.局部變量 file1, 整數(shù)型, , , 要加密的文件號
.局部變量 file2, 整數(shù)型, , , 加密后新建的文件號
.局部變量 code, 字節(jié)集, , , 要加密碼的密碼
.局部變量 exc, 文本型, , "0", 取文件名格式用
.局部變量 文件長度, 長整數(shù)型, , , 要加密的文件大小
.局部變量 循環(huán)次數(shù), 整數(shù)型, , , 加密循環(huán)次數(shù)
.局部變量 FSO, 對象, , , 用于讀取文件屬性信息
.局部變量 GetFile, 對象, , , 用于讀取文件屬性信息
.局部變量 temp, 字節(jié)集, , , 臨時存放字節(jié)集
.局部變量 i, 整數(shù)型, , , 提示加密進度用
' 加密時是以80萬計/次讀入數(shù)據(jù)的，每次循環(huán)加密后的文件都會多出8字節(jié)的隨機密匙，所以解密時要以80.008萬/次讀入數(shù)據(jù)。
code ＝ 到字節(jié)集 (密碼編輯框.內(nèi)容)
.如果真 (通用對話框1.打開 ())
  file1 ＝ 打開文件 (通用對話框1.文件名, #讀寫, )
  FSO.創(chuàng)建 (“Scripting.FileSystemObject”, )
  GetFile ＝ FSO.對象型方法 (“GetFile”, 通用對話框1.文件名)
  文件長度 ＝ GetFile.讀數(shù)值屬性 (“Size”, )
  exc ＝ 分割文本 (通用對話框1.文件名, “\”, )
  file2 ＝ 打開文件 (取當前目錄 () ＋ “\CNA+” ＋ exc [取數(shù)組成員數(shù) (exc)], #改寫, )
  狀態(tài)條1.置文本 (0, “狀態(tài)：正在加密..”)
  狀態(tài)條1.置文本 (1, “文件：” ＋ 到文本 (exc [取數(shù)組成員數(shù) (exc)]))
  循環(huán)次數(shù) ＝ 到整數(shù) (文件長度 ＼ 800000) ＋ 1
  .計次循環(huán)首 (循環(huán)次數(shù), i)
    temp ＝ 讀入字節(jié)集 (file1, 800000)
    CNA數(shù)據(jù) (temp, code, 1)
    寫出字節(jié)集 (file2, temp)
    狀態(tài)條1.置文本 (2, “進度：” ＋ 到文本 (取整 (i ÷ 循環(huán)次數(shù) × 100)) ＋ “%”) ' -----進度顯示以百分比方式顯現(xiàn)
  .計次循環(huán)尾 ()
  狀態(tài)條1.置文本 (0, “狀態(tài)：加密完成”)
  關閉文件 (file2)
  關閉文件 (file1)
.如果真結束
.子程序 _打開文件解密_被單擊
.局部變量 file1, 整數(shù)型, , , 要加密的文件號
.局部變量 file2, 整數(shù)型, , , 加密后新建的文件號
.局部變量 code, 字節(jié)集, , , 要加密碼的密碼
.局部變量 exc, 文本型, , "0", 取文件名格式用
.局部變量 文件長度, 長整數(shù)型, , , 要加密的文件大小
.局部變量 循環(huán)次數(shù), 整數(shù)型, , , 解密循環(huán)次數(shù)
.局部變量 FSO, 對象, , , 用于讀取文件屬性信息
.局部變量 GetFile, 對象, , , 用于讀取文件屬性信息
.局部變量 temp, 字節(jié)集, , , 臨時存放字節(jié)集
.局部變量 i, 整數(shù)型, , , 提示加密進度用
' 注意： 加密時是以80萬計/次讀入數(shù)據(jù)的，每次循環(huán)加密后的文件都會多出8字節(jié)的隨機密匙，所以解密時要以80.008萬/次讀入數(shù)據(jù)。
code ＝ 到字節(jié)集 (密碼編輯框.內(nèi)容)
.如果真 (通用對話框1.打開 ())
  file1 ＝ 打開文件 (通用對話框1.文件名, #讀寫, )
  FSO.創(chuàng)建 (“Scripting.FileSystemObject”, )
  GetFile ＝ FSO.對象型方法 (“GetFile”, 通用對話框1.文件名)
  文件長度 ＝ GetFile.讀數(shù)值屬性 (“Size”, )
  exc ＝ 分割文本 (通用對話框1.文件名, “\”, )
  file2 ＝ 打開文件 (取當前目錄 () ＋ “\CNA-” ＋ exc [取數(shù)組成員數(shù) (exc)], #改寫, )
  狀態(tài)條1.置文本 (0, “狀態(tài)：正在解密..”)
  狀態(tài)條1.置文本 (1, “文件：” ＋ 到文本 (exc [取數(shù)組成員數(shù) (exc)]))
  循環(huán)次數(shù) ＝ 到整數(shù) (文件長度 ＼ 800008) ＋ 1 ' 注意要多出8字節(jié)
  .計次循環(huán)首 (循環(huán)次數(shù), i)
    temp ＝ 讀入字節(jié)集 (file1, 800008) ' 看文件大小讀入多少字節(jié)，如果文件非常大，則可以通過移動文件指針方式分段進行加密
    CNA數(shù)據(jù) (temp, code, )
    寫出字節(jié)集 (file2, temp)
    狀態(tài)條1.置文本 (2, “進度：” ＋ 到文本 (取整 (i ÷ 循環(huán)次數(shù) × 100)) ＋ “%”) ' -----進度顯示以百分比方式顯現(xiàn)
  .計次循環(huán)尾 ()
  狀態(tài)條1.置文本 (0, “狀態(tài)：解密完成”)
  關閉文件 (file1)
  關閉文件 (file2)
.如果真結束