相關論文目錄

相關論文

張東瀛

---

現代科技一日千里，資訊更新的速度更是讓人目不暇給。一般人接受的資訊越廣， 對知識的需求也越深，學習方法必然有所改變，「知識加工」勢在必行。教學系統 的設計可說是藝術﹑教育與科技的結合，在電腦日益普及而傳統教育成本逐年提高 的現代化社會，應用個人電腦作為輔助教學工具，不僅是當代潮流，也是教育工作 者必須面對的事實。 Alan Turing 曾說：「即令識見不遠， 亦知所當行。」 (We can see only a short distance ahead, but we can see plenty there that needs to be done.) 我們希望為知識導航創造一個實驗環境。學習者經由系統協助，可望發揮潛能，提 高學習效率。藉著多媒体系統的開發，結合有心人的努力，人類的智慧和文明當更 能傳諸久遠。

TITES 多媒体系統、Vikon 語音輸出編譯器與 Vikon 自然語言認知系統的設計，歷經數十個寒暑，爰將歷年撰寫的相關論文，提供有志研究人工 智慧與多媒体系統的讀者參考。敬祈諸位讀者先進指教。

1. 自然語言研究與自動翻譯系統

自動化科技  1985 年 9 月  p.73-82

2. BASIC 語言與資料庫管理系統

自動化科技  1987 年 4 月  p.79-90

3. 智慧的面紗

自動化科技  1987 年 7 月  p.97-102

4. 語意網路與框架結構

自動化科技  1987 年 12 月 p.211-221

5. BITNET 國際學術網路

自動化科技  1987 年 12 月 p.133-147
IBM 資訊世界  1988 vol.1 p. 8-13
IBM 資訊世界  1988 vol.2 p.12-16

6. ARPANET 高等科技網路

自動化科技  1988 年 4 月 p.186-197
(國科會科技論文索引 編號: 7707IA0018)

7. 科技野花

自動化科技  1989 年 1 月  p.32-36

8. 電腦化教學專家系統

自動化科技  1989 年 3 月  p.159-166
(國科會科技論文索引 編號: JA 7807-1475)

9. 普羅米修斯與潘朵拉-核能科技的沉思

自立早報 1990-02-05 (上)
自立早報 1990-02-06 (下)


10. 專家系統化與實驗計劃法

自動化科技  1990 年 5 月  p.180-187
(國科會科技論文索引 編號: JA 7907-1335)

11. 多媒体電腦系統

自動化科技  1991 年 10 月 p.111-116
(國科會科技論文索引 編號: JA 8101-1273)

12. A Multimedia-based Bilingual Instructional System Using
An Expert System Shell
(以專家系統發展工具建構多媒体雙語教學系統)
CHAPTER I  : INTRODUCTION
CHAPTER II : REVIEW OF RELATED LITERATURE
CHAPTER III: METHODOLOGY 
CHAPTER IV : SYSTEM ANATOMY
CHAPTER V : CONCLUSIONS AND RECOMMENDATIONS

University Microfilms International 1992   No. 13-50454

13. 以 BASIC 語言建構多媒体雙語教學系統

自動化科技  1993 年 5 月  p.95-106

14. 電腦多媒体在商業廣告之應用

HOPENET 光碟月刊  1994 年 10 月  p.158-161

15. TITES 多媒体管理系統

HOPENET 光碟月刊  1995 年 2 月  p.151-155


16. 少運崎嶇老景宜 - 我的電腦學習歷程

自動化科技  1995 年 11 月  p.65-72


17. 使用者圖形介面程式之設計

自動化科技  1996 年 3 月  p.13-17


18. 加密與密碼防禦

自動化科技  1996 年 6 月  p.70-76


19. 密碼設計與檢核原理剖析

自動化科技  1996 年 12 月  p.62-67(上)
自動化科技  1997 年  1 月  p.54-59(下)


20. 電腦多媒体專輯製作紀實

微電腦傳真(PC Magazine 中文版)  1998 年 7 月  p.282-286


21. 台語語音筆記本

2000 年 11 月  初稿
2009 年  9 月  更新稿

密碼設計與檢核原理剖析

密碼設計與檢核原理剖析   張東瀛 

原載  
自動化科技  1996 年 12 月  p.62-67(上)
自動化科技  1997 年  1 月  p.54-59(下)

---

壹、前言

人類的社會，從組織型態看來，類似樹狀階層(hierarchical)結構。通常大群体中 有小群体，小群体內又有小組合。一般人喜歡過群体生活，又希望保有相當的私 密性。這種特性在城市居民的生活中特別顯著。基於區隔或保密的理由，多數人鍾 愛透天厝，獨門獨戶，屋外又可建造圍牆，萬不得已，才住公寓。重門深鎖，外掛鐵 窗，都是為了阻絕非法闖入或限制他人進出的防護措施。

個人電腦讓現代人具備第六個感知器，資訊傳播透過網路發展而無遠弗屆，活動 範圍迅速擴大，其規模遠非傳統城市格局所能比擬。人類的知性生活因電腦而豐 富，各行各業對電腦的依賴性也越來越高，因此電腦資訊的安全與維護便成為重 要而嚴肅的課題。

一般人大都有使用自動櫃員機的經驗。提款卡插入後，機器會要求你輸入密碼，用 以辨識身份。這種利用密碼檢核以過濾非法使用者的措施，常被用來作為系統安全 防護的第一道關卡。類似的保護方式也可在 BBS 站，軟体安裝或使用時看到。

電腦系統內部，也有層層關卡，最常見的便是機密等級或使用權限的保護措施。 假設你意外闖入某個電腦系統，發現一大堆看不懂的檔案，不必驚訝，因為這些檔 案可能因為安全理由而上鎖，也就是經過檔案加密的手續。除非你持有密碼可將檔 案還原或解密，否則仍是入寶山空手回的局面。

不論密碼檢核或檔案加密，都是專門技術，某些特殊的演算法更非三言兩語可以解 釋清楚。密碼學即是研究此道的入門課程。密碼設定有許多種，常見的有單碼 和複碼(以密碼機製造出來)，檔案加密的方法更是五花八門，令人嘆為觀止。本文 僅針對基本的固定式密碼檢核及傳統檔案加密方法提出說明及程式設計實例。所 附程式及演算法已用於商用軟体多年，並受國際著作權公約保護，僅供讀者參考。


貳、密碼檢核程式

   REM             ******************************************
   REM             *     CHarades.BAS Version 2.0           *
   REM             *     01-22-1986                         *
   REM             *     By Tony Chang                      *
   REM             *     06-22-1996                         *
   REM             *     Writing in Quick BASIC 4.5         *
   REM             *     Tony Knowledge Engineering Lab     *
   REM             ******************************************
   以上為版權宣告及程式設計相關資訊

   'EXIT Reminder  暫回DOS作業系統的檢知器。程式內因設有暫回DOS的功能
   因此利用&H4E位址來偵測是否已執行本程式。使用者按Esc時，將&H4E內函值設
   定為5，表示電腦已執行本程式
   COLOR 15， 1: DEF SEG = &H30: MS% = PEEK(&H4E): DEF SEG
   IF MS% = 5 THEN
      CLS : BEEP: PRINT
      PRINT "CHarades 2.0 already installed， type EXIT to return": END
   END IF
   程式開始執行時先檢查&H4E是否等於5，是的話，則提醒使用者打EXIT回本程式
   若否，則繼續下一步，定義變數
   A1$ = CHR$(68): A3$ = CHR$(97): A4$ = CHR$(109): A5$ = CHR$(101)
   A2$ = CHR$(114)
   這些變數用來定義密碼所需的字母，如果直接使用字串定義，很容易用PCTools
   等工具程式看出，所以先用字母的ASCII值來定義變數，再加以組合成密碼

   此一變數為音樂響鈴，可用PLAY指令發聲
   FATE1$ = "MB T180 O2 P2 P8 L8 GGG L2 E-"

   利用剛才定義的變數設定密碼PK1$，至於PK2$可作為備用鑰匙或第二個密碼，
   必要時也可再增加幾個KEY CODE，甚至建立密碼庫存放這些密碼
   I = 1: KEY OFF: CLS : LOCATE ， ， 0， 14
   PK1$ = A1$ + A2$ + A5$ + A3$ + A4$ + A5$ + A2$
   PK2$ = PK1$  '本例只用一個密碼

   從第line 14到line 18為密碼檢核常式，I值設定讓使用者可輸入三次，超過
   三次未輸入正確密碼則結束程式。非法使用者有時會先找出密碼為幾位數，再進
   行測試。此處使用DO ... LOOP 的目的即是讓非法使用者無法查覺密碼位數，以
   增加篩檢困難度。
