Skip to content

Instantly share code, notes, and snippets.

@kost

kost/wildfly-password-generator.pl

Created February 17, 2015 10:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kost/245c4be045558bc329c5 to your computer and use it in GitHub Desktop.
Save kost/245c4be045558bc329c5 to your computer and use it in GitHub Desktop.
Download ZIP
WildFly Password Generator
Raw
wildfly-password-generator.pl
#!/usr/bin/perl
use strict;
use Digest::MD5 qw(md5 md5_hex md5_base64);
my $user=shift;
my $pass=shift;
my $realm='ManagementRealm'; # or ApplicationRealm
my $plaintext=$user.":".$realm.":".$pass;
print "$plaintext\n";
print md5_hex($plaintext)."\n";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment