科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件delphi三十六之加密篇

delphi三十六之加密篇

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

最简单最有效实现一个程序一次开机只运行一个实例,用于限制版或注册版......

作者:陈立平 来源:yesky 2007年11月1日

关键字:

  • 评论
  • 分享微博
  • 分享邮件
I := Pos(" ", Result);
   While I $#@60;$#@62; 0 do

  begin
   Result[I] := "0";
   I := Pos(" ", Result);

  end;

 end;

function HexToStr(AStr: string): string;

  var

   I : Integer;
   CharValue: Word;

  begin
   Result := "";
   For I := 1 to Trunc(Length(Astr)/2) do

  begin
   Result := Result + " ";
   CharValue := TransChar(AStr[2*I-1])*16 + TransChar(AStr[2*I]);
   Result[I] := Char(CharValue);
  end;

 end;

function Encrypt(const S: String; Key: Word): String;

 var
  I : Integer;

 begin
  Result := S;
  for I := 1 to Length(S) do
  begin
   Result[I] := char(byte(S[I]) xor (Key shr 8));
   Key := (byte(Result[I]) + Key) * C1 + C2;
   if Result[I] = Chr(0) then
   Result[I] := S[I];
 end;
  Result := StrToHex(Result);

 end;
    • 评论
    • 分享微博
    • 分享邮件
    闂備緡鍙庨崰鏇炩枎閵忋垺濯奸柕蹇嬪€栭~锟�

    婵犵鈧啿鈧綊鎮樻径鎰畺闁靛ň鏅滄慨婊堟偨椤栨稓鎽冮柟鐑╂櫊瀹曟岸宕堕埡鍌滄殸闂佽鍨伴崢鏍姳閿涘嫭鍠嗘い銈呭姬婵☆偅婢樺Λ妤呮偂濞嗘挸瀚夐柍褜鍓熷顒侊紣娓氣偓閻涙捇鏌涘┑鍛樂缂佹鐭傞獮搴ㄥ焵椤掑嫬瀚夋い鏍ㄧ懁缁诲棝鏌熼褍鐏茬紒杈ㄧ箞閺屽洭鏁愰崟顓犳澖闁荤姳闄嶉崹钘壩i崟顖涘殜闁硅泛顫曢埀顒€锕︾槐鏃堝箣閻愬弬妤呮煛閸偄鐏﹂柛瀣墬缁傛帞鎹勯搹瑙勵啈闂佸搫瀚烽崹閬嶅磻瀹ュ鍎嶉柛鏇ㄥ墯娴犳ê霉閿濆棗鈻曢柍褜鍓氶弻銊ф閻愬鈻曢悗锝傛櫇椤忛亶鏌曢崱顓熷

    重磅专题
    往期文章
    最新文章