Oto prosty sposób na używanie wątków w Delphi. Wystarczy odpowiednio używać Synchronize 🙂 Treść funkcji uses System.Classes, System.SysUtils, Vcl.Forms; procedure Wait(Proc: TProc); var Thread: TThread; begin Thread := TThread.CreateAnonymousThread(procedure() begin Proc; end); Thread.FreeOnTerminate := True; Thread.Start; while not Thread.Finished do…
Oto sposób na automatyczne dodawanie lub usuwanie www podczas odwiedzania strony. Wystarczy wpisać poniższy kod do pliku .htaccess. # Dodawanie www RewriteCond %{HTTP_HOST} ^(?!www\.)(.+) [NC] RewriteRule ^(.*) http://www.%1/$1 [R=301,NE,L] # Usuwanie www RewriteCond %{HTTP_HOST} ^www\.(.+) [NC] RewriteRule ^(.*) http://%1/$1 [R=301,NE,L]
Podczas masowego usuwania plików, gdy wystąpi błąd „/usr/bin/rm: arg list too long” Pliki można usunąć za pomocą poniższego polecenia. find . | xargs -n 1000 rm -f
Pobiera lokalizację za pomocą funkcji geolocation, a jeśli użytkownik nie udzieli odpowiednich uprawnień lub przeglądarka nie obsługuje tej funkcji, określa lokalizację na podstawie adresu IP, korzystając z API udostępnianego przez Naver. Przed użyciem uzyskaj klucz API Naver pod poniższym adresem.(https://www.ncloud.com/product/applicationService/geoLocation)…
Oto sposób na wyczyszczenie dużego pliku dziennika. cat /dev/null > 로그파일명 Przy okazji, oto sposób na znalezienie plików o dużym rozmiarze. find ./* -size +파일크기
1. Pobierz i zainstaluj z https://golang.org/dl/ 2. Utwórz folder roboczy (np. d:\source\Go) 3. Utwórz w nim podfoldery bin, pkg i src 4. Panel sterowania Windows -> System -> Zaawansowane ustawienia systemu -> Zmienne środowiskowe 5. W grupie zmiennych użytkownika wpisz…
Podczas korzystania z serwera Amazon pobranie jego adresu IP zwraca prywatny adres IP. Dlatego przygotowałem ten kod, aby uzyskać publiczny adres IP. <? if(in_array(substr($_SERVER[’SERVER_ADDR’], 0, 3), array(’172′))) if(strrpos(gethostname(), ’.compute.internal’)!==false) $_SERVER[’SERVER_ADDR’] = file_get_contents(’http://169.254.169.254/latest/meta-data/public-ipv4′); echo $_SERVER[’SERVER_ADDR’]; ?>
To wtyczka stworzona z myślą o łatwym znajdowaniu backdoorów (PHP) potajemnie instalowanych w celu włamania na serwer. Wyszukuje pliki zawierające funkcje, które mogą zostać wykorzystane w PHP, i informuje o nich e-mailem. Można ją łatwo zainstalować i używać w…
Sposób użycia procedure RegistryMonitor(RootKey: HKEY; Key: string; Proc: TProc; WatchSub: boolean); begin TThread.CreateAnonymousThread(procedure var Reg: TRegistry; Event: cardinal; begin Reg := TRegistry.Create; Reg.RootKey := RootKey; if Reg.OpenKeyReadOnly(Key) then begin Event := CreateEvent(nil, False, False, nil); if Event > 0 then…
Środowisko: podstawowa instalacja Centos7, PHP7 yum install gcc-c++ java-1.7.0-openjdk-devel python-devel zlib-devel openssl openssl-devel git -y wget https://www.python.org/ftp/python/3.6.1/Python-3.6.1.tgz tar xf Python-3.* cd Python-3.* ./configure make make altinstall pip3.6 install JPype1-py3 pip3.6 install konlpy cd .. wget https://bitbucket.org/eunjeon/mecab-ko/downloads/mecab-0.996-ko-0.9.2.tar.gz tar zxfv mecab-0.996-ko-0.9.2.tar.gz cd…
Delphi zostało zaktualizowane do wersji 10.2. Poniżej opisano pierwszą instalację na potrzeby korzystania z CentOS7. # yum -y update # yum install -y firewalld # systemctl unmask firewalld # systemctl enable firewalld # systemctl start firewalld # firewall-cmd –permanent –add-port=64211/tcp…
Utworzyłem ten program, aby monitorować, czy w wyniku włamania na serwerze zainstalowano złośliwe skrypty PHP, oraz łatwo sprawdzać, czy znajduje się w nim niebezpieczny kod. Umieść poniższy kod na koncie serwera i prześlij go na serwer. <? /** * Name:…
