delphi三十六之加密篇

下载本文示例代码
　　1．最简单最有效实现一个程序一次开机只运行一个实例，用于限制版或注册版；稍加修改可知是否已有本程序的实例在运行： 　//在窗体的OnShow事件中书写如下代码：　　Const　　　AtomStr = "OnlyOnce";　　　ReMind = "此程序版本一次开机只能运行一次,请注册后再使用！";　　var　　　atom : integer;　　begin　　　if GlobalFindAtom(AtomStr) = 0 then　　　　atom := GlobalAddAtom(AtomStr)　　　else　　begin　　　Application.MessageBox(ReMind, "提示", Mb_Ok Mb_IconInformation);　　　Close;　　end;　end;　　2. 一个字符串加密解密程序（此程序在程序员98和2000光盘中多次出现，但都有错误，以下为修改稿）function TransChar(AChar: Char): Integer;　　begin　　if AChar in ["0".."9"] then　　Result := Ord(AChar) - Ord("0")　　else　　　Result := 10 Ord(AChar) - Ord("A");　　end;function StrToHex(AStr: string): string;　　var　　　I : Integer;　　　Tmp: string;　　begin　　　Result := "";　　　For I := 1 to Length(AStr) do　　begin　　　Result := Result Format("%2x", [Byte(AStr[I])]);　　end;共3页。 1 2 3 8 : 　　1．最简单最有效实现一个程序一次开机只运行一个实例，用于限制版或注册版；稍加修改可知是否已有本程序的实例在运行： 　//在窗体的OnShow事件中书写如下代码：　　Const　　　AtomStr = "OnlyOnce";　　　ReMind = "此程序版本一次开机只能运行一次,请注册后再使用！";　　var　　　atom : integer;　　begin　　　if GlobalFindAtom(AtomStr) = 0 then　　　　atom := GlobalAddAtom(AtomStr)　　　else　　begin　　　Application.MessageBox(ReMind, "提示", Mb_Ok Mb_IconInformation);　　　Close;　　end;　end;　　2. 一个字符串加密解密程序（此程序在程序员98和2000光盘中多次出现，但都有错误，以下为修改稿）function TransChar(AChar: Char): Integer;　　begin　　if AChar in ["0".."9"] then　　Result := Ord(AChar) - Ord("0")　　else　　　Result := 10 Ord(AChar) - Ord("A");　　end;function StrToHex(AStr: string): string;　　var　　　I : Integer;　　　Tmp: string;　　begin　　　Result := "";　　　For I := 1 to Length(AStr) do　　begin　　　Result := Result Format("%2x", [Byte(AStr[I])]);　　end;共3页。 1 2 3 8 : 下载本文示例代码


delphi三十六之加密篇delphi三十六之加密篇delphi三十六之加密篇delphi三十六之加密篇delphi三十六之加密篇delphi三十六之加密篇delphi三十六之加密篇delphi三十六之加密篇delphi三十六之加密篇delphi三十六之加密篇delphi三十六之加密篇delphi三十六之加密篇delphi三十六之加密篇delphi三十六之加密篇delphi三十六之加密篇