U+Net**** 의 비밀번호 규칙은 의외로 간단하다. Perl을 이용해서 간단히 U+Net**** 용 dictionary를 생성해보았다.
아래 코드를 uplusnet_dict.pl 라는 이름으로 저장한 후,
$ perl uplusnet_dict.pl > uplusnet.dict
와 같이 실행해주면 된다.
|
1
2
3
4
5
6
7
8
9
10
11
12
|
#!/usr/bin/env perl use 5.010; use strict; use warnings; for (1, 5, 6) { my $start = $_*1_000_000_000; my $end = $start + 999_999; for ($start .. $end) { say $_; } } |