Delphi實現(xiàn)對文檔的加密解密

1、COMPUTING SECURITY TECHNIQUES計算機(jī)安全技術(shù)Delphi實現(xiàn)對文檔的加密解密劉兵氣劉勁3(1 空軍航空大學(xué)計算機(jī)教研室.長春門0022； 2東北大學(xué)信息學(xué)院.沈陽110004;3.吉林大學(xué)計算機(jī)科學(xué)技術(shù)學(xué)院.長春130912)摘 要：文檔的加密解密是信息安全的有效方法和手段。通過編程實現(xiàn)加密解密的軟件有助于深入學(xué)習(xí)計算機(jī)信息 安全。本文介紹了利用機(jī)內(nèi)碼變換實現(xiàn)文檔加密解密的方法，并結(jié)合Delphi 70開發(fā)軟件進(jìn)行舉例°關(guān)fl!詞：加密解密；信息安全；程序設(shè)計；DelphiEncryption and Decryption for Documents Ba

2、sed on DelphiHU Bing, UU Jinu(1. Computer Office, Aviation University of Air Force, Changchun 130022;2. College of Information Science and Engineering Northeastern University, Shenyang 110004;3. College of Computer Science and Technology Jilin University, Changchun 130012)Abstract: Encryption and de

3、cryption (or the documents are the effective method of information security. Programming the software with lhe function of encryption and decryption can help to study computer information security in deep The paper presents the method of encryption and decryption for documents based on real number c

4、onverting, delivers the example based on Borland Delphi 7.0.Key words: Encryption and decryption; Information Security; Programming Design; Delphi-77 -COMPUTING SECURITY TECHNIQUES計算機(jī)安全技術(shù)-77 -COMPUTING SECURITY TECHNIQUES計算機(jī)安全技術(shù)1引言今天.正處在計篁機(jī)網(wǎng)絡(luò)互聯(lián)的熱潮中.大鳳信息、資 源的共享.給人們的生活.學(xué)習(xí)帶來了很大的方便.從而安 全問題也就成為焦點話胚.加密解密技

5、術(shù)也就孕育而生。每 一臺計算機(jī)中都有一些涉及到保密性質(zhì)的文檔。因此.很好 保護(hù)個人隱私.加密解密技術(shù)無疑是首選。加密解密技術(shù)是 計算機(jī)領(lǐng)域的一個乘要學(xué)科.所涉及的內(nèi)容十分廣泛。具體 地說，加密解密的實現(xiàn)方法有很多種.但是所有的加密解密 軟件的機(jī)理是相同的.即：讀取數(shù)據(jù)-加密一釋放數(shù)據(jù)；讀 取數(shù)據(jù)-解密T釋放數(shù)據(jù)。所以.問題的關(guān)鍵就是加密” 和解密”算法的實現(xiàn)。文本就利用Delphi開發(fā)平臺.介紹 編寫“文檔加密解密”程序方法。2 設(shè)計思路要實現(xiàn)文檔的加密解密程序.首先要編坊兩個函數(shù)：加 密皈數(shù)和解密甌數(shù)。加密函數(shù)實現(xiàn)對文檔的加密功能；解密 函數(shù)實現(xiàn)對加密文檔的解密功能C就加密解密函數(shù)的原理來

6、說.它們是-個互逆過程.即實現(xiàn)r加密過程其解密過程也 就實現(xiàn)了。計算機(jī)中每一個字母或者漢字都有其對應(yīng)的序號(或者 機(jī)內(nèi)碼).加密解密函數(shù)的編寫就可以從這里入手。用CHAR 函數(shù)逐個獲取文檔中毎個字母或漢字的序號，然后把序號進(jìn) 行增值處埋(即加上一個固定的值.如：加上10).冉找出其 對應(yīng)的符號.從而就達(dá)到了加密的冃的(如圖1所示)。解密 過程就是加密的逆過程，即在讀取加密文檔中的字符后，同 樣用CHAR函數(shù)求得其序號.進(jìn)行滅值處理(即減去一個固 本文收稿日期：2008年11月8日 定值，如：減去10),再返回對應(yīng)的字符，從而解密過程也就 實現(xiàn)了。下面就根據(jù)匕面的思路.具體編寫加密.解密函數(shù)。2

7、加密函數(shù)對于加密函數(shù)(命名為Encode).代碼編寫如下：funedon Encode (s:string) :string;varnt i: integer;聲明兩個整型變豐山用來存放字符串的長度.i用來做計數(shù)器 str: string明一個字符變雖.用來存放讀取的字符 beginn:=length (s);用Length函數(shù)讀取字符串長度，賦值給變量n str:=" 清空變量strfor i:=l to n do 從1到字符串長度值開始循環(huán) beginstr=str+Char (Ord (s i) +20);把每一個字符對應(yīng)的序號加20再返回變換后的值 end;-77 -COMP

8、UTING SECURITY TECHNIQUES計算機(jī)安全技術(shù)-77 -COMPUTING SECURITY TECHNIQUES計算機(jī)安全技術(shù)電腦編程技巧與維護(hù)_79_COMPUTING SECURITY TECHNIQUES計算機(jī)安全技術(shù)_79_COMPUTING SECURITY TECHNIQUES計算機(jī)安全技術(shù)Encode:=str; 返冋加密值 end;2.2解密函數(shù)對于餅密函數(shù)(Decode).其核心代碼與加密函數(shù)相同. 唯冇在對字符的處理上.由加匕20改為減去20.這樣就實現(xiàn) 了加密內(nèi)容的解密a代碼如F: function Decode (s:string) :string;

9、 str:=str4<har (Ord (s i) -20);把毎一個字符對應(yīng)的序號減20再返回變換后的值 end;3 實現(xiàn)(1) 設(shè)計界面在主窗體上添加4個Button控件和一個ListBox控件°把 4個Button控件的Caption控件分別命名為'打開”、加密 為氣'解密為”和退出”，分別用來響應(yīng)對文檔的打開、 加密、解密、退出程斥等操作。(2) 代碼實現(xiàn)對打開”按鈕編寫如下代碼.從而實現(xiàn)對待操作文件 的初始化.代碼如F:VarTextline:string; /廬明一個字符申變fitATextFile:TextFile; 聲明-個 TextFile 變

10、訊beginif OpenDialogl.Execute then 判斯是否觸發(fā) beginListBox 1.Clear; 清空 ListBoxCaption:=z 文件加密解密器 +OpenDialogl.FileName; 窗體顯示打開文件的相關(guān)信息AssignFile (ATextFileOpenDialogl .RleName);文件名調(diào)用Reset (ATextFile)；初始化.打開文件并把文件指針移動到文件首 while not eof (ATextFile) do 非空時循環(huán) be直nReadin (ATextFile,TextLine); 讀取ListBox 1 .Item

11、s.Add (TextLine);在ListBox上逐行顯示end;CloseFile (ATextFile); 關(guān)閉文件end;end;對加密為”按鈕編寫代碼實現(xiàn)對讀取文件的加密處 理，代碼為：varLineNo:integen /瀘明整教變雖存放ListBox控件的行數(shù) TextLine.NewLine:string;/伊明兩個字符串變低.存放字符串ATextFile:TextFile;beginif SaveDialogl Execute thenbeginAssignFile (ATextFile,SaveDialog 1 .FileName);Rewrite (ATextFile);

12、用Rewrite函數(shù)創(chuàng)建并打開新文件For LineNo:=0 to ListBox 1 .Items.Count-1 do 循環(huán) beginTextLine:=ListBox 1 .Items (LineNo;NewL：ne:=Encode (TextLine);調(diào)用加密函數(shù)(Encode)開始加佬Wrileln (ATextFile.NcwLine) ; /円入 end;CloseFile (ATextFile): 關(guān)閉文件end;end;對解密為”按鈕編寫代碼.實現(xiàn)對讀取的文件進(jìn)行解 密處理：beginNewLine:=Dccode (TextLine);調(diào)用解密函數(shù)(Decode)開始

13、解密end;其次.在退出”按鈕的單擊事件中編寫關(guān)閉程序的代 碼:Application.Terminate,終止程序的運行。最后，運行程序 測試功能。(運行效果見圖2)圖2(a)文件加密前內(nèi)容圖2(b)文件加密后內(nèi)容4 總結(jié)冃的.世界各國對計算機(jī)網(wǎng)絡(luò)的安全問題都非常重視. 相關(guān)的安全標(biāo)準(zhǔn)也相繼出臺能夠?qū)π畔⑦M(jìn)行加密、解密的 軟件也越來越多.其實現(xiàn)的方法和原理也各不相同。當(dāng)然. 為了信息的安全，那些更有效、更優(yōu)化.更標(biāo)準(zhǔn)的加密.解 密方法足我們研究.應(yīng)用的重點.從而推進(jìn)信息安全技術(shù)的 不斷發(fā)展。參考文獻(xiàn)1亓傳偉任艷斐.用VB實現(xiàn)文本文件加密解密的方法 卩電腦學(xué)習(xí),2005;：373&(2

14、J蘇京歿.高瑋玲信息加密解密技術(shù)教學(xué)實驗J 高教裝 備，2005； (6) : 54-56.3J周懷芬.曹作良.朱輝.基于JCE的加密解密方案的實現(xiàn) (JJ 2006； 22 (5)： 44-46.4 劉益和.加密解帝過稈的一種新的安全描述U1 2004; 24 (11) : 28-29.5 張一品，李梅蓮.在DELPHI中實現(xiàn)系統(tǒng)安全的新方法(上接第62頁)通過在虛擬機(jī)2上面分別ping彼此和ping百度對比前后 來看看效果。如圖6和圖7所示。圖6 arp攻擊前虛擬機(jī)2 ping百度網(wǎng)站圖7 &rp攻擊2分鐘后虎擬機(jī)2 ping百度效果圖Arp攻擊前可以ping通百度而ARP攻擊2分

15、鐘后，就 不能ping通百度網(wǎng)站門 可見“rp攻擊的威力之大。4.3 DNS欺慕試驗在物理主機(jī)上面運行命令:zxaip -idx 0 -IP 211.68.I5L156 -hackdns l1 (我的母校.華 北煤炭醫(yī)學(xué)院)"，這句話的總思是欺塢虛擬機(jī)1,使其訪問 百度網(wǎng)站時候轉(zhuǎn)向211.6844.11這個IP地址。假如這個IP 地址換上有惡意木馬的網(wǎng)頁的話.就是達(dá)到破壞的目的了° 圖8足虛擬機(jī)1訪問百度時候轉(zhuǎn)向了華北煤境醫(yī)學(xué)院主頁的 效果圖°ia(i)帝 6刈 * Q S 石!：/ 林 f 皿哄 Q:.,血址 Q>'UP r

16、r»L二|*J片別催播1壯漱好尤j 事r毗勺: j夭化:加心I離乩:冷稼京 Q.丸*處堂氣FT -"二甘CAMPUS NewsJ1<1 | ； ； .圖8 DNS欺狼效果4.4 ARP問題的常規(guī)解決方案當(dāng)局域網(wǎng)中的某臺計算機(jī)進(jìn)行ARP攻擊時，會欺騙所有J.許昌學(xué)院學(xué)報，2004； 23:87-90.作者簡介劉兵.男(1980-).碩士研究生.助教.主要研究方向：數(shù) 據(jù)庫和計算機(jī)基礎(chǔ)敎育。劉勁女(1978-).碩士研究生講師主要研究方向：模 式識別和計算機(jī)星礎(chǔ)教仔.的主機(jī)刷新被害主機(jī)的Mac-ip地址表，使其ARP-IP對應(yīng) 表中的真實網(wǎng)關(guān)MAC地址被惡意主機(jī)MAC地址

17、甚至惡意主 機(jī)偽逍的MAC地址所替換。可以通過先找到網(wǎng)關(guān)的MAC地址.然后在局域網(wǎng)中的毎 臺計算機(jī)中綁定網(wǎng)關(guān)的mac地址即可以簡單地解決ARP攻擊 問題口具體操作如下：(1) 取得網(wǎng)關(guān)的MAC地址.假如網(wǎng)關(guān)的MAC地址為： 00：01：6c:36：dl:7f.網(wǎng)關(guān) IP 為：.0(2) 在每臺計算機(jī)中編寫如下內(nèi)容BAT文件：echo offArp aArp s 00-01-6c-36-dl-7f(3) 把這個BAT文件放入每臺計算機(jī)的啟動項中，使其 開機(jī)運行即可。5 結(jié)語虛擬機(jī)技術(shù)解決了計算機(jī)網(wǎng)絡(luò)實驗教學(xué)中的只能老師口 頭教而學(xué)生不能實際動手做的問題利用虛擬機(jī)技術(shù).學(xué)生 能夠在實際動手操作過程中更深入地連接計算機(jī)網(wǎng)絡(luò)軟枝件 知識。本文詳細(xì)介紹了虛擬機(jī)原理和虎擬機(jī)連網(wǎng)的三種網(wǎng)絡(luò)模 式.并簡單介紹虛擬機(jī)在計算機(jī)網(wǎng)絡(luò)實驗中的應(yīng)用。參考文獻(xiàn)1 崔雅娟.基于VMware的路由器虛擬環(huán)境構(gòu)建的實現(xiàn)(J