It looks like your right about trying to brute force the dsl password. I managed to write a small script to generate 600 combinations. Testing the 620 combinations took 5 minutes and 20 seconds.
I found out that the Puerto Rico telecom company is using passwords of the following form: 30aLPOjbhy
Unfortunatly, I don't know if the positions are always the same. (i.e. the digits are always there and the upper/lowercase also.) I will probably need to find a super-password for a Zyxel Prestige 600.
So this is now, just a learning hack. The following code works for a small subset. But I can't think of how to reset the initial values and retry all the additional combinations. Any tips?
#!/usr/bin/perl -w #my @genString = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9'); my @genString = ('a', 'a', 'a', 'a', 'a', 'a', 'a', 'a', 'a', 'a'); my @chars = ("a".."z", "A".."Z", "0".."9"); my $cnt=0; for(my $i; $i <= $#genString; $i++) { foreach my $newChar (@chars) { $genString[$i] = $newChar; print "", @genString, "\n"; # print "$cnt\t\t", @genString, "\n"; $cnt++; } }
In reply to Re: How do I generate a sequential string?
by Anonymous Monk
in thread How do I generate a sequential string?
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |