| … | … | ||
|---|---|---|---|
| 39 | # we don't want to overdo it, to keep implementation simple. | 39 | # we don't want to overdo it, to keep implementation simple. |
| 40 | 40 | ||
| 41 | my $pw = shift; | 41 | my $pw = shift; |
| 42 | 42 | ||
| 43 | for (0..9) { | 43 | for (0..9) { |
| 44 | $pw = "$_deliantrakdf$pw" x 32; | 44 | $pw = "deliantrakdf$_$pw" x 32; |
| 45 | $pw = dgst $pw; | 45 | $pw = dgst $pw; |
| 46 | } | 46 | } |
| 47 | 47 | ||
| 48 | $pw | 48 | $pw |
| 49 | } | 49 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |