我来试试,
对maxdos没研究过,不知道具体的加密原理,但相信下面的代码具有通用性
#include "array.au3"
#include "file.au3"
Global $pwd[3] = ["$pcbar111111111111111111111", "$pcbar111111111111111111122", "$pcbar111111111111111111133"]
;假设此处是你欲修改的新密码(共3处)
$file = "x.lst";文件名及路径自已改
If Not FileExists($file) Then
MsgBox(0, 'o-o', 'file not exists')
Exit
EndIf
FileSetAttrib($file, "-shr");去掉文件只读等属性
$txt = FileRead($file)
$t = StringRegExp($txt, '(?<=--md5\s)\S+', 3)
;~ _ArrayDisplay($t)
If Not IsArray($t) Then
MsgBox(0, 'o-o', '文件格式有误!!')
Exit
EndIf
For $i = 0 To 2
_ReplaceStringInFile($file, $t[$i], $pwd[$i], 0, 0)
Next
Run('notepad.exe '&$file)
|