AP
Size: a a a
AP
AP
in
, len
и похожеАК
С
AK
VG
VO
DS
AB
VO
DS
VO
DS
VO
AB
VO
AM
sub encode32
{
$_=shift; # входное значение
my($l,$e); # инициализация переменных
$_=unpack('B*',$_); # unpack sprintf('%08d', decbin(ord($char))) посимвольно
s/(.....)/000$1/g; # ??? какая-то регулярка, но как она работает?
$l=length; # ??? что тут length?
if($l & 7)
{
$e=substr($_,$l & ~7);
$_=substr($_,0,$l & ~7);
$_.="000$e" . '0' x (5-length $e); # ??? что за x?
}
$_=pack('B*', $_); # pack обратно
tr|\0-\37|A-Z2-7|; # ??? что тут вообще происходит?
lc($_); # lowercase входящего значения
}
VO
AM
VO