Return to Hash.pm CVS log

Up to [local] / botnow

Annotation of botnow/Hash.pm, Revision 1.1.1.1

1.1       bountyht    1: #!/usr/bin/perl
                      2:
                      3: package Hash;
                      4:
                      5: use strict;
                      6: use warnings;
                      7: use OpenBSD::Pledge;
                      8: use OpenBSD::Unveil;
                      9: use Data::Dumper;
                     10:
                     11: my %conf = %main::conf;
                     12: my @words;
                     13: my $wordspath = "words";
                     14: my $passlength = $conf{passlength};
                     15: # dictionary words for passwords
                     16: @words = main::readarray("words");
                     17:
                     18: sub init {
                     19:        unveil($wordspath, "r") or die "Unable to unveil $!";
                     20: }
                     21:
                     22: sub newpass {
                     23:        my $len = scalar @words;
                     24:        my $pass;
                     25:        for (my $i=0; $i < $passlength; $i++) {
                     26:                my $word = $words[int(rand($len))];
                     27:                $word =~ s/(\w+)/\u$1/g;
                     28:                $pass .= $word;
                     29:        }
                     30:        return $pass;
                     31: }
                     32: #dependencies for blowfish
                     33: #unveil("./blowfish.o", "rx") or die "Unable to unveil $!";
                     34: #      } elsif ($reply =~ /^!identify\s*(.*)?\s+(.*)$/i) {
                     35: #              my $hash = getkeyval($hostmask, "password");
                     36: #              #print "result = ".`./blowfish.o $2 '$hash'`;
                     37: #              if(system("./blowfish.o $2 '$hash' > /dev/null")) {
                     38: #                      print "login failed\r\n";
                     39: #              } else {
                     40: #                      print "logged in\r\n";
                     41: #              }
                     42:
                     43:
                     44: 1; # MUST BE LAST STATEMENT IN FILE