Bruteforce 100% Credit to Hookbot

Code:


#!/usr/bin/perl

# Program: bruteforce.pl
# Author: HookBot <hookbot@gmail.com>
# Copyright (C) 2008
# WARNING: Use at your own risk!

use strict;
use warnings;

my @a = map { chr($_) } (32..126);
# narrow the alphabet if desired
#@a = ('a'..'z');

# Up to how many characters to try
for my $len (1..5) {
  my @comb = (0) x $len;
  while (1) {
    my $try = join "", map { $a[$_] } @comb;
    print "[$try]\n";
    my $i = $#comb;
    while ($i>=0 and ++($comb[$i]) == @a) {
      $comb[$i--] = 0;
    }
    last if $i < 0;
  }
}

Dentonbrooks wrote:Does it operate on macs?

Gizmo92883 wrote:how can this hack passwords first penguin passwords cant even have these letters in it %#!%& and how do you even type in the user name ive tried triggering with this before but its just the same as ozzys matrix script and just lists things.