如何得知目前登入user的account及password? |
|
|
|
junlin
初階會員   發表：66 回覆：94 積分：42 註冊：2002-03-13 發送簡訊給我 |
|
|
lee
站長  發表：55 回覆：173 積分：45 註冊：2002-02-27 發送簡訊給我 |
|
|
wenjung
一般會員  發表：21 回覆：61 積分：21 註冊：2002-04-29 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
引言: 因設定網路磁碟機時需這二個參數，不知如何才能抓到？ WNetAddConnection2(NetResource, PChar('YOURPASSWORD'), PChar('YOURUSERNAME'), dwFlags) http://delphi.ktop.com.tw/topic.php?TOPIC_ID=357 只可得知 domain and username 還是不知道 passwordPassword 沒辦法得到吧, 參考以下這篇: http://forum.vclxx.org/topic.php?TOPIC_ID=4792&FORUM_ID=3&CAT_ID=2&Topic_Title=%A6p%A6%F3%B1o%AA%BEUser+%ACO%A7%5F%A6%B3%B5n%A4J%A8%EC+%BA%F4%B0%EC&Forum_Title=Misc |
|
verbose
一般會員 發表：9 回覆：5 積分：2 註冊：2002-03-13 發送簡訊給我 |
|
|
mihopaul
一般會員 發表：25 回覆：59 積分：16 註冊：2002-03-17 發送簡訊給我 |
我這有個小程式，是可以找到執行主機曾經連過某台主機的所有password
也許你可以改寫一下，以下為主要部份，但我不知NT的行不行
如果你需要原本程式，請告知，我再傳上 This program shows cached passwords using standard (but undocumented)
Windows API on local machine for current user (user must be logged in). 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; var
WinPassword: TWinPassword; 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;
|
|
denny521
一般會員 發表：1 回覆：1 積分：0 註冊：2002-04-14 發送簡訊給我 |
|
|
mihopaul
一般會員 發表：25 回覆：59 積分：16 註冊：2002-03-17 發送簡訊給我 |
|
|
阿子
站務副站長 發表：120 回覆：230 積分：201 註冊：2002-03-18 發送簡訊給我 |
發表時間：2002-03-26 09:48:31
IP:61.218.xxx.xxx 未訂閱
～～～Delphi K.Top網站總管～～～
系統時間：2024-04-26 8:07:46
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |