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;