delphi加密算法

function EncryptKey(sUser,sPasswd:string):string;stdcall;
var __i,__k,__a : Integer;
    __s : string;
begin
  __k := ;
  for __i :=  to length(sUser) do begin
    __a := Ord(sUser[__i]) mod  + ;
    __k := (__k * __a) mod  + ;
  end;
  __k := (__k mod ) + ;
  for __i :=  to length(sPasswd) do begin
    __a := Ord(sPasswd[__i]) mod  + ;
    __k := (__k mod  + ) * __a;
  end;
  __s := IntToStr( + __k);
  Result := copy(__s,length(__s)-,);
end;