怎么编程得到NT下的密码?

[ggbbhh]

相信很多人见过win9X下的得到密码的delphi源程序，这个程序不能在win2000下运行，启动时总说入口错误。不知在NT下要怎么做?
function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; external mpr name 'WNetEnumCachedPasswords';
type
PWinPassword = ^TWinPassword;
TWinPassword = record
EntrySize: Word;
ResourceSize: Word;
PasswordSize: Word;
EntryIndex: Byte;
EntryType: Byte;
PasswordC: Char;
end;
function AddPassword(WinPassword: PWinPassword; dw: DWord): LongBool; stdcall;
var
Password: String;
PC: Array[0..$FF] of Char;
begin
inc(Count);

Move(WinPassword.PasswordC, PC, WinPassword.ResourceSize);
PC[WinPassword.ResourceSize] := #0;
CharToOem(PC, PC);
Password := StrPas(PC);

Move(WinPassword.PasswordC, PC, WinPassword.PasswordSize + WinPassword.ResourceSize);
Move(PC[WinPassword.ResourceSize], PC, WinPassword.PasswordSize);
PC[WinPassword.PasswordSize] := #0;
CharToOem(PC, PC);
Password := Password + ': ' + StrPas(PC);

// Form1.ListBox.Items.Add(Password);
Result := True;
end;

[Kingron]

在2000中要么没有这个函数，要么改变了接口！我在2000中搜索了一下，没有这个函数名字，应该是没有提供。实际上这个函数是未公开的，因此M$修改了接口或者没有提供这个函数。

[crackx]

如果NT的密码那么容易搞的话，嘿嘿，你自己想想吧。。

[gxdq]

cool!

[老开山]

gz

[_菜菜]

NT可不是98，如果密码就这样能搞到的话...