| 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 : /proc/self/root/usr/share/konwert/filters/ |
Upload File : |
#!/usr/bin/perl -n
s/([\xC0-\xDF])([\x80-\xBF])/
sprintf "&#x%X;", ((ord ($1) & 0x1F) << 6
| ord ($2) & 0x3F)
/eg;
s/([\xE0-\xEF])([\x80-\xBF])([\x80-\xBF])/
sprintf "&#x%X;", ((ord ($1) & 0x0F) << 12
|(ord ($2) & 0x3F) << 6
| ord ($3) & 0x3F)
/eg;
s/([\xF0-\xF7])([\x80-\xBF])([\x80-\xBF])([\x80-\xBF])/
sprintf "&#x%X;", ((ord ($1) & 0x07) << 18
| (ord ($2) & 0x3F) << 12
| (ord ($3) & 0x3F) << 6
| ord ($4) & 0x3F)
/eg;
s/([\xF8-\xFB])([\x80-\xBF])([\x80-\xBF])([\x80-\xBF])([\x80-\xBF])/
sprintf "&#x%X;", ((ord ($1) & 0x03) << 24
| (ord ($2) & 0x3F) << 18
| (ord ($3) & 0x3F) << 12
| (ord ($4) & 0x3F) << 6
| ord ($5) & 0x3F)
/eg;
s/([\xFC-\xFD])([\x80-\xBF])([\x80-\xBF])([\x80-\xBF])([\x80-\xBF])([\x80-\xBF])/
sprintf "&#x%X;", ((ord ($1) & 0x01) << 30
| (ord ($2) & 0x3F) << 24
| (ord ($3) & 0x3F) << 18
| (ord ($4) & 0x3F) << 12
| (ord ($5) & 0x3F) << 6
| ord ($6) & 0x3F)
/eg;
print;