数字加密程序

对数字加密，仅对数字加密functionEncryptString(Source,Key:string):string;//对字符串加密(Source:源Key:密匙)varKeyLen:integer;KeyPos:integer;Offset:integer;Dest:string;SrcPos:integer;SrcAsc:integer;Range:integer;beginKeyLen:=Length(Key);ifKeyLen=0thenKey:='delphi';KeyPos:=0;Range:=25