--On Friday, February 19, 2021 7:04 PM +0000 Bruce Johnson
<john...@pharmacy.arizona.edu> wrote:
my $goodFilter = '(objectGUID =
'.decode_base64('XrfAr5bivU61wz1WCgsxWA==').')';
my $badFilter = '(objectGUID =
'.decode_base64('6CncwjzJ/Umi4iIdB88efw==').')';
I would suggest converting these to data more easibly usable as a search
filter, like:
#!/usr/bin/perl
use strict;
use MIME::Base64 qw(encode_base64 decode_base64);
use Data::Hexdumper qw (hexdump);
my $b64guid="6CncwjzJ/Umi4iIdB88efw==";
my @guid=split / /, hexdump(decode_base64($b64guid), { output_format =>
'%16C' });
my
$query_string=$guid[3].$guid[2].$guid[1].$guid[0]."-".$guid[5].$guid[4]."-".$guid[7].$guid[6]."-".$guid[8].$guid[9].$guid[10].$guid[11].$guid[12].$guid[13].$guid[14].$guid[15];
chomp($query_string);
print "(objectGUID=".$query_string.")\n";
/tmp/guidsearch.pl
(objectGUID=C2DC29E8-C93C-49FD-A2E2221D07CF1E7F)
Regards,
Quanah
--
Quanah Gibson-Mount
Product Architect
Symas Corporation
Packaged, certified, and supported LDAP solutions powered by OpenLDAP:
<http://www.symas.com>