14 PRINT : PRINT : PRINT : ' PLAY FATE1$
   IF I <= 3 THEN
      I$ = LTRIM$(STR$(I))
      ANS$ = "": LOCATE 8， 10， 1: PRINT "Password"
      DO: SANS$ = INPUT$(1): ANS$ = ANS$ + SANS$
      LOOP UNTIL ASC(SANS$) = 13
      I = I + 1: PRINT : ANS$ = LEFT$(ANS$， 7)
          IF I > 3 THEN
             GOTO 16
          ELSE
             GOTO 18
          END IF
   END IF
   CLS : LOCATE 10， 12: PRINT "Incorrect password， permission denied."
   LOCATE 22， 7
   PRINT "* * * By Tony Chang， Tainan， Taiwan， August 18， 1986 * * *"
   PRINT : END
16 IF NOT (ANS$ = PK1$ OR ANS$ = PK2$) THEN GOTO 14
18 IF NOT (ANS$ = PK1$ OR ANS$ = PK2$) THEN
      LOCATE 10， 10: PRINT "Incorrect password， try again please."
      SOUND 700， 1: GOTO 14

   以上的密碼檢核常式，原先是以MBASIC寫成，後來改用QBASIC編譯成OBJECT
   CODE 就可在不同的程式呼叫。

參、檔案加密與解密

檔案加密有很多方式，比較常見的是改變檔案內函值，也就是重新編碼。不論是 ASCII文字檔或是Binary檔(如*.EXE，*.COM，圖形檔或音效檔)都是由0-255等 兩百五十六個ASCII碼組合而成，因此只要將這些ASCII碼按照一定的模式重新 組合，就和原來的檔案大不相同，達到保護的目的。

編碼的方式有兩種，一種是規則式，例如將原碼加上或減去某值，甚至利用特定公 式計算後變碼，也有依照一定程序將原碼重新排列。這種方式因為有一定的規則 常會留下蜘絲馬跡，讓解碼者有機可趁，並非是很好的方法。另一種是不規則式， 或是隨機式加密法。通常由兩個檔案組合而成，一個是要加密的來源檔，另一個則 是用來當作密碼本的簽名檔。這兩個檔案可以是文字檔也可以是二進位檔。由於 簽名檔可以千變萬化，檔案大小從數十BYTE到數十KBYTE不等，因此被破解的機率 比較小。

以下分別以程式說明這兩種加密方式


肆、規則式檔案加密法

