Добрый день.
На Perl написан скрипт который вытаскивает из AD данные. Все поля вытаскиваются хорошо кроме objectSid и objectGUID. Вместо значений S-1-6-21-4h52121579-2073338045-1474639452-1109 получаю вот это : ot�tn+cE�U
Как мне все это привести в нужный мне вид почему он выдаёт в таком виде?
> Добрый день.
> На Perl написан скрипт который вытаскивает из AD данные. Все поля вытаскиваются
> хорошо кроме objectSid и objectGUID. Вместо значений S-1-6-21-4h52121579-2073338045-1474639452-1109
> получаю вот это : ot�tn+cE�U
> Как мне все это привести в нужный мне вид почему он выдаёт
> в таком виде?Может оно в cp1251?
> Может оно в cp1251?Не этлсклрее всего бинарник, тоько вот как perl олм его привести в правильный вид я не знаю,
Смотри здесь - http://people.samba.org/bzr/mwong/samba-soc/examples/misc/ad...
> Смотри здесь - http://people.samba.org/bzr/mwong/samba-soc/examples/misc/ad...Да я совсем забыл сказать это мой первый опыт работы с perl, я думаю я в этом скрипте год буду разбираться, но все равно спасибо.
> Смотри здесь - http://people.samba.org/bzr/mwong/samba-soc/examples/misc/ad...# $sval - содержит значение атрибута objectSid
my($sid_rev, $num_auths, $id1, $id2, @ids) = unpack("H2 H2 n N V*", $sval);
# $sid_rev=substr($sid_rev,1,1) if $sid_rev=~ /^0/;
$sval = join("-", "S", $sid_rev, ($id1<<32)+$id2, @ids);