¸ÄдÁËÒ»¸ö³£ÓõÄDELPHIµÄ¼Ó½âÃܺ¯Êý

DELPHI
//////////////////////////////////
Function   EncrypKey   (Src:String;   Key:String):string;
  var  
  idx   :integer;  
  KeyLen   :Integer;  
  KeyPos   :Integer;  
  offset   :Integer;  
  dest   :string;  
  SrcPos   :Integer;  
  SrcAsc   :Integer;  
  TmpSrcAsc   :Integer;  
  Range   :Integer;  
   
  begin  
  KeyLen:=Length(Key);  
  if   KeyLen   =   0   then   key:='Think   Space';
  KeyPos:=0;  
  SrcPos:=0;  
  SrcAsc:=0;  
  Range:=256;  
   
  Randomize;  
  offset:=Random(Range);  
  dest:=format('%1.2x',[offset]);  
  for   SrcPos   :=   1   to   Length(Src)   do  
  begin  
  SrcAsc:=(Ord(Src[SrcPos])   +   offset)   MOD   255;  
  if   KeyPos   <   KeyLen   then   KeyPos:=   KeyPos   +   1   else   KeyPos:=1;  
  SrcAsc:=   SrcAsc   xor   Ord(Key[KeyPos]);  
  dest:=dest   +   format('%1.2x',[SrcAsc]);  
  offset:=SrcAsc;  
  end;
  Result:=Dest;  
  end;  
   
  //½âÃܺ¯Êý  
  Function   UncrypKey   (Src:String;   Key:String):string