📄 mksmbpasswd.perl
字号:
#!/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]);}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -