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

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice