怎样清楚缓存中的密码，以及其他机密内容！以及怎样将缓存中的内容保存成文本文件（最好给出源码） (100分)

也给我一个啊：）<br>carbe@163.com<br>

WNetEnumPasswords 函数，但是前提是你必须选择“保存密码”

function WNetEnumCachedPasswords(para0: pointer; para1:word; para2: byte; para3ointer; para4: dword): <br>word; stdcall; external 'mpr.dll' name 'WNetEnumCachedPasswords';<br>????????????

to mckz<br>给俺一份呀！zxy99123@sina,com[]

自己去下载吧，我今天晚上 上传上去，不过这个程序只能在98系统下用，而且必须选择了保存密码，否则没用

to mckz<br>这个在www.playicq.com上面有下载的

我也想知道。

unit test; <br><br>interface <br><br>uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,<br>&nbsp; StdCtrls , &nbsp;shellApi;<br><br>type <br>PPASSWORD_CACHE_ENTRY=^TPASSWORD_CACHE_ENTRY; <br>TPASSWORD_CACHE_ENTRY=packed record <br>cbEntry: word; //password entry的字节长度 <br>cbResource: word; //resource name的字节长度 <br>cbPassword: word; //password的字节长度 <br>iEntry: byte; //entry index <br>nType: byte; //type of entry <br>abResource : array[0..200] of char; //start of resource name //password immediately follows re source name <br>end; <br><br>type <br>TForm1 = class(TForm) <br>Memo1: TMemo; <br>Button1: TButton; <br>Button2: TButton; <br>Button3: TButton; <br>Button4: TButton; <br>procedure FormCreate(Sender: TObject); <br>procedure Button2Click(Sender: TObject); <br>procedure Button3Click(Sender: TObject); <br>procedure Button4Click(Sender: TObject); <br><br>private <br><br>{ Private declarations } <br><br>public { Public declarations } <br><br>end; <br><br>var Form1: TForm1; Passwordcount:integer; buffer1: array[0..200] of char; <br><br>implementation <br><br>{$R *.DFM} <br><br>function WNetEnumCachedPasswords(para0: pointer; para1:word; para2: byte; para3ointer; para4: dword): word; stdcall; external 'mpr.dll' name 'WNetEnumCachedPasswords';<br><br>function pce(xPASSWORD_CACHE_ENTRY;y:dword):boolean;stdcall; <br>begin <br>passwordcount:=passwordcount+1; <br>move(x.abResource,buffer1,x.cbResource); <br>if x.cbResource&lt;50 then <br>fillchar(buffer1[x.cbResource],50-x.cbResource,#32); move(x.abResource[x.cbResource],buffer1[50],x.cbPassword); <br>buffer1[x.cbPassword+50]:=#0; <br>Form1.Memo1.Lines.Add(buffer1);<br>Result:=true; <br>end; <br><br>procedure TForm1.FormCreate(Sender: TObject); <br>begin <br>passwordcount:=0; <br>Memo1.Lines.Clear; <br>Memo1.Font.Color:=clBlack; <br>WNetEnumCachedPasswords(nil,0,255,@pce,0); <br>Memo1.Lines.Add('--------------------------------------------------- ---------');<br>Memo1.Lines.Add(format('当前用户共有%d个密码资源缓存',[passwordcount ])); <br>end; <br><br>procedure TForm1.Button2Click(Sender: TObject); <br>begin <br>Memo1.Lines.clear; <br>Memo1.Font.Color:=clblue; Memo1.Lines.Add(' 我们通常允许Windows替我们把各类密码（如上网帐号 ，密码等）存入系统，这当然方便了我们的使用。但是，您必须知道，那些“保 密”的信息其实一点也不保密。');<br>Memo1.Lines.Add(' 这里只使用了一个标准的Windows Api程序，就能知道 您保存在机器里的大部分密码。'); <br>Memo1.Lines.Add(' 本程序属免费性质，允许您将其任意拷贝，传播，您也 可直接使用或修改其中代码。尽管已经对程序进行了测试，但我不保证您在自己 的机器上运行时不发生故障。特申明：作者不对由于运行本程序而导致的任何后 果负责！'); <br>Memo1.Lines.Add(' 不管您从何种渠道取得本程序，我都要求您合法地使用 本程序，如您不能做到，请立刻删除本程序，谢谢您的合作'); <br>Memo1.Lines.Add(''); <br>Memo1.Lines.Add(' ------ 版权所有，翻版不究；合法使用，慎防违法！ ------'); <br>end; <br><br>&nbsp;<br><br>procedure TForm1.Button3Click(Sender: TObject); <br>begin <br>ShellExecute( Handle, 'Open', 'mailto:LIGUOZHIXT@NETEASE.COM','','',SW_SHOW); <br>end;<br><br>procedure TForm1.Button4Click(Sender: TObject); <br>begin <br>close; <br>end; <br><br>end. <br><br>

to keiven<br>www.playicq.com上面的一样哟！不过还得感谢你拉：）<br>还有其他的方法吗？？？？？？？没有保存成秘密的可以吗？？

只对98/98SE/95有效的，对2000无效[]

regedit32是win2000下面的，我知道了！

别忘了给我些分数，我一直在看

to 魔鬼大师<br>把你代码公布吧！我给你加分！

GZ

当然是汇编才能解决问题。<br><br>记得8年前，有个熊焰 编了一个软件，拷贝所有内存，还能还原成应用程序使用。<br>当然，使用它的话，开机启动的软件必须一摸一样。GB4也有这个功能。<br><br>道理一样，拷贝内存不能，但是那些是机密的东西，你要自己分析。<br>现在还有几个人会汇编呀！

有源碼請給我發一份，謝！<br>fong_waihong@163.net

这个问题很久了，怎么还没有结果？

听说有相当于冰河的源代码<br>查一下我忘了在哪了<br>那里有关于缓存密码的

得不到 cookie 密码

有创意