#!/usr/bin/perl

foreach $arg (@ARGV) {
	if ($arg eq '-m') {$md5 = 1;}
	else {$plaintext = $arg}
}

if (!$plaintext) {
  print "Usage: crypter [-m] <plaintext> \| (-m : MD5 based password hashing)\n";
}
else
  {
  @saltset = ('a' .. 'z', 'A' .. 'Z', '0' .. '9', '.', '/');
	if ($md5) {@saltset = (@saltset, '$');};
	$salt = $saltset[rand(time)%64].$saltset[(rand(time)>>6)%64];
	if ($md5) {$salt = "\$1\$${salt}";};
	$crypttext = crypt($plaintext, $salt);
  print "plain text: $plaintext - encrypted passwd: $crypttext \n";
}