mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 18:59:33 +00:00
8 lines
120 B
Perl
Executable File
8 lines
120 B
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
|
|
my $user = $ARGV[0];
|
|
my $pass = $ARGV[1];
|
|
print "$user:".crypt($pass,"Fhem")."\n";
|
|
exit 0;
|