!/usr/bin/perl

use warnings;
use strict;
use utf8;
use feature qw/say/;

use constant DAYS => qw/0 31 28 31 30 31 30 31 31 30 31 30 31/;

sub generate_rc {
    my $gender = shift;
    my $year   = int rand 100;
    my $month  = 1 + int rand 12;
    my $day    = 1 + int rand((DAYS)[$month]);

    $month += 50 if $gender eq 'female';
    $year += int rand 50 if $year < 50 and $year > 11;
    return sprintf '%02d%02d%02d/%04d', $year, $month, $day, rand 1000
+;
}

binmode STDOUT, ':utf8:crlf';

my %firstnames
  = ( male   => [qw/Adam Cyril David František Gustav Ivan Jakub Jan
                    Jaroslav Ji&#345;í Josef Karel Ladislav Lukáš Mart
+in
                    Michal Milan Ond&#345;ej Pavel Petr Radek Stanisla
+v Tomáš
                    Václav Vladimír Zden&#283;k/],
      female => [qw/Alena Anna Barbora Dana Eva Hana Helena Ivana Jana
                    Jitka Karolína Kate&#345;ina Klára Lenka Libuše Lu
+cie
                    Marie Petra Radka Simona V&#283;ra Veronika Zdena
                    Št&#283;pánka/] );

my %surnames
  = ( male   => [qw/Novák Stan&#283;k Bílý Zbo&#345;il Mat&#283;j&#367
+; Fu&#269;ík
                    Sedlá&#269;ek Svoboda Dvo&#345;ák &#268;erný Proch
+ázka Ku&#269;era Veselý
                    Horák N&#283;mec Pokorný Pospíšil Hájek Jelínek Be
+neš Urban
                    Blažek Musil Polák Kadlec Dostál Soukup Bureš Vace
+k/],
      female => [qw/Nováková Sta&#328;ková Bílá Zbo&#345;ilová Mat&#28
+3;j&#367; Fu&#269;íková
                    Sedlá&#269;ková Svobodová Dvo&#345;áková &#268;ern
+á Procházková
                    Ku&#269;erová Veselá Horáková N&#283;mcová Pokorná
+ Pospíšilová
                    Hájková Jelínková Benešová Urbanová Blažková Musil
+ová
                    Poláková Kadlecová Dostálová Soukupová Burešová Va
+cková/]
    );


my %rcs;
for (1 .. $ARGV[0]) {
    my $gender = (keys %firstnames)[rand 2];

    if ($ARGV[1] == 1) {
        say join ' ',
            $firstnames{$gender}[rand @{ $firstnames{$gender} } ],
            $surnames{$gender}[rand @{ $surnames{$gender} } ],
            generate_rc($gender);

    } elsif ($ARGV[1] == 2) {
        my $firstname = $firstnames{$gender}[rand @{ $firstnames{$gend
+er} } ];
        my $surname = $surnames{$gender}[rand @{ $surnames{$gender} } 
+];
        my $middlename;
        if(1 > rand 500) {
            $middlename = $firstnames{$gender}[rand @{ $firstnames{$ge
+nder} } ]
                until length $middlename and $middlename ne $firstname
+;
        }
        my $rc = q{};
        $rc = generate_rc($gender) while ! $rc or exists $rcs{$rc};
        undef $rcs{$rc};
        say $rc,
            ' ','"', $firstname, ' ',
              $middlename ? "$middlename " : q{}, $surname, '"';
    } else {
        die qq{ARG[1] == 1: Firstname Surname RC\nARG[1] == 2: RC "Fir
+stname(s) Surname"};
    }
}
[download]

To get more realistic names, try the trick from xkcd://792.

Update 2013-08-21: see also this database of nicknames or diminutive names for English first names, which Voronich has stumbled on.

This kind of code is only useful for would-be spammers who want to generate random mail. Even if you intend your undetectable keylogger virus as just an "educational toy", posting it will actually help black hat people who can easily reuse it for malicious purposes. Please try to be more responsible in what you post here.

Actually gamers and authors are sometimes interested in such code, although less often involving Hungarian names!

True laziness is hard work

I use things like this quite a lot, but I'm not allowed to publish the code. The project I use it for involves "anonymizing" databases, so I can create reproducible customer situations.

In that process, I first collect all surnames and given names from several databases, split them on whitespace grouped by gender. Then I shuffle the list of names and create new names from the existing list by randomly picking 2 to 5 names from the correct gender list and put them in a random order and assign the new name to the anonymized victim.

The problem that is faced here, is that I have to go through all related databases too, to change the name of the parents and children so the the relations still match.

I do the same for date of birth and place of birth. And for ZIP codes.

The best part however is the addresses. First I collect all the street names from all the databases I have access to, then I split the street names on known extensions: "street", "alley", "boulevard", "road", "way", "path", etc etc. Then I take the first part of those, shuffle them and generate new street names based on the prefix + any of the known extensions. "Bondstreet" thus creates "Bondstreet", "Bondalley", "Bondroad", etc etc. I then shuffle the new list and replace all the original street names with a random pick from the new list.

Together with some other changes, someone with knowledge of the original database said he was unable to "see" what persons were involved in the new data set. This way we can mimic problems at any size of customer database, as we now generate a new one from an existing one with the same size and relations and the "anonymize" the complete set.

This has proven to be a very useful approach. All done in perl of course and nothing to do with spam or hackers.


Enjoy, Have FUN! H.Merijn

I used similar code for stress testing of multiuser web-based application. And as we also were in need to demonstrate reporting system to management, and user_0001, user_0002 etc in Full Name column didn't look especially impressive, so I used Data::RandomPerson (BTW, why don't you submit your addition ;) to generate a lot of users with nice names.

Then perhaps Perl, our beloved language, should be put on the black list as well?

Or even better, perhaps restrict access to computers all together to people who have a proven track-record of playing "nice" (for whatever definition of "nice" you or any dictatorship might fancy).

Please try to be more responsible in what you post here

Why are you saying that to yourself?

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James