tripcode_search.perl

sub gentrip {
   my($pass) = @_;
   my $salt = substr($pass . "H.", 1, 2);
   $salt =~ s/[^\.-z]/./g;
   $salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
   return substr(crypt($pass, $salt), -10);
}

print gentrip("qwerty"); # FzAyW.Rdbg

my $regex = qr/^admin/i; # Регексп для поиска

my @chars = ('a' .. 'z', 'A' .. 'Z', 0 .. 9, '.');

while(1) {
   my $pass = "";
   $pass .= $chars[rand @chars] for 1 .. (rand(5) + 5);
   my $trip = gentrip($pass);
   print "!$trip = $pass\n" if $trip =~ $regex;
}