mksmbpasswd.perl

来自「共享Unix的资源(磁盘或打印机等)给Windows使用的程序」· PERL 代码 · 共 14 行

#!/usr/bin/perl 
$X= "X" x 32;
$U="[U          ]";
$L="LCT-00000000";
print("#\n# SMB password file.\n#\n");

while ( <> ) {
  next unless (/^[A-Za-z0-9_]/);
  chop;
  @V = split(/:/);
  printf( "%s:%s:%s:%s:%s:%s:%s\n", $V[0], $V[2], $X, $X, $U, $L, $V[4]);
}