Advertisement
Guest User

Untitled

a guest
Sep 26th, 2017
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.05 KB | None | 0 0
  1. #!/usr/bin/perl
  2.  
  3.  
  4. #use strict;
  5. use Net::LDAP;
  6. #verbinding met AD
  7. my $ad = Net::LDAP->new("test.nid") or die "Could not connect!";
  8. $ad->bind("Administrator\@test.nid", password=>"Welkom01");
  9.  
  10. #zoek optie's
  11. my $base = "OU=scripting,DC=test,DC=nid";
  12. my $filter = "memberof=CN=testing,OU=scripting,DC=test,DC=nid";
  13. my $attrs = "displayname";
  14. my $results = $ad->search(base=>$base,filter=>$filter,attrs=>$attrs);
  15. #my $count = $results->count;
  16.  
  17. # Display entries
  18. my $entry;
  19. #for (my $i=0; $i<$test; $i++) {
  20.  
  21.      $entry = $results->entry;#($i);
  22.      my $test;
  23.      $test = $entry->get_value('displayname')."\n";
  24.      print "$test";
  25. open FILE, ">>test.txt" or die "Kan niet wegschrijven";
  26. print FILE "$test";
  27. close FILE;
  28.  
  29. @ascii_chars = unpack("C*", $test);
  30. $count = length ($test);
  31.  
  32. #optellen
  33. my $mul;
  34. for (my $i=0; $i<$count; $i++) {
  35. $mul = "@ascii_chars" * $count;
  36. }
  37. #delen
  38. my $div;
  39. $div = $mul / $count;
  40. my $result;
  41. $result = print "$mul divided by $count is $div\n";
  42.  
  43. $word = pack("C*", $div);
  44. print "$word\n";
  45.  
  46. print @ascii_chars;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement