Trouble with veracrypt volume - Printable Version

Code:
#!/usr/bin/env perl



# Author: philsmd

# Date: January 2018

# License: public domain (CC0)



use strict;

use warnings;



#

# CONSTANTS

#



my $WORDS_IN_PASSPHRASE = 10;



#

# Example

#



my @LOWER_CASE_WORDS = (

  "this",

  "is",

  "the",

  "list",

  "of",

  "words",

  "that",

  "you",

  "want",

  "to",

  "try",

);



my $AMOUNT_OF_WORDS = scalar (@LOWER_CASE_WORDS);



#

# Helper functions

#



# normally we would just print it, but we need to also print the variants with capitalized (upper cased first letter):



sub print_passphrase

{

  my $recursive_step = shift;

  my $words_in_pass  = shift;

  my $passwords      = shift;



  if ($recursive_step < 1)

  {

    for (my $i = 0; $i < $WORDS_IN_PASSPHRASE; $i++)

    {

      print @$passwords[$i];

    }



    print "\n";

  }

  else

  {

    my $loop_index = $WORDS_IN_PASSPHRASE - $recursive_step;

    my $word_index = @$words_in_pass[$loop_index];



    my $pass = $LOWER_CASE_WORDS[$word_index];





    # always generate the lower-case variant:



    my @tmp_passwords = @$passwords;



    push (@tmp_passwords, $pass);



    print_passphrase ($recursive_step - 1, $words_in_pass, \@tmp_passwords);







    # upper-case (capitalized) variant (if needed):



    my $pass_capitalized = ucfirst ($pass);



    if ($pass_capitalized ne $pass)

    {

      my @tmp_passwords_capitalized = @$passwords;



      push (@tmp_passwords_capitalized, $pass_capitalized);



      print_passphrase ($recursive_step - 1, $words_in_pass, \@tmp_passwords_capitalized);

    }

  }

}



sub generate_word_list

{

  my $recursive_step = shift;

  my $words_in_pass  = shift;



  if ($recursive_step < 1)

  {

    my @passwords = ();



    print_passphrase ($WORDS_IN_PASSPHRASE, $words_in_pass, \@passwords);

  }

  else

  {

    # recursive step:



    for (my $i = 0; $i < $AMOUNT_OF_WORDS; $i++)

    {

      # search in array (or use grep):



      my $found = 0;



      foreach my $item (@$words_in_pass)

      {

        if ($item == $i)

        {

          $found = 1;



          last;

        }

      }



      next if ($found == 1);







      # if the word is NOT within the passphrase already:



      # make a copy of the word list:



      my @tmp_words_in_pass = @$words_in_pass;



      # add the new one:



      push (@tmp_words_in_pass, $i);



      generate_word_list ($recursive_step - 1, \@tmp_words_in_pass);

    }

  }

}



#

# Start

#



if ($AMOUNT_OF_WORDS < $WORDS_IN_PASSPHRASE)

{

  print "ERROR: not enough words (the amount is $AMOUNT_OF_WORDS) for the passphrase (of $WORDS_IN_PASSPHRASE words)\n";



  exit (1);

}



my @words_in_pass = ();



generate_word_list ($WORDS_IN_PASSPHRASE, \@words_in_pass);



exit (0);