经典delphi加密算法

一个网上广为流传的Delphi加密算法，functionEncryptString(Source,Key:string):string;varKeyLen:integer;KeyPos:integer;Offset:integer;Dest:string;SrcPos:integer;SrcAsc:integer;Range:integer;beginKeyLen:=Length(Key);ifKeyLen=0thenKey:='delphi';KeyPos:=0;Range:=256;randomize;