各种加密方法演示(Delphi)(1)

zhangke

各种加密方法演示(Delphi)(1)

1.xor加密法
通常用来简单地加密字符串，当然也可以用来加密文件，但是文件太大，而程序又是单线程的话，需要花很长的时间，一般不采用来加密文件。
加密原理：一个数字连续与一个相同的数字进行两次xor操作以后，得到的仍然是本身，所以第一次xor就可以看做是加密，而第二次则可看做是解密。
代码演示：

1. //加密字符串
   
2. 
   
3. procedure stringenc(var s:string);
   
4. var
   
5.     i:integer;
   
6. begin
   
7.     for i := 1 to length(s) do
   
8.         s[i] := chr(ord(s[i]) xor 123);//123是随意设置的，当然可以设置为任何值
   
9. end;
   
10. 
    
11. //加密文件
    
12. 
    
13. procedure fileenc(filename:string);
    
14. var
    
15.     SF,DF:File of char;//SF和DF分别是Source File和Destination File的缩写
    
16.     tempchar:char;
    
17. begin
    
18.     try
    
19.         AssignFile(SF,filename);
    
20.         reset(SF);
    
21.         AssignFile(DF,ChangeFileExt(ExtractFileName(filename),'.zk'));//zk是我名字的缩写，呵呵！
    
22.         Rewrite(DF);
    
23.         while not Eof(SF) do
    
24.             begin
    
25.                 read(SF,tempchar);
    
26.                 try
    
27.                     tempchar := chr(ord(tempchar) xor 123);
    
28.                 except
    
29.                     CloseFile(DF);
    
30.                     CloseFile(SF);
    
31.                     DeleteFile(ChangeFileExt(ExtractFileName(filename),'.zk'));
    
32.                 end;
    
33.                 write(DF,tempchar);
    
34.             end;
    
35.         CloseFile(DF);
    
36.         CloseFile(SF);
    
37.     except
    
38.         CloseFile(DF);
    
39.         CloseFile(SF);
    
40.         ShowMessage('An unknown error has occured,the application must terminate now!');
    
41.         Application.Terminate;
    
42.     end;
    
43.     DeleteFile(filename);
    
44.     RenameFile(ChangeFileExt(ExtractFileName(filename),'.zk'),filename);
    
45.     ShowMessageBox('Encryption or Decryption succeeded!');//本过程既可用于加密也用于解密，所以提示加密或者解密成功
    
46. end;  

复制代码

      
未完待续......

zhangke

哎....怎么又斜了....


禁用 Discuz!代码  添加到引用中－－－wangyuankai

点击”插入代码“图标即可-----飘云