50 CLS
   A6$ = CHR$(110): A12$ = CHR$(111): A15$ = CHR$(121): A16$ = CHR$(84)
   LOCATE 1， 1:
   PRINT "CHarades 1.0 Copyright " + A16$ + A12$ + A6$ + A15$ + " Lab 1992"
   IF A16$ <> "T" OR A6$ <> "n" OR A12$ <> "o" OR A15$ <> "y" THEN 50
   以上是防止版權宣告遭他人篡改的措施

   其次是設計以方向鍵操作的功能選單，使用者可以選擇「加密」「解密」「結束」
   等功能，選項以紅底黃字顯示，項目少時，用方向鍵比較便捷，選單多時才用滑鼠操作
   CLEAR : DIM M$(4): ECG$ = "MF L16O2ECG>CEG>CL32O2CDEFGAB>CDEFGAB>C"
   M$(1) = " 1: Charades "
   M$(2) = " 2: Reduction "
   M$(3) = " 3: Exit to DOS "
   FOR Y = 1 TO 3: LOCATE 2 * Y + 6， 30: PRINT M$(Y): NEXT Y
   LOCATE ， ， 0
   Y = 1: MVE = NO: X = 1: Q$ = ""
   WHILE Q$ <> CHR$(13)
   LOCATE 2 * Y + 6， 30: COLOR 14， 4: PRINT M$(Y): COLOR 15， 1
   Q$ = INKEY$: WHILE Q$ = "": Q$ = INKEY$: WEND
   IF LEN(Q$) = 2 AND ASC(RIGHT$(Q$， 1)) = 72 THEN
      MVE = YES: X = Y - 1:
          IF X = 0 THEN
             X = 3
          END IF
   END IF
   IF LEN(Q$) = 2 AND ASC(RIGHT$(Q$， 1)) = 80 THEN
      MVE = YES: X = Y + 1:
          IF X = 4 THEN
             X = 1
          END IF
   END IF
   'Call DOS shell
   這一段是利用SHELL指令設計暫回DOS功能，有時候忘記檔案放在那個目錄，或是臨時想
   到DOS作業，便可按Esc跳出。&H4E用來存放程式辨識值
   IF ASC(RIGHT$(Q$， 1)) = 27 THEN
      CLS : DEF SEG = &H30: H4E% = PEEK(&H4E): POKE &H4E， 5: SHELL
      DEF SEG = &H30: POKE &H4E， H4E%: DEF SEG : GOTO 50
   END IF
   IF Q$ >= "1" AND Q$ <= "3" THEN X = VAL(Q$): MVE = YES
   IF MVE = YES THEN LOCATE 2 * Y + 6， 30: PRINT M$(Y): Y = X: MVE = NO
   WEND
   A$ = STRING$(1， " ")'定字串長度
   IF Y = 1 THEN 110
   IF Y = 2 THEN 370
   IF Y = 3 THEN PLAY ECG$: CLS
   END

   這一段是加密常式，先輸入要進行加密和加密後的檔名
110 CLS : BEEP
    LOCATE 7， 20: PRINT "ASCII (Binary) file -> Charade file"
    LOCATE 9， 20: INPUT "Source file name "; SFN1$: IF SFN1$ = "" THEN 110
    LOCATE 11， 20: INPUT "Charade file name "; CFN1$: IF CFN1$ = "" THEN 110

    再用 SUB 600 讓使用者選擇 1-99999 五位數作密碼，CD%是密碼值除以256後的餘數
    GOSUB 600

    打開檔案，將ASCII碼逐一讀入，經過編碼運算後存入新檔
    OPEN SFN1$ FOR BINARY AS #1
    OPEN CFN1$ FOR BINARY AS #2
    L = LOF(1)
    FOR I = 1 TO L
    GET #1， I， A$
    H% = ASC(A$)
    AC% = H% + CD%: IF AC% > 255 THEN AC% = AC% - 256
    將ASCII值和密碼餘數值相加，若大於255則減去256
    IF AC% >= 249 THEN 260 '超過249則商大於10，無法存個位數
    A% = INT((AC%) / 25) '計算商
    C% = AC% - A% * 25 '計算餘數
    IF C% = 7 OR C% = 18 THEN
    LOCATE 15， 30: PRINT "Proceeding   : "; I '顯示進行加密的進度
    END IF
    AC% = C% * 10 + A% '以餘數當十位數，以商當個位數，計算新數值
260 PUT #2， I， AC% '將演算結果存進加密檔
    NEXT I
    LOCATE 15， 30
    BEEP: LOCATE 20， 20: INPUT ; "Hit RETURN to continue."， ANS2$: GOTO 50

    這一段是解密常式，將加密演算法反向操作，把ASCII數值還原，再存入解密檔
