Rule Piping Request

[atom]

here is a perl version. not the fastest, but had to write it quickly. maybe i add a filtering tool to hashcat-utils. till that, use this:

$ perl calc.pl < in.dict > out.dict

Code:

#!/usr/bin/env perl

use strict;
use warnings;

while (my $line = <>)
{
  chomp ($line);

  my @chrs = split "", $line;

  my $f = 0;

  for my $chr (@chrs)
  {
    my $c = ord ($chr);

    if (($c < 0x20) || ($c > 0x7f))
    {
      $f = 1;

      last;
    }
  }

  next if $f;

  print $line, "\n";
}