дизассемблирование

//Xor
function xXor(Buffer :String; Key :Integer) :String;
var
  i,c,x  :Integer;
begin
  for i := 1 to Length(Buffer) do
  begin
    c := Integer(Buffer[i]);
    x := c xor Key;
    Result := Result + Char(x);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
begin
 s :=  'Íåçàðåãåñòðèðîâàííàÿ âåðñèÿ';
Edit1.text:=(xXor(s,1));
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
 s:string;
begin
 s :='Ìäæáñäâäðóñéñïãáììáþ!ãäñðéþ';
 Edit1.text:=(xXor(s,1));
 end;

  // проверяет находится ли приложение под отлажчиком
function DebuggerPresent : boolean;
type
  TDebugProc = function : boolean;
    stdcall;
var
  Kernel32: HMODULE;
  DebugProc: TDebugProc;
begin { DebuggerPresent }
  Result := False;
  Kernel32 := GetModuleHandle('kernel32');
  if Kernel32<>0 then
  begin
    @DebugProc := GetProcAddress(Kernel32, 'IsDebuggerPresent');
    if Assigned(DebugProc) then
      Result := DebugProc
  end; { Kernel32<>0 }
end; { DebuggerPresent }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  if DebuggerPresent then Application.Terminate;
end;

// Поиск отладчика
//Как и любая программа, отладчик имеет свой процесс, а значит может быть обнаружен через список процессов
procedure FindDebugProcess;
var
 Snap: dword;
 Process: TPROCESSENTRY32;
 name : string;
begin
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if snap<>INVALID_HANDLE_VALUE then
    begin
    Process.dwSize:=SizeOf(TPROCESSENTRY32);
    repeat
          // OLLYDBG.EXE - это название софта для дебага
          // перечисляем все известные программы
          // что зашишить нас от них
          name := Process.szExeFile;
          if lstrcmp(PChar(name),'OLLYDBG.EXE')=0 then
              begin
              MessageBox(0,'OllyDBG work!','DebuggerChecker',0);
              halt;
              end;
    until not Process32Next(Snap, Process);
    end;
  MessageBox(0,'OllyDBG not work!','DebuggerChecker',0);
end.