- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
# ------------------- fUnicodeToUTF8----------------------
:global fUnicodeToUTF8
:if (!any $fUnicodeToUTF8) do={ :global fUnicodeToUTF8 do={
:global fByteToEscapeChar
# :local Ubytes [:tonum $1]
:local Nbyte
:local EscapeStr ""
:if ($1 < 0x80) do={
:set EscapeStr [$fByteToEscapeChar $1]
} else={
:if ($1 < 0x800) do={
:set Nbyte 2
} else={
:if ($1 < 0x10000) do={
:set Nbyte 3
} else={
:if ($1 < 0x20000) do={
:set Nbyte 4
} else={
:if ($1 < 0x4000000) do={
:set Nbyte 5
} else={
:if ($1 < 0x80000000) do={
:set Nbyte 6
}
}
}
}
}
:for i from=2 to=$Nbyte do={
:set EscapeStr ([$fByteToEscapeChar ($1 & 0x3F | 0x80)] . $EscapeStr)
:set $1 ($1 >> 6)
}
:set EscapeStr ([$fByteToEscapeChar (((0xFF00 >> $Nbyte) & 0xFF) | $1)] . $EscapeStr)
}
:return $EscapeStr
}}
MAKAKA 12.01.2021 01:37 # 0
Desktop 12.01.2021 02:09 # 0
MAKAKA 12.01.2021 03:41 # 0
Desktop 12.01.2021 12:21 # 0
Или какой-то диалект перла
Или это промежуточное представление кода на Котлине
MAKAKA 12.01.2021 22:48 # 0
TOPT 12.01.2021 05:47 # 0
MAKAKA 12.01.2021 22:49 # 0
Rooster 12.01.2021 08:48 # 0
guest6 12.01.2021 10:41 # 0
guest6 13.01.2021 14:11 # 0
MAKAKA 13.01.2021 14:21 # 0
GDMaster 13.01.2021 14:30 # 0
6a6yuH 13.01.2021 15:06 # 0
ну что, никто не знает, что за язык?
guest6 13.01.2021 15:24 # 0
PowerShell
MAKAKA 13.01.2021 15:26 # 0
MAKAKA 13.01.2021 15:26 # +1
https://hromadske.ua/ru/posts/teper-tvoj-chlen-prinadlezhit-mne-hakery-nachali-vzlamyvat-poyasa-vernosti-dlya-muzhchin-i-trebovat-vykup
bormand 21.02.2021 20:50 # 0
Stallman 13.01.2021 15:47 # 0
MAKAKA 13.01.2021 15:47 # 0
3_dar 13.01.2021 15:49 # 0
defecate-plusplus 13.01.2021 16:52 # 0
MAKAKA 13.01.2021 16:53 # 0
понятия не имею зачем. Самое смешное, что там внутри linux, так что можно было запустить bash, tcl, lua, что угодно
CBuHOKYP 13.01.2021 18:52 # 0
Stallman 13.01.2021 15:49 # 0
bormandinho 21.02.2021 17:49 # 0
Переведи на "PHP".
MAKAKA 21.02.2021 18:00 # 0
Rooster 21.02.2021 19:51 # +1
Что значит второе "do={" в 3 строчке?
MAKAKA 21.02.2021 20:27 # 0
Rooster 21.02.2021 21:03 # 0
hormand 21.02.2021 21:11 # 0