论坛 › 已解决问题区 › 怎以样换掉maxdos里的 x.lst里面的密码-暂时用一方法解决附件有解决方法

pcbar 发表于 2008-9-8 22:03:51

我来试试,
对maxdos没研究过,不知道具体的加密原理,但相信下面的代码具有通用性
#include "array.au3"
#include "file.au3"
Global $pwd = ["$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)

gordonbwb 发表于 2008-9-9 01:00:39

谢谢二位版主。问题目前用一方法解决。

由于时间关系，日后再慢慢完善。

先发出一个v6版本修改器。通用版日后出。

pcbar 发表于 2008-9-9 06:49:46

就这么简单!!??

gordonbwb 发表于 2008-9-9 09:48:15

现在将就能用.


对了版主..怎么删除上传的附件啊.

查看完整版本: 怎以样换掉maxdos里的 x.lst里面的密码-暂时用一方法解决附件有解决方法