Delphi實(shí)現(xiàn)對(duì)文檔的加密解密

1、COMPUTING SECURITY TECHNIQUES計(jì)算機(jī)安全技術(shù)Delphi實(shí)現(xiàn)對(duì)文檔的加密解密劉兵氣劉勁3(1 空軍航空大學(xué)計(jì)算機(jī)教研室.長(zhǎng)春門(mén)0022； 2東北大學(xué)信息學(xué)院.沈陽(yáng)110004;3.吉林大學(xué)計(jì)算機(jī)科學(xué)技術(shù)學(xué)院.長(zhǎng)春130912)摘 要：文檔的加密解密是信息安全的有效方法和手段。通過(guò)編程實(shí)現(xiàn)加密解密的軟件有助于深入學(xué)習(xí)計(jì)算機(jī)信息 安全。本文介紹了利用機(jī)內(nèi)碼變換實(shí)現(xiàn)文檔加密解密的方法，并結(jié)合Delphi 70開(kāi)發(fā)軟件進(jìn)行舉例°關(guān)fl!詞：加密解密；信息安全；程序設(shè)計(jì)；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ì)算機(jī)安全技術(shù)-77 -COMPUTING SECURITY TECHNIQUES計(jì)算機(jī)安全技術(shù)1引言今天.正處在計(jì)篁機(jī)網(wǎng)絡(luò)互聯(lián)的熱潮中.大鳳信息、資 源的共享.給人們的生活.學(xué)習(xí)帶來(lái)了很大的方便.從而安 全問(wèn)題也就成為焦點(diǎn)話胚.加密解密技

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

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

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

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

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

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

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

12、用Rewrite函數(shù)創(chuàng)建并打開(kāi)新文件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)開(kāi)始加佬Wrileln (ATextFile.NcwLine) ; /円入 end;CloseFile (ATextFile): 關(guān)閉文件end;end;對(duì)解密為”按鈕編寫(xiě)代碼.實(shí)現(xiàn)對(duì)讀取的文件進(jìn)行解 密處理：beginNewLine:=Dccode (TextLine);調(diào)用解密函數(shù)(Decode)開(kāi)始

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

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

15、鐘后，就 不能ping通百度網(wǎng)站門(mén) 可見(jiàn)“rp攻擊的威力之大。4.3 DNS欺慕試驗(yàn)在物理主機(jī)上面運(yùn)行命令:zxaip -idx 0 -IP 211.68.I5L156 -hackdns l1 (我的母校.華 北煤炭醫(yī)學(xué)院)"，這句話的總思是欺塢虛擬機(jī)1,使其訪問(wèn) 百度網(wǎng)站時(shí)候轉(zhuǎn)向211.6844.11這個(gè)IP地址。假如這個(gè)IP 地址換上有惡意木馬的網(wǎng)頁(yè)的話.就是達(dá)到破壞的目的了° 圖8足虛擬機(jī)1訪問(wèn)百度時(shí)候轉(zhuǎn)向了華北煤境醫(yī)學(xué)院主頁(yè)的 效果圖°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問(wèn)題的常規(guī)解決方案當(dāng)局域網(wǎng)中的某臺(tái)計(jì)算機(jī)進(jìn)行ARP攻擊時(shí)，會(huì)欺騙所有J.許昌學(xué)院學(xué)報(bào)，2004； 23:87-90.作者簡(jiǎn)介劉兵.男(1980-).碩士研究生.助教.主要研究方向：數(shù) 據(jù)庫(kù)和計(jì)算機(jī)基礎(chǔ)敎育。劉勁女(1978-).碩士研究生講師主要研究方向：模 式識(shí)別和計(jì)算機(jī)星礎(chǔ)教仔.的主機(jī)刷新被害主機(jī)的Mac-ip地址表，使其ARP-IP對(duì)應(yīng) 表中的真實(shí)網(wǎng)關(guān)MAC地址被惡意主機(jī)MAC地址

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