procedure TForm1.sButton5Click(Sender: TObject);
var
a:string;
begin
AntiScanCE_Start;
 try
 a := IdHTTP1.Get('http://r97804yj.beget.tech/BazaKeyLoader.bd');
  if Pos(GetSerialNum,a) = 0 then
  begin
   MessageBox(Handle, 'Ошибка, у вас нет лицензии на данный чит!', 'Error',
     MB_OK + MB_ICONSTOP);
  end
  else
  if sButton5.Enabled = True then
  begin
  Timer5.Enabled := true;
   if AOBScan(Cheat[5], 0, $5FFFFFFF, '02 16 7D 78 12 00 04 02 22 00 00 00 00 7D 77 12 00 04 02 7B 71 12 00 04 6F 14 00 00 0A 16 6F 3F 02 00 0A 02 7B 73 12 00 04 6F 14 00 00 0A 16 6F 3F 02 00 0A 03 39 11 00 00 00 02 7B 72 12 00 04 6F 14 00 00 0A 16 6F 3F 02 00 0A 2A', True, True,  0) then
    begin
      WriteB(Cheat[5],'02 16 7D 78 12 00 04 02 22 00 00 00 00 7D 77 12 00 04 02 7B 71 12 00 04 6F 14 00 00 0A 16 6F 3F 02 00 0A 02 7B 73 12 00 04 6F 14 00 00 0A 17 6F 3F 02 00 0A 03 39 11 00 00 00 02 7B 72 12 00 04 6F 14 00 00 0A 16 6F 3F 02 00 0A 2A', 0);
      PlaySound('TICK2',0,SND_ResOURCE or SND_ASYNC);
      sProgressBar1.Position := 0;
      Timer5.enabled := False;
      sButton5.Enabled := False;
    end
   else
   begin
    MessageBox(Handle, 'Не удалось активировать!', 'Error', MB_OK +
      MB_ICONSTOP);
      sprogressbar1.Position := 0;
      Timer5.enabled := False;
   end;
  end
  else
  begin
  MessageBeep(MB_OK);
  end;
 except
 AntiScanCE_Start
end;
end;