找回密码
 加入
搜索
楼主: gordonbwb

[AU3基础] 怎以样换掉maxdos里的 x.lst里面的密码-暂时用一方法解决附件有解决方法

[复制链接]
发表于 2008-9-8 22:03:51 | 显示全部楼层
我来试试,
对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)
 楼主| 发表于 2008-9-9 01:00:39 | 显示全部楼层
谢谢二位版主。问题目前用一方法解决。

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

先发出一个v6版本修改器。通用版日后出。
发表于 2008-9-9 06:49:46 | 显示全部楼层
就这么简单!!??
 楼主| 发表于 2008-9-9 09:48:15 | 显示全部楼层
现在将就能用.


对了版主..怎么删除上传的附件啊.
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-5-12 02:37 , Processed in 0.062143 second(s), 13 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表