delphi加密算法

最新推荐文章于 2024-07-28 21:24:05 发布

weixin_33830216

最新推荐文章于 2024-07-28 21:24:05 发布

阅读量233

点赞数

function EncryptKey(sUser,sPasswd:string):string;stdcall;
var __i,__k,__a : Integer;
    __s : string;
begin
  __k := 123456789;
  for __i := 1 to length(sUser) do begin
    __a := Ord(sUser[__i]) mod 13 + 1;
    __k := (__k * __a) mod 9999999 + 1;
  end;
  __k := (__k mod 98989898) + 99;
  for __i := 1 to length(sPasswd) do begin
    __a := Ord(sPasswd[__i]) mod 17 + 1;
    __k := (__k mod 9876543 + 1) * __a;
  end;
  __s := IntToStr(100000000 + __k);
  Result := copy(__s,length(__s)-7,8);
end;