一个很简单的加密算法

Moodsky

当时见到一张帖子即兴写了这段代码,还没认真调试过

1. program Project1;
   
2. 
   
3. {$APPTYPE CONSOLE}
   
4. 
   
5. uses
   
6.   SysUtils;
   
7. 
   
8. const
   
9.   Key='TESTNET';
   
10.   Cryptograph='有些事还是不知为妙';
    
11. 
    
12. //不能为0.5,相加为1
    
13.   Percent1=0.21;
    
14.   Percent2=0.79;
    
15. 
    
16. var
    
17.   s1:string;
    
18. function GetKey(aKey:string;aPercent:Double):string;
    
19. var
    
20.   i:integer;
    
21. begin
    
22.   SetLength(Result,Length(aKey));
    
23.   for i:=1 to Length(aKey) do
    
24.   begin
    
25.     Result[i]:=Chr(Round(Ord(aKey[i])*aPercent));
    
26.   end;
    
27. end;
    
28. 
    
29. function EnCode(aCryptograph,aKey:string):string;
    
30. var
    
31.   i,keylen,codelen:integer;
    
32. begin
    
33.   keylen:=Length(akey);
    
34.   codelen:=Length(aCryptograph);
    
35.   SetLength(Result, Length(aCryptograph));
    
36.   for i:=1 to codelen do
    
37.   begin
    
38.     Result[i]:=Chr(Ord(aCryptograph[i])+Ord(aKey[(i mod KeyLen)+1]));
    
39.   end;
    
40. end;
    
41. 
    
42. function DeCode(aCryptograph,aKey:string):string;
    
43. var
    
44.   i,keylen,codelen:integer;
    
45. begin
    
46.   keylen:=Length(akey);
    
47.   codelen:=Length(aCryptograph);
    
48.   SetLength(Result, Length(aCryptograph));
    
49.   for i:=1 to codelen do
    
50.   begin
    
51.     Result[i]:=Chr(Ord(aCryptograph[i])-Ord(aKey[(i mod KeyLen)+1]));
    
52.   end;
    
53. end;
    
54. 
    
55. begin
    
56.   { TODO -oUser -cConsole Main : Insert code here }
    
57. 
    
58.   WriteLn('要加密的文字');
    
59.   WriteLn(Cryptograph);
    
60.   WriteLn;
    
61. 
    
62.   WriteLn('密码经过第一个网络');
    
63.   s1:=EnCode(Cryptograph,GetKey(Key,Percent1));
    
64.   WriteLn(s1);
    
65.   WriteLn;
    
66. 
    
67.   WriteLn('密码经过第二个网络');
    
68.   s1:=EnCode(s1,GetKey(Key,Percent2));
    
69.   WriteLn(s1);
    
70.   WriteLn;
    
71. 
    
72.   WriteLn('还原');
    
73.   s1:=DeCode(s1,Key);
    
74.   WriteLn(s1);
    
75.   WriteLn;
    
76.   WriteLn('如果要在VCL控件中显示，还要对#0进行处理,'+
    
77.            '因为VCL中大部分函数以#0作为结束标记');
    
78.   ReadLn;
    
79. end.

复制代码

VC8

看不太明白/:?

yousee

看不懂，哈哈！！！

wyh1983

DELPHI

xuanyuanhanbing

原帖由 yousee 于 2007-2-25 15:43 发表
看不懂，哈哈！！！

、、

;P ;P 是一点都看不懂！1

黑夜彩虹

晚点用这个写个CM出来给大家玩玩~~;P

浮云思音

这段时间在学D，先收藏了