| Server IP : 185.252.147.100 / Your IP : 216.73.217.33 Web Server : nginx/1.27.3 System : Linux mitrofanov.ru 6.1.0-37-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.140-1 (2025-05-22) x86_64 User : mitr ( 1000) PHP Version : 8.2.29 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : OFF Directory : /usr/share/konwert/filters/ |
Upload File : |
#!/usr/bin/perl -p s/&#x([0-9A-Fa-f]+);/ $h = hex ($1); $h < 0x80 ? $h == ord "\"" ? """ : $h == ord "&" ? "&" : $h == ord "<" ? "<" : $h == ord ">" ? ">" : chr ($h) : $h < 0x800 ? chr (0xC0 | $h >> 6 & 0x1F) . chr (0x80 | $h & 0x3F) : $h < 0x10000 ? chr (0xE0 | $h >> 12 & 0x0F) . chr (0x80 | $h >> 6 & 0x3F) . chr (0x80 | $h & 0x3F) : $h < 0x200000 ? chr (0xF0 | $h >> 18 & 0x07) . chr (0x80 | $h >> 12 & 0x3F) . chr (0x80 | $h >> 6 & 0x3F) . chr (0x80 | $h & 0x3F) : $h < 0x4000000 ? chr (0xF8 | $h >> 24 & 0x03) . chr (0x80 | $h >> 18 & 0x3F) . chr (0x80 | $h >> 12 & 0x3F) . chr (0x80 | $h >> 6 & 0x3F) . chr (0x80 | $h & 0x3F) : $h < 0x80000000 ? chr (0xFC | $h >> 30 & 0x01) . chr (0x80 | $h >> 24 & 0x3F) . chr (0x80 | $h >> 18 & 0x3F) . chr (0x80 | $h >> 12 & 0x3F) . chr (0x80 | $h >> 6 & 0x3F) . chr (0x80 | $h & 0x3F) : $&/eg;