1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Help with Wordlist Generation.

Discussion in 'Perl' started by Sketch-, Jul 1, 2011.

  1. Sketch-

    Sketch- New Member

    Joined:
    Jul 1, 2011
    Messages:
    3
    Likes Received:
    0
    Trophy Points:
    0
    Ok well there's a system I'm doing a pentest on and I need to generate a passlist.

    I managed to get 3 passwords by social engineering and I've figured out they all have the same combination.

    Code:
    6 Capital or Lowercase letters and then 2 numbers
    
    An example password is

    Code:
    AghtTd65
    
    There is an account on there which I need access to.

    I've tried writing this script to generate a wordlist.
    PHP:
    #!/usr/bin/perl
    my $p1 00;
    my $p2 "aA";
    open(LIST, '>>list.txt');
    while(
    $p1 <= 99) {
    while(
    length($p2) <= 6) {
    print LIST 
    $p2.$p1."\n";
    print 
    "$p2 done :D\n";
    $p2++;
    }
    $p1++;
    }
    close(LIST);
    But it only generates passes like.

    Code:
    esjtrK0
    
    So only the last letter is capital.
    Also it seems to be doing 1 character combinations even though I went 00.
    Maybe I should have enclosed it with quotes.


    Any help appreciated :phone:
     

Share This Page