370 CLS : BEEP: LOCATE 7， 20: PRINT "Charade file -> ASCII (Binary) file"
    LOCATE 9， 20: INPUT "Charade file name "; CFN2$: IF CFN2$ = "" THEN 370
    LOCATE 11， 20: INPUT "Target file name "; TFN2$: IF TFN2$ = "" THEN 370
    GOSUB 600
    OPEN CFN2$ FOR BINARY AS #1
    OPEN TFN2$ FOR BINARY AS #2
    L = LOF(1) - 1
    FOR I = 1 TO L
    GET #1， I， A$
    AC% = ASC(A$)
    IF AC% >= 249 THEN 500
    C% = INT(AC% / 10): D% = AC% - C% * 10 'C% 為十位數， D%為個位數
    AC% = D% * 25 + C% 'D%為原來的商，C%為原來的餘數
    IF D% = 2 OR D% = 7 THEN LOCATE 15， 30: PRINT "Proceeding   : "; I
500 H% = AC% - CD%: IF H% < 0 THEN H% = H% + 256
    B$ = CHR$(H%)
    PUT #2， I， B$
    NEXT I
    LOCATE 15， 30: PRINT "Proceeding   : "; I 顯示進行解密的進度
    BEEP: LOCATE 20， 20: INPUT ; "Hit RETURN to continue."， ANS2$: GOTO 50
    END

    SUB 600 用以計算密碼的餘數值，由於ASCII值為0-255，故除以256再取餘數值，
    密碼設計為五位數只是障眼法，目的是取一個隨機的ASCII值來運算
600 BEEP: LOCATE 13， 20: PRINT "Code Number (XXXXX) : ": CD$ = INPUT$(5)
    CD& = VAL(CD$): IF CD& > 99999 OR CD& < 1 THEN PLAY ECG$: GOTO 600
    CD% = CD& - (INT(CD& / 256)) * 256
    RETURN

    這種加密方式由於一次處理一個BYTE，速度較慢，而且密碼為定值，被解開的機率較大。

伍、隨機式檔案加密法

隨機檔案加密法是利用兩個不同檔案，將其對應位址ASCII碼相加後，應用簡單的演算 法取得新值成為加密檔。第一個檔案為資料來源檔，是要加密的檔案，第二個檔案為簽 名檔，是當作密碼鑰匙用的檔案。由於簽名檔可以是任何形式的檔案，因此要解開密碼 的機率相當低。

範例程式以長字串方式讀入ASCII碼，再存入陣列，得以加快加密速度，由於需用動態 定長字串陣列，因此需要較多記憶体來執行。字串陣列大小設定為20K BYTE。陣列太小 時若要將大檔案加密，耗時甚久，陣列設定太大，會造成Out of Stack。

50 CLS : A6$ = CHR$(110): A12$ = CHR$(111): A15$ = CHR$(121): A16$ = CHR$(84)
   LOCATE 1， 1
   PRINT "CHarades 2.0 Copyright " + A16$ + A12$ + A6$ + A15$ + " Lab 1992"
   IF A16$ <> "T" OR A6$ <> "n" OR A12$ <> "o" OR A15$ <> "y" THEN 50
   CLEAR : DIM M$(4): ECG$ = "MF L16O2ECG>CEG>CL32O2CDEFGAB>CDEFGAB>C"
   M$(1) = " 1: Charades "
   M$(2) = " 2: Reduction "
   M$(3) = " 3: Exit to DOS "
   FOR Y = 1 TO 3: LOCATE 2 * Y + 6， 30: PRINT M$(Y): NEXT Y
   LOCATE ， ， 0
   Y = 1: MVE = NO: X = 1: Q$ = ""
   WHILE Q$ <> CHR$(13)
   LOCATE 2 * Y + 6， 30: COLOR 14， 4: PRINT M$(Y): COLOR 15， 1
   Q$ = INKEY$: WHILE Q$ = "": Q$ = INKEY$: WEND
   IF LEN(Q$) = 2 AND ASC(RIGHT$(Q$， 1)) = 72 THEN
      MVE = YES: X = Y - 1:
          IF X = 0 THEN
             X = 3
          END IF
   END IF
   IF LEN(Q$) = 2 AND ASC(RIGHT$(Q$， 1)) = 80 THEN
      MVE = YES: X = Y + 1:
          IF X = 4 THEN
             X = 1
          END IF
   END IF
   'Call DOS shell
   IF ASC(RIGHT$(Q$， 1)) = 27 THEN
      CLS : DEF SEG = &H30: H4E% = PEEK(&H4E): POKE &H4E， 5: SHELL
      DEF SEG = &H30: POKE &H4E，
   END IF
   IF Q$ >= "1" AND Q$ <= "3" THEN X = VAL(Q$): MVE = YES
   IF Q$ >= "1" AND Q$ <= "3" THEN X = VAL(Q$): MVE = YES
   IF Q$ >= "1" AND Q$ <= "3" THEN X = VAL(Q$): MVE = YES
   IF MVE = YES THEN LOCATE 2 * Y + 6， 30: PRINT M$(Y): Y = X: MVE = NO
   WEND
   IF Y = 1 THEN 110
   IF Y = 2 THEN 370
   IF Y = 3 THEN PLAY ECG$: CLS : END

   以上程式說明，請參考規則式加密法部份

