the perl has a loop that rehashes the string 10 times
On Fri, Oct 9, 2009 at 6:02 PM, Jasvir Nagra <j...@nagras.com> wrote:
> If you have a command line sha1:
> echo masterpassword gmail.com | sha1sum | perl -alnF'/(..)/' -e
> '@a=map{$_=chr(hex($_)/2);tr/!-~//cd;$...@f;pr...@a'
> --
> Jasvir Nagra
> http://www.cs.auckland.ac.nz/~jas
>
>
> On Fri, Oct 9, 2009 at 2:58 PM, Eric Waguespack <ewaguesp...@gmail.com>
> wrote:
>>
>> this was an attempt to make a password generator that creates the same
>> ASCII password every time, given an arbitrary string. (basically 1
>> password per website)
>>
>> this is what i have so far:
>>
>> echo masterpassword gmail.com | perl -MDigest::SHA -ne '$h = $_; for
>> (1..10) { $h=Digest::SHA::sha512_hex("$h") }; $_=$h; while (/(..)/g) {
>> $x=$1; $x = int((hex $x) / 2); if( $x ~~ [33..126] ) {print chr($x)};
>> END {print "\n";};}' | cut -b1-10
>>
>> I also want to incorporate this, it removes duplicate characters
>> (irrespective of location), but my current code doesn't let me just
>> slip it in.
>>
>> $s =~ s[(.)(?=.*?\1)][]g;
>
>
