文件加密/解密(多种实现)

powerwind

加密/解密是一门技术很高的学科.我不懂,所以这样说,实际上也是吧?我没学过这方面的知识,但有兴趣,所以先以最简单的开始.
用位运算的异或来对文件加密,再异或一次就还原.
好了,废话少说,下面是一个用汇编写的简单文件加密程序.

1. 
   
2. ;******************************************
   
3. title 文件加密/解密程序
   
4. ;******************************************
   
5. 
   
6. data segment
   
7. seed                db ?
   
8. handle                dw ?
   
9. bufferSize                        db 13
   
10. nameLen                db ?
    
11. fileName                        db 14 dup(0)
    
12. tips                db 'Please input the name of the encode/decode file!',0ah,0dh,'$'
    
13. seedMSG                db 'Please input the number for encode/decode(such as 123)(<=255)',0ah,0dh,'$'
    
14. errorMSG                        db 0ah,0dh,'error','$'
    
15. buf                db 256 dup(?)
    
16. len                dw ?
    
17. fileLen                dw 0
    
18. data ends
    
19. 
    
20. code segment
    
21. assume cs:code,ds:data
    
22. chooseFile proc
    
23. start:        mov ax,data
    
24.         mov ds,ax
    
25.        
    
26.         mov ah,09h
    
27.         lea dx,tips
    
28.         int 21h
    
29. 
    
30.         mov ah,0ah
    
31.         lea dx,bufferSize
    
32.         int 21h
    
33.         mov bh,0
    
34.         mov bl,nameLen
    
35.         mov fileName[bx],0
    
36. 
    
37.         lea dx,fileName
    
38.         mov ax,3d02h        ;AL=0为读文件,AH=3DH是功能号
    
39.         int 21h
    
40.         jc  error        ;若打开出错，转到去打开默认文件
    
41.         mov Handle,ax
    
42.                         ;输入加密密钥
    
43.         mov ah,09h
    
44.         lea dx,seedMSG
    
45.         int 21h
    
46.         mov ah,0ah
    
47.         lea dx,bufferSize        ;为节省,用fileName
    
48.         int 21h
    
49.         cmp nameLen,4
    
50.         jnb error                      ;大于四则为错误输入
    
51.         mov bh,0
    
52.         mov bl,nameLen
    
53.         mov fileName[bx],0
    
54.         mov fileName[bx+1],10
    
55.         mov fileName[bx+2],20  ;这三个设置使无输入时也有0,10,20值
    
56.         lea di,fileName
    
57. 
    
58.         sub [di],30h                ;下面是转换数字,但可能溢出,且不管了.
    
59.         mov ah,100
    
60.         mov al,[di]
    
61.         mul ah
    
62.         mov bx,ax
    
63.         sub [di],30h
    
64.         mov ah,10
    
65.         mov al,[di+1]
    
66.         mul ah
    
67.         add bx,ax
    
68.         add al,[di+2]
    
69.         sub al,30h
    
70.         mov seed,al
    
71.        
    
72. read:        mov bx,Handle
    
73.         lea dx,buf
    
74.         mov cx,255        ;指定读文件字节数
    
75.         mov ah,3fh
    
76.         int 21h
    
77.         jc  error
    
78.         cmp ax,0
    
79.         jz  over
    
80.         mov len,ax        ;ax=实际读到的字符数
    
81. 
    
82.         mov cx,len        ;加密
    
83.         lea di,buf
    
84.         mov al,seed
    
85. encode:        xor [di],al
    
86.         inc di
    
87.         loop encode
    
88.                         ;CX=0,移动文件指针
    
89.         mov dx,fileLen            ;cx:dx为文件指针移动长度
    
90.         mov ax,4200h
    
91.         int 21h
    
92.         mov cx,len                        ;加密后写入文件
    
93.         mov bx,handle
    
94.         lea dx,buf
    
95.         mov ah,40h               ;写文件
    
96.         int 21h
    
97.         jc error
    
98.         mov ax,len
    
99.         add fileLen,ax
    
100.         jmp read
     
101. error:
     
102.         lea dx,errorMSG
     
103.         mov ah,09h
     
104.         int 21h
     
105. over:        mov ah,4ch
     
106.         int 21h
     
107. chooseFile endp
     
108.                 code ends
     
109.                 end start
     

复制代码

以上程序只对文本文件的加密/解密测试通过.汇编用DOS中断调用能能不能对二进制文件操作呢?好像不能.更高级的方法应该可以实现(可我不会).如果用C,C++或JAVA就可以比较容易实现对二进制文件进行加密/解密了.
(待续...)

powerwind

用C语言实现如下:

1. 
   
2. /*encrypt.c file */
   
3. #include<stdio.h>
   
4. #include<stdlib.h>
   
5. #define BUFFER 2048
   
6. 
   
7. int main(int argc,char* argv[])
   
8. {   
   
9.     FILE *src,*dest;
   
10.     unsigned char buffer[BUFFER];
    
11.    char seeds[100];
    
12.     long size; int i,len,temp;
    
13.     if(argc!=3)
    
14.                 {
    
15.                printf("usage:Encrypt source destination\\n");
    
16.                exit(1);
    
17.         }
    
18.                 if ((src=fopen(argv[1],"rb+"))==NULL)
    
19.                         {
    
20.                            printf("Cannot open the file: %s",argv[1]);
    
21.                            exit(1);
    
22.                         }
    
23.                 if ((dest=fopen(argv[2],"wb+"))==NULL)
    
24.                         {
    
25.                            printf("Create file error");
    
26.                            exit(1);
    
27.                         }
    
28.     printf("请输入密钥\\n");
    
29.    gets(seeds);
    
30.    len=strlen(seeds);     
    
31.     do{
    
32.         size = fread(buffer,1,BUFFER,src);
    
33.         for (i=0;i<size;i++)
    
34.         {
    
35.             buffer[i]=buffer[i]^seeds[i%len];
    
36.         }
    
37.         fwrite(buffer,1,size,dest);
    
38.         }while( size==BUFFER );
    
39.         fclose(src);
    
40.         fclose(dest);
    
41.         printf("ok\\n");
    
42.         return 0;
    
43. }
    

复制代码

这个就可以对二进制文件进行操作了.而密码长度也比用汇编的好些.

[ 本帖最后由 powerwind 于 2006-1-10 01:20 编辑 ]

wool王

支持原创。

我对加密/解密也了解甚少，尽管这个学期有一科相关学科，但由于自己态度不端正没学好。至今我在实际应用中涉及的所谓加密就仅仅局限于MD5。。。

我先仔细研究下先。。。楼下继续讨论。。。

powerwind

用VB.NET来实现也差不多.
当然,这个程序少不了界面,下面只给出主要代码.

1. 
   
2.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   
3.         If OpenFile.ShowDialog = DialogResult.OK Then
   
4.             TextBox1.Text = OpenFile.FileName
   
5.         End If
   
6.     End Sub
   
7. 
   
8.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
   
9.         If SaveFile.ShowDialog = DialogResult.OK Then
   
10.             TextBox2.Text = SaveFile.FileName
    
11.         End If
    
12.     End Sub
    
13. 
    
14.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
15.         Me.AcceptButton = Nothing
    
16.         src = TextBox1.Text
    
17.         dest = TextBox2.Text
    
18.         If TextBox3.Text.Length = 0 Then
    
19.             MsgBox("请输入密钥!", MsgBoxStyle.OKOnly)
    
20.             Exit Sub
    
21.         ElseIf TextBox1.Text.Length = 0 Or TextBox2.Text.Length = 0 Then
    
22.             MsgBox("请确定已输入源文件与目标文件路径", MsgBoxStyle.Critical)
    
23.             Exit Sub
    
24.         ElseIf Not File.Exists(src) Then
    
25.             MsgBox("源文件不存在!", MsgBoxStyle.Critical)
    
26.             Exit Sub
    
27.         ElseIf Not TextBox3.Text.Equals(TextBox4.Text) Then
    
28.             MsgBox("你输入密钥不一致!", MsgBoxStyle.OKOnly)
    
29.             Exit Sub
    
30.         End If
    
31.         Try
    
32.             Dim temp As String
    
33.             temp = TextBox3.Text
    
34.             seedsLen = Len(temp)
    
35.             For i = 0 To seedsLen - 1 Step 1
    
36.                 seeds(i) = Asc(temp.Substring(i, 1))
    
37.             Next i
    
38.             Call encrypt()
    
39.         Catch ex As Exception
    
40.             MsgBox(ex.Message & "(不支持中文字符)", MsgBoxStyle.OKOnly)
    
41.         End Try
    
42.     End Sub
    
43. 
    
44. #Region "加密/解密子过程encrypt"
    
45.     Private Sub encrypt()
    
46.         Dim count As Int32
    
47.         Dim buf(2048) As Byte
    
48.         Try
    
49.             Dim r As BinaryReader = New BinaryReader(New FileStream(src, FileMode.Open, FileAccess.Read))
    
50.             Dim w As BinaryWriter = New BinaryWriter(New FileStream(dest, FileMode.Create, FileAccess.Write))
    
51. 
    
52.             Do
    
53.                 count = r.Read(buf, 0, 2048)
    
54.                 For i = 0 To count Step 1
    
55.                     buf(i) = buf(i) Xor seeds(i Mod seedsLen)
    
56.                 Next i
    
57.                 w.Write(buf, 0, count)
    
58.             Loop Until count = 0
    
59. 
    
60.             r.Close()
    
61.             w.Close()
    
62.             MsgBox("成功保存了一个文件!", MsgBoxStyle.OKOnly)
    
63.         Catch ex As Exception
    
64.             MsgBox(ex.Message, MsgBoxStyle.Critical)
    
65.         End Try
    
66.     End Sub
    
67. #End Region
    
68. 
    

复制代码

盼望

呵呵
可以改成其他语言版本

sasadong

呵呵
用rsa加密小文件还是挺好玩的。很多软件的注册原理就是如此。楼主有空可以试试，更有挑战性的莫过于其大数运算了，够你使用c＋＋很多技巧了，如果不会就去网上down个大数运算库。

简单的注册原理就是得到机器码（如cpu序号，硬盘序列号等等），发送给你你用私钥加密后发送给软件使用者。
软件使用者输入密文后，软件使用公钥解密然后判断机器码是否一致，然后开启注册后功能。（此法只防君子不防小人）。

powerwind

java的代码

1. 
   
2. /*加密/解密程序//*/
   
3. import java.io.*;
   
4. public class Encrypt
   
5. {
   
6.         public static void main(String[]args)
   
7.         {
   
8.                 byte[]seeds=new byte[100];
   
9.                 byte[]buf=new byte[1024];
   
10.                 int seedsLen=0;
    
11.                 InputStreamReader in;
    
12.                 FileInputStream fis;
    
13.                 FileOutputStream fos;
    
14.                 if(args.length!=2){
    
15.                         System.out.println("usage:java Encrypt source dest");
    
16.                         System.exit(1);
    
17.                 }
    
18. 
    
19.                 System.out.println("请输入密钥");
    
20.                 try{
    
21.                 seedsLen=System.in.read(seeds);
    
22.                 seedsLen-=2;          //去掉回车符
    
23.                 }catch(Exception ex){ex.printStackTrace();}
    
24.                 try{
    
25.                         fis=new FileInputStream(new File(args[0]));
    
26.                         fos=new FileOutputStream(new File(args[1]));
    
27.                         int len=0;
    
28.                         do{
    
29.                                         len=fis.read(buf);
    
30.                                 for(int i=0;i<len;i++){
    
31.                                                   //JAVA只支持对整数进行异或运算,只好这样转换来转换去
    
32.                                 buf[i]=(byte)(seeds[i%seedsLen]^buf[i]);
    
33.                                         }
    
34.                                 fos.write(buf,0,len);
    
35.                         }while(len==1024);
    
36.                         fis.close();
    
37.                         fos.close();
    
38.                 }catch(Exception ex){ex.printStackTrace();}
    
39. 
    
40.         }
    
41. 
    
42. }//*/
    
43. 
    

复制代码

[ 本帖最后由 powerwind 于 2006-1-11 23:33 编辑 ]