加密常式: 輸入相關檔名，打開檔案，視檔案相對長度決定一次讀入字串和陣列大小
110 CLS
    LOCATE 7， 20: PRINT "Input file name for Charades Process"
    LOCATE 9， 20: INPUT "Source file: "， SFN1$: IF SFN1$ = "" THEN 110
    LOCATE 11， 20: INPUT "Signature file: "， CFN1$: IF CFN1$ = "" THEN 110
    LOCATE 13， 20: INPUT "Charades file: "， TFN1$: IF TFN1$ = "" THEN 110
    OPEN SFN1$ FOR BINARY AS #1
    OPEN CFN1$ FOR BINARY AS #2
    OPEN TFN1$ FOR BINARY AS #3
    L1 = LOF(1)
    L2 = LOF(2)

    若檔名輸入有誤，則重新輸入
    IF L1=0 OR L2=0 THEN
       BEEP: LOCATE 20，20
       INPUT ; "File Error! Hit RETURN to continue."， ANS2$
       GOTO 110
    END IF

    IF L1 > L2 THEN IL = L2 ELSE IL = L1
    以來源檔及簽名檔中較小的檔案長度作為字串陣列設定值IL
    IF IL > 20480 THEN IL = 20480   'IL最大值為20K BYTE
    設定動態定長字串陣列
    '$DYNAMIC
    DIM RD$(2)
    定義字串變數長度
    RD$(1) = SPACE$(IL)
    RD$(2) = SPACE$(IL)
    若來源檔大於一次處理長度則分段進行加密，否則一次完成
    IF L1 > IL THEN GOSUB RECHA ELSE GOSUB NONRECHA
    ERASE RD$  '將動態陣列移除
    CLOSE : BEEP:
    LOCATE 20， 20: INPUT ; "Hit RETURN to continue."， ANS2$: GOTO 50

一次完成加密常式
NONRECHA:
    GET #1， ， RD$(1)
    GET #2， ， RD$(2)
    FOR I = 1 TO IL
    DSOR$ = MID$(RD$(1)， I， 1)
    DCHA$ = MID$(RD$(2)， I， 1)
    SOR% = ASC(DSOR$)
    CHA% = ASC(DCHA$)
    TAG% = SOR% + CHA%: IF TAG% > 255 THEN TAG% = TAG% - 256
    必要時可在此處加上其他演算法變碼
    DSOR$ = CHR$(TAG%)
    PUT #3， ， DSOR$
    NEXT I
    RETURN

分次完成加密常式
RECHA:
    LAST = 0
    JT = INT(L1 / IL) + 1
    FOR J = 1 TO JT
    GET #1， ， RD$(1)
    GET #2， 1， RD$(2)
    FOR I = 1 TO IL
    DSOR$ = MID$(RD$(1)， I， 1)
    DCHA$ = MID$(RD$(2)， I， 1)
    SOR% = ASC(DSOR$)
    CHA% = ASC(DCHA$)
    TAG% = SOR% + CHA%: IF TAG% > 255 THEN TAG% = TAG% - 256
    必要時可在此處加上其他演算法變碼
    LAST = IL * (J - 1) + I
    DSOR$ = CHR$(TAG%)
    PUT #3， LAST， DSOR$
    IF LAST = L1 THEN EXIT FOR
    NEXT I
    LOCATE 15， 30: PRINT "Proceeding   : "; LAST
    NEXT J
    RETURN

