请问一下 ADSL用户名和密码存在什么地方了？[已解决]

eaglelin

请问一下 ADSL用户名和密码存在什么地方了？
我想用au3提取和恢复

顽固不化

有个工具的，估计要经过解密某个串值

kn007

解密时，很容易被杀毒软件一刀干掉，所以要加壳。，。，

lynfr8

楼主想干坏事？
貌似设置Adsl的网页源码能找到密码的明码
网上找这类破解密码的工具也要小心点
不信？
看看
http://www.virscan.org/report/9772b645f35bca8dabddd1e409b6b4dd.html

kn007

楼主想干坏事？
lynfr8 发表于 2009-7-6 19:23

大概想做备份吧。。。。你怎么老把某些人的良好愿望给打破了！？

哈哈，说笑的，我要去吃饭了

eaglelin

就是！我破解那玩意干吗？

sglcszp

记得舍友也写过这样个东西，感觉代码挺简单的。。

netegg

好像是在pbk文件里
我这的路径是C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk，可能不同-----在用户名的那个文件夹中也有可能，看你怎么建立的连接了

yorker0503

有个软件叫 dialupass2.exe

pingfan5888

没有看到密码哦。。

59123608

支持挖坟！

llztt

怎么获取ADSL密码，以前都只能用外置工具，现在终于可以纯AU3了

新手不知道也就罢了，老手都不知道太不应该了，呵呵

自从论坛pusofalse的崛起，AU3有了新的起步，具体搜吧。。

catcher

pusofalse大大的那篇文章需要40的阅读权限

zhongzijie

进来学习学习

ahkang

这是我写的“自动连接”中的取本机 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[0]-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]-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]-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]-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)
;-------------------------------------------------------------------------------------------------------------------------