一个很简单的加密算法

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

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

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

const

Key='TESTNET';

Cryptograph='有些事还是不知为妙';

//不能为0.5,相加为1

Percent1=0.21;

Percent2=0.79;

var

s1:string;

function GetKey(aKey:string;aPercent:Double):string;

var

i:integer;

begin

SetLength(Result,Length(aKey));

for i:=1 to Length(aKey) do

begin

Result[i]:=Chr(Round(Ord(aKey[i])*aPercent));

end;

end;

function EnCode(aCryptograph,aKey:string):string;

var

i,keylen,codelen:integer;

begin

keylen:=Length(akey);

codelen:=Length(aCryptograph);

SetLength(Result, Length(aCryptograph));

for i:=1 to codelen do

begin

Result[i]:=Chr(Ord(aCryptograph[i])+Ord(aKey[(i mod KeyLen)+1]));

end;

end;

function DeCode(aCryptograph,aKey:string):string;

var

i,keylen,codelen:integer;

begin

keylen:=Length(akey);

codelen:=Length(aCryptograph);

SetLength(Result, Length(aCryptograph));

for i:=1 to codelen do

begin

Result[i]:=Chr(Ord(aCryptograph[i])-Ord(aKey[(i mod KeyLen)+1]));

end;

end;

begin

{ TODO -oUser -cConsole Main : Insert code here }

WriteLn('要加密的文字');

WriteLn(Cryptograph);

WriteLn;

WriteLn('密码经过第一个网络');

s1:=EnCode(Cryptograph,GetKey(Key,Percent1));

WriteLn(s1);

WriteLn;

WriteLn('密码经过第二个网络');

s1:=EnCode(s1,GetKey(Key,Percent2));

WriteLn(s1);

WriteLn;

WriteLn('还原');

s1:=DeCode(s1,Key);

WriteLn(s1);

WriteLn;

WriteLn('如果要在VCL控件中显示,还要对#0进行处理,'+

'因为VCL中大部分函数以#0作为结束标记');

ReadLn;

end.

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航