解密常式: 輸入相關檔名，打開檔案，視檔案相對長度決定一次讀入字串和陣列大小
370 CLS
    LOCATE 7， 20: PRINT "Input file name for Reduction Process"
    LOCATE 9， 20: INPUT "Charades file: "， SFN1$: IF SFN1$ = "" THEN 370
    LOCATE 11， 20: INPUT "Signature file: "， CFN1$: IF CFN1$ = "" THEN 370
    LOCATE 13， 20: INPUT "Reduction file: "， TFN1$: IF TFN1$ = "" THEN 370
    OPEN SFN1$ FOR BINARY AS #1
    OPEN CFN1$ FOR BINARY AS #2
    OPEN TFN1$ FOR BINARY AS #3
    L1 = LOF(1)
    L2 = LOF(2)
    若檔名輸入有誤，則重新輸入
    IF L1=0 OR L2=0 THEN
       BEEP: LOCATE 20，20
       INPUT ; "File Error! Hit RETURN to continue."， ANS2$
       GOTO 370
    END IF
    IF L1 > L2 THEN IL = L2 ELSE IL = L1
    IF IL > 20480 THEN IL = 20480
    DIM RD$(2)
    RD$(1) = SPACE$(IL)
    RD$(2) = SPACE$(IL)
    IF L1 > IL THEN GOSUB REDUC ELSE GOSUB NONREDUC
    CLOSE : BEEP:
    LOCATE 20， 20: INPUT ; "Hit RETURN to continue."， ANS2$: GOTO 50

一次完成解密常式
NONREDUC:
    GET #1， ， RD$(1)
    GET #2， ， RD$(2)
    FOR I = 1 TO IL
    DSOR$ = MID$(RD$(1)， I， 1)
    DCHA$ = MID$(RD$(2)， I， 1)
    SOR% = ASC(DSOR$)
    CHA% = ASC(DCHA$)
    TAG% = SOR% - CHA%: IF TAG% < 0 THEN TAG% = TAG% + 256
    DSOR$ = CHR$(TAG%)
    PUT #3， ， DSOR$
    NEXT I
    RETURN

分次完成解密常式
REDUC:
    LAST = 0
    JT = INT(L1 / IL) + 1
    FOR J = 1 TO JT
    GET #1， ， RD$(1)
    GET #2， 1， RD$(2)
    FOR I = 1 TO IL
    DSOR$ = MID$(RD$(1)， I， 1)
    DCHA$ = MID$(RD$(2)， I， 1)
    SOR% = ASC(DSOR$)
    CHA% = ASC(DCHA$)
    TAG% = SOR% - CHA%: IF TAG% < 0 THEN TAG% = TAG% + 256
    LAST = IL * (J - 1) + I
    DSOR$ = CHR$(TAG%)
    PUT #3， LAST， DSOR$
    IF LAST = L1 THEN EXIT FOR
    NEXT I
    LOCATE 15， 30: PRINT "Proceeding   : "; LAST
    NEXT J
    RETURN

陸、結語

以簽名檔作為隨機加密的密碼檔，也可用來作為檔案製作認證文件，如果通訊雙方 各用兩個共軛簽名檔重覆加密，更可確認雙方身分。例如收訊者和送訊者先交換簽名檔 送訊者再以自己和對方的簽名檔進行二次加密後，經由網路送給對方，受訊者收到檔案 再用這兩個簽名檔進行二次解密，便可將檔案還原。由於簽名檔可針對不同檔案隨時更 改內容，即使第三者截獲加密檔也很難解密。本文提到的隨機加密程式，經過編譯後處理 20K BYTE 檔案僅需數秒，實用性頗高。

簽名檔可用一般文字檔或二進位檔，最好使用字元比較有變化的檔案作簽名檔。色彩單 調的圖形檔或比較鬆散的檔案(可得高壓縮率的未壓縮檔)，通常不適合作為簽名檔。一 般而言，使用經過壓縮的檔案進行加密或當作簽名檔，都可得到較好的加密效果。