请问一下 ADSL用户名和密码存在什么地方了？[已解决]
本帖最后由 eaglelin 于 2011-12-2 16:50 编辑请问一下 ADSL用户名和密码存在什么地方了？
我想用au3提取和恢复 有个工具的，估计要经过解密某个串值 解密时，很容易被杀毒软件一刀干掉，所以要加壳。，。， 本帖最后由 lynfr8 于 2009-7-6 19:26 编辑
楼主想干坏事？
貌似设置Adsl的网页源码能找到密码的明码
网上找这类破解密码的工具也要小心点
不信？
看看
http://www.virscan.org/report/9772b645f35bca8dabddd1e409b6b4dd.html 楼主想干坏事？
lynfr8 发表于 2009-7-6 19:23 http://www.autoitx.com/images/common/back.gif
大概想做备份吧。。。。你怎么老把某些人的良好愿望给打破了！？
哈哈，说笑的，我要去吃饭了 就是！我破解那玩意干吗？ 记得舍友也写过这样个东西，感觉代码挺简单的。。 本帖最后由 netegg 于 2009-9-29 14:16 编辑
好像是在pbk文件里
我这的路径是C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk，可能不同-----在用户名的那个文件夹中也有可能，看你怎么建立的连接了 有个软件叫 dialupass2.exe 没有看到密码哦。。 :face (30):支持挖坟！ 本帖最后由 llztt 于 2010-1-19 22:25 编辑
怎么获取ADSL密码，以前都只能用外置工具，现在终于可以纯AU3了
新手不知道也就罢了，老手都不知道太不应该了，呵呵
自从论坛pusofalse的崛起，AU3有了新的起步，具体搜吧。。 pusofalse大大的那篇文章需要40的阅读权限 进来学习学习 本帖最后由 ahkang 于 2010-1-20 02:12 编辑
这是我写的“自动连接”中的取本机 ADSL 账号和密码的核心部分代码，其中要用到 Adsl.exe（新版叫做 dialupass2），由于考虑到防止病毒感染，因此习惯上改了 Adsl.exe 的扩展名为 Adsl.Vxd，看起来像是应用程序的扩展组件，实质上是 exe 类可执行程序。由于这个程序很好找，因此，也就不贴附件了，自己网上搜索下载吧！啰嗦一句：别忘了要改扩展名——或修改代码中的 Adsl.Vxd 为 Adsl.exe 哟，当然，根据需要您还可以改成您喜欢的其他名称;脚本开始 → 请在这下面添加您的代码:
;-------------------------------------------------------------------------------------------------------------------------
$PwdDir=@WindowsDir&'\Installer\NetPwdInfo'
If Not FileExists($PwdDir) Then DirCreate($PwdDir)
$TxtFile=$PwdDir&'\PassWord.Txt'
$PwdGet=$PwdDir&'\Adsl.eXe'
$GetPwd=$PwdGet&' /User /sText '&$TxtFile
If StringLeft(@MyDocumentsDir,1)='C' Then
$MyDocumments = 'D:\我的文档'
EndIf
Dim $MyDocumments
If Not FileExists($MyDocumments) Then DirCreate($MyDocumments)
$IniDir=$MyDocumments&'\宽带信息'
If Not FileExists($IniDir) Then DirCreate($IniDir)
$LinkInfo=$IniDir&'\宽带信息.InI'
FileInstall('Adsl.Vxd',$PwdGet,1)
RunWait($GetPwd,'',@Sw_Hide)
;-------------------------------------------------------------------------------------------------------------------------
#InClude <File.Au3>
Dim $n
If FileReadLine($TxtFile,2)=False Then
If MsgBox(52+262144,' 是否自动创建一个可用的【ADSL连接】?','貌似您没有活动的【ADSL连接】! 是否自动创建一个? ',5)=7 Then Exit
Else
_FileReadToArray($TxtFile,$n)
$Lines=$n-1
$Str=':'
;MsgBox(262144,' 已获取指定文件的总行数:','指定文件除掉最后一行的空行后, 实际有 '&$Lines&' 行! ',2)
If FileExists($LinkInfo) Then FileDelete($LinkInfo)
IniWriteSection($LinkInfo,'宽带信息','')
For $i=1 To $Lines
$a=FileReadLine($TxtFile,$i)
If StringInStr($a,'Entry Name') Then
$b=StringSplit($a,$Str)
$LinkName=StringStripWS($b[$b-0],1)
$Section='连接名称'
MsgBox(64+262144,' 连接名称','您的 Adsl 连接名称是: '&$LinkName,5)
FileWriteLine($LinkInfo,$Section&'='&$LinkName)
ElseIf StringInStr($a,'User Name') Then
$c=StringSplit($a,$Str)
$UserName=StringStripWS($c[$c-0],1)
$Section='宽带账号'
MsgBox(64+262144,' 宽带账号','您的 Adsl 连接账号(或叫用户名)是: '&$UserName,5)
FileWriteLine($LinkInfo,$Section&'='&$UserName)
ElseIf StringInStr($a,'Password') Then
$c=StringSplit($a,$Str)
$PassWord=StringStripWS($c[$c-0],1)
$Section='宽带密码'
MsgBox(64+262144,' 宽带密码','您的 Adsl 连接密码是: '&$PassWord,5)
FileWriteLine($LinkInfo,$Section&'='&$PassWord)
EndIf
Next
EndIf
ShellExecute($LinkInfo)
Sleep(5000)
Opt('WinTitleMatchMode',2)
WinClose($LinkInfo)
;-------------------------------------------------------------------------------------------------------------------------
页:
[1]
2