Advertisement
vicendominguez

you can try this to pass the challenge in varnish auth-sessi

Aug 16th, 2012
358
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.44 KB | None | 0 0
  1. #!/usr/bin/env perl
  2. #
  3. #  
  4. # If you don't have access to:  
  5. #    * shell
  6. #    * varnishadm                                    
  7. # you can try this to pass the challenge in varnish auth-session console
  8. #
  9. # Vicente
  10.  
  11.  
  12. use strict;
  13. use warnings;
  14. use Digest::SHA qw (sha256 sha256_hex);
  15.  
  16. my $challenge = $ARGV[0];
  17. my $key = $ARGV[1];
  18. my $result= sha256_hex($challenge . "\n" . $key . "\n" .  $challenge . "\n");
  19. print $result ."\n";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement