PasswordProducer |
|
|
|
lovejingtao
一般會員   發表：10 回覆：33 積分：13 註冊：2003-04-16 發送簡訊給我 |
PasswordProducer 冷静的思考问题
充满激情的工作
|
|
conundrum
尊榮會員  發表：893 回覆：1272 積分：643 註冊：2004-01-06 發送簡訊給我 |
???陳經韜如雷灌耳 大陸 先進 KTOP 中有不少 先進 你的轉貼文章 佩服佩服 http://delphi.ktop.com.tw/topic.php?topic_id=35154 http://delphi.ktop.com.tw/topic.php?topic_id=21606 http://delphi.ktop.com.tw/topic.php?topic_id=22452 http://delphi.ktop.com.tw/topic.php?topic_id=21607 http://delphi.ktop.com.tw/topic.php?topic_id=19618 先進的網站 要好好看看 http://www.138soft.com/htm/index.htm 最近更新 2004年6月16日.最近又有人在弄最新的IE網頁木馬了......詳情點這裏查看.補丁程式點這裏下載.本站可算最早的網頁木馬推出者了,2001年的黑洞生成服務端時就有個生成網頁木馬功能,還有個OCX版本的服務端.想不到現在這種東西這麼流行,不過無論是EXE2BMP,還是EXE2HTM,本站都是抱著研究的態度免費公開的,從來沒有賣過,而且都帶有解決方案,目的是引起大家對安全的注意.以免中招.建議殺毒公司多注意一下網頁方面的漏洞,不要總是靠一些黑軟作者養著.多花時間研究一些實際的東西.實際上微軟的作業系統真是漏洞百出.象SQL,除了注入,上個月又有人發現一新漏洞.不過這次那人好像不肯公開了......不過即使如此,我個人覺得LINUX還是無法與微軟抗衡的.如果LINXU象WINDOWS用的那麼廣泛.我估計漏洞比WINDOWS多出X倍.因為會有X倍人來研究它的漏洞.LINXU畢竟是非商業軟體,不要以為微軟高薪養著的那批高手是白吃的.全世界真正的高手都在那裏啊. 2004年6月3日.還是就程式設計思想發發牢騷.記得前幾年,比較流行打開本地磁片共用的程式,有的人是利用程式內部修改註冊表然後重啟實現,實際上這是一種非常不好的編程習慣,迫不得已的時候用一下倒無妨.最好還是老實嚴格使用API來實現.當然,偶爾當作娛樂來玩玩還是可以的,例如"還原精靈轉存大師",實際上是先讀出轉存密碼(明文,記憶體位址固定),然後將還原精靈的轉存介面調出來,然後用SetText將密碼輸入,再用程式控制滑鼠去點那個轉存.也就是說,實際上是使用還原精靈自己的轉存功能.如果你懶得去敲打代碼,乾脆直接將這些操作用一個軟體將它錄製下來,然後先把用戶電腦螢幕變黑(用意在於不讓用戶看到你的滑鼠在螢幕上點那個轉存按鈕).這樣一個程式全部做出來不到20分鐘.不過,這種取巧的方法不能成為你的習慣,就象做人一樣,偶爾小聰明一下是增加一點生活樂趣,但是如果你事事依賴小聰明,不嚴格要求自己,實際上是對自己不負責任.實質最後失大於得.世界上所有的問題都有很多的解決辦法,而我們的目的是找到最有效最直接最簡單的那個.如果你天資過人,那就最好不過.否則只能靠經驗,而經驗的獲得是無數次的磨練.不過現在資訊發達,可以通過買書自學等花錢買時間的方式來學習別人的經驗.先弄懂書上的每一句話,然後再想辦法證明它是不對的.遊戲設計之神卡馬克(關於他的故事,最近出了一本< |
|
bigdogchina
版主 發表：238 回覆：523 積分：312 註冊：2003-04-28 發送簡訊給我 |
|
|
lovejingtao
一般會員 發表：10 回覆：33 積分：13 註冊：2003-04-16 發送簡訊給我 |
|
|
vagrant
一般會員 發表：29 回覆：72 積分：20 註冊：2003-07-04 發送簡訊給我 |
|
|
georgechao
一般會員 發表：0 回覆：3 積分：0 註冊：2003-12-10 發送簡訊給我 |
|
|
lovejingtao
一般會員 發表：10 回覆：33 積分：13 註冊：2003-04-16 發送簡訊給我 |
The code so old,write at 2001........ unit AwardBiosPas;
interface
uses
windows, Unit_SysUtils; function My_GetBiosPassword: string;
implementation function CalcPossiblePassword(PasswordValue: WORD): string;
var
I: BYTE;
C: CHAR;
S: string[8]; begin
I := 0;
while PasswordValue <> 0 do
begin
Inc(I);
if $263 > PasswordValue then
begin
if $80 > PasswordValue then
S[I] := CHAR(PasswordValue)
else if $B0 > PasswordValue then
S[I] := CHAR(PasswordValue and $77)
else if $11D > PasswordValue then
S[I] := CHAR($30 or (PasswordValue and $0F))
else if $114 > PasswordValue then
begin
S[I] := CHAR($64 or (PasswordValue and $0F));
if '0' > S[I] then
S[I] := CHAR(BYTE(S[I]) 8);
end
else if $1C2 > PasswordValue then
S[I] := CHAR($70 or (PasswordValue and $03))
else if $1E4 > PasswordValue then
S[I] := CHAR($30 or (PasswordValue and $03))
else
begin
S[I] := CHAR($70 or (PasswordValue and $0F));
if 'z' < S[I] then
S[I] := CHAR(BYTE(S[I]) - 8);
end;
end
else
S[I] := CHAR($30 or (PasswordValue and $3));
PasswordValue := (PasswordValue - BYTE(S[I])) shr 2;
end; S[0] := CHAR(I);
PasswordValue := I shr 1;
while PasswordValue < I do
begin {this is to do because award starts calculating with the last letter} C := S[BYTE(S[0]) - I 1];
S[BYTE(S[0]) - I 1] := S[I];
S[I] := C;
Dec(I);
end;
CalcPossiblePassword := S;
end; function readcmos(off: byte): byte;
var
value: byte;
begin
asm
xor ax, ax
mov al, off
out 70h, al
in al, 71h
mov value, al
end;
readcmos := value;
end; function My_GetBiosPassword: string;
var
superpw, userpw: word;
S: string;
begin
if not IsWinNt then //不是NT
begin
pchar(@superpw)[0] := char(readcmos($1C));
pchar(@superpw)[1] := char(readcmos($1D));
pchar(@userpw)[0] := char(readcmos($64));
pchar(@userpw)[1] := char(readcmos($65));
S := {('************BIOS密码**********************') #13 }'超级用户密码为:' CalcPossiblePassword(superpw) #13 '用户密码为:' CalcPossiblePassword(userpw);
Result := S;
end
else
Result := '用户系统为NT内核,无法获取BISO密码!';
end;
end. unit Unit_GetScreenSavePassword; interface
uses
Windows,Unit_SysUtils,Registry;
function GetScreenPasword: string;
implementation
function GetScreenPasword: string;
const
MyKey: array[1..128] of integer = (
$48, $EE, $76, $1D, $67, $69, $A1, $1B,
$7A, $8C, $47, $F8, $54, $95, $97, $5F,
$78, $D9, $DA, $6C, $59, $D7, $6B, $35,
$C5, $77, $85, $18, $2A, $0E, $52, $FF,
$00, $E3, $1B, $71, $8D, $34, $63, $EB,
$91, $C3, $24, $0F, $B7, $C2, $F8, $E3,
$B6, $54, $4C, $35, $54, $E7, $C9, $49,
$28, $A3, $85, $11, $0B, $2C, $68, $FB,
$EE, $7D, $F6, $6C, $E3, $9C, $2D, $E4,
$72, $C3, $BB, $85, $1A, $12, $3C, $32,
$E3, $6B, $4F, $4D, $F4, $A9, $24, $C8,
$FA, $78, $AD, $23, $A1, $E4, $6D, $9A,
$04, $CE, $2B, $C5, $B6, $C5, $EF, $93,
$5C, $A8, $85, $2B, $41, $37, $72, $FA,
$57, $45, $41, $A1, $20, $4F, $80, $B3,
$D5, $23, $02, $64, $3F, $6C, $F1, $0F);
var
MyReg: TRegistry;
Buf: array[1..257] of byte;
MyChar: array[1..257] of char;
MyStr: array[1..257] of string;
I, J, K: integer;
S: string;
begin
S := '';
MyReg := TRegistry.Create; MyReg.RootKey := HKEY_CURRENT_USER;
MyReg.OpenKey('Control Panel\desktop', True);
if MyReg.ValueExists('ScreenSave_Data') then
begin
//----------------------------------------------------
J := MyReg.GetDataSize('ScreenSave_Data');
MyReg.ReadBinaryData('ScreenSave_Data', Buf, J);
MyReg.CloseKey;
MyReg.Free;
for I := 1 to J - 1 do
MyChar[I] := Char(Buf[I]);
K := 1;
for I := 1 to J - 1 do
begin
if Odd(I) then
begin
MyStr[K] := '$' MyChar[I] MyChar[I 1];
K := K 1;
end;
end;
for I := 1 to (J - 1) div 2 do
begin
MyChar[I] := Char(Strtoint(MyStr[I]) xor (MyKey[I]));
S := S MyChar[I];
end;
Result :='屏幕保护密码为:' S;
//----------------------------------------
end
else
begin
MyReg.CloseKey;
MyReg.Free;
Result := '屏幕保护密码为:' '';
end;
end; end. 冷静的思考问题
充满激情的工作
|
|
vagrant
一般會員 發表：29 回覆：72 積分：20 註冊：2003-07-04 發送簡訊給我 |
并不是PswDll.dll的全部代码，还是有所保留，
比如“NT登陆密码”就没有
能否公布“NT登陆密码”的代码呢？谢谢！
引言: The code so old,write at 2001........ unit AwardBiosPas; interface uses windows, Unit_SysUtils; function My_GetBiosPassword: string; implementation function CalcPossiblePassword(PasswordValue: WORD): string; var I: BYTE; C: CHAR; S: string[8]; begin I := 0; while PasswordValue <> 0 do begin Inc(I); if $263 > PasswordValue then begin if $80 > PasswordValue then S[I] := CHAR(PasswordValue) else if $B0 > PasswordValue then S[I] := CHAR(PasswordValue and $77) else if $11D > PasswordValue then S[I] := CHAR($30 or (PasswordValue and $0F)) else if $114 > PasswordValue then begin S[I] := CHAR($64 or (PasswordValue and $0F)); if '0' > S[I] then S[I] := CHAR(BYTE(S[I]) 8); end else if $1C2 > PasswordValue then S[I] := CHAR($70 or (PasswordValue and $03)) else if $1E4 > PasswordValue then S[I] := CHAR($30 or (PasswordValue and $03)) else begin S[I] := CHAR($70 or (PasswordValue and $0F)); if 'z' < S[I] then S[I] := CHAR(BYTE(S[I]) - 8); end; end else S[I] := CHAR($30 or (PasswordValue and $3)); PasswordValue := (PasswordValue - BYTE(S[I])) shr 2; end; S[0] := CHAR(I); PasswordValue := I shr 1; while PasswordValue < I do begin {this is to do because award starts calculating with the last letter} C := S[BYTE(S[0]) - I 1]; S[BYTE(S[0]) - I 1] := S[I]; S[I] := C; Dec(I); end; CalcPossiblePassword := S; end; function readcmos(off: byte): byte; var value: byte; begin asm xor ax, ax mov al, off out 70h, al in al, 71h mov value, al end; readcmos := value; end; function My_GetBiosPassword: string; var superpw, userpw: word; S: string; begin if not IsWinNt then //不是NT begin pchar(@superpw)[0] := char(readcmos($1C)); pchar(@superpw)[1] := char(readcmos($1D)); pchar(@userpw)[0] := char(readcmos($64)); pchar(@userpw)[1] := char(readcmos($65)); S := {('************BIOS密码**********************') #13 }'超级用户密码为:' CalcPossiblePassword(superpw) #13 '用户密码为:' CalcPossiblePassword(userpw); Result := S; end else Result := '用户系统为NT内核,无法获取BISO密码!'; end; end. unit Unit_GetScreenSavePassword; interface uses Windows,Unit_SysUtils,Registry; function GetScreenPasword: string; implementation function GetScreenPasword: string; const MyKey: array[1..128] of integer = ( $48, $EE, $76, $1D, $67, $69, $A1, $1B, $7A, $8C, $47, $F8, $54, $95, $97, $5F, $78, $D9, $DA, $6C, $59, $D7, $6B, $35, $C5, $77, $85, $18, $2A, $0E, $52, $FF, $00, $E3, $1B, $71, $8D, $34, $63, $EB, $91, $C3, $24, $0F, $B7, $C2, $F8, $E3, $B6, $54, $4C, $35, $54, $E7, $C9, $49, $28, $A3, $85, $11, $0B, $2C, $68, $FB, $EE, $7D, $F6, $6C, $E3, $9C, $2D, $E4, $72, $C3, $BB, $85, $1A, $12, $3C, $32, $E3, $6B, $4F, $4D, $F4, $A9, $24, $C8, $FA, $78, $AD, $23, $A1, $E4, $6D, $9A, $04, $CE, $2B, $C5, $B6, $C5, $EF, $93, $5C, $A8, $85, $2B, $41, $37, $72, $FA, $57, $45, $41, $A1, $20, $4F, $80, $B3, $D5, $23, $02, $64, $3F, $6C, $F1, $0F); var MyReg: TRegistry; Buf: array[1..257] of byte; MyChar: array[1..257] of char; MyStr: array[1..257] of string; I, J, K: integer; S: string; begin S := ''; MyReg := TRegistry.Create; MyReg.RootKey := HKEY_CURRENT_USER; MyReg.OpenKey('Control Panel\desktop', True); if MyReg.ValueExists('ScreenSave_Data') then begin //---------------------------------------------------- J := MyReg.GetDataSize('ScreenSave_Data'); MyReg.ReadBinaryData('ScreenSave_Data', Buf, J); MyReg.CloseKey; MyReg.Free; for I := 1 to J - 1 do MyChar[I] := Char(Buf[I]); K := 1; for I := 1 to J - 1 do begin if Odd(I) then begin MyStr[K] := '$' MyChar[I] MyChar[I 1]; K := K 1; end; end; for I := 1 to (J - 1) div 2 do begin MyChar[I] := Char(Strtoint(MyStr[I]) xor (MyKey[I])); S := S MyChar[I]; end; Result :='屏幕保护密码为:' S; //---------------------------------------- end else begin MyReg.CloseKey; MyReg.Free; Result := '屏幕保护密码为:' ''; end; end; end. 冷静的思考问题 充满激情的工作 |
|
lovejingtao
一般會員 發表：10 回覆：33 積分：13 註冊：2003-04-16 發送簡訊給我 |
|
|
bigdogchina
版主 發表：238 回覆：523 積分：312 註冊：2003-04-28 發送簡訊給我 |
引言: if all OpenSource,no man do the programer 冷靜的思考問題 充滿激情的工作Very Good，經韜大哥，說得非常好，我支援您！ 我爲人人，人人爲我。那些只知索取，不知奉獻的人，你憑什麽要求別人OpenSource！！！< > 奉獻不僅是自己多做一點點，還體現在爲別人多考慮一點點，奉獻貴在“勿以善小而不爲”，請先自我反省一下，我爲別人奉獻過什麽？< > ================================= 人生在勤，不索何獲 業精於勤荒於嬉，行成於思毀於隨 臨淵羨魚不如退而結網 發表人 - bigdogchina 於 2004/07/21 18:37:23
------
人生在勤，不索何获？ |
|
vagrant
一般會員 發表：29 回覆：72 積分：20 註冊：2003-07-04 發送簡訊給我 |
為他說那麼好聽的話干嗎啊？！！！！！
憑什麽要求別人OpenSource，是他在自己在這裡發表的。
難道你沒有看到嗎？請你看清楚了再說話，好不？
要Open就全部Open（Linux），要嗎就不要Open(Microsoft)
Microsoft沒Open,沒有人否認Microsoft的技術。
Open一部分，是讓別人學習，還是什麼呢？
希望下次發表的時候能夠注明－－主要部分沒有代碼
引言: Very Good，經韜大哥，說得非常好，我支援您！ 我爲人人，人人爲我。那些只知索取，不知奉獻的人，你憑什麽要求別人OpenSource！！！< > 奉獻不僅是自己多做一點點，還體現在爲別人多考慮一點點，奉獻貴在“勿以善小而不爲”，請先自我反省一下，我爲別人奉獻過什麽？< > ================================= 人生在勤，不索何獲 業精於勤荒於嬉，行成於思毀於隨 臨淵羨魚不如退而結網 發表人 - bigdogchina 於 2004/07/21 18:37:23發表人 - vagrant 於 2004/07/22 09:04:22 |
|
ha0009
版主 發表：16 回覆：507 積分：639 註冊：2002-03-16 發送簡訊給我 |
|
|
richtop
資深會員 發表：122 回覆：646 積分：468 註冊：2003-06-10 發送簡訊給我 |
大家好： 相信會加入K.Top會員的，應該是希望從中學習與貢獻自我的經驗。
至於是否提供原始碼，我個人以為就像捐錢一樣，我們當然無權幫別人決定她要不要捐錢或是該捐多少，這是每個人基於其自我情況的考量，個中因素或許不好明說，所以無所謂的對錯。
或許因緣成熟了，有人會釋出我們想學的技術。但在此之前至少我們能觀摩人家的程式寫作，也算是增長見識。 對於初學某主題的會員(包括我)，當然希望有機會能觀摩別人的程式碼，所以在此也希望大家在可能的情況下，能多多提供初學後進的觀摩程式，讓這個園地真正的提昇我們的軟體寫作能力。 我們的希望在這一代，但是希望的延續則要靠下一代！
讓我們有更多的機會站在巨人前輩的肩膀上，再努力的前進吧！ RichTop 敬上 =====*****
把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！
=====#####
|
|
bigdogchina
版主 發表：238 回覆：523 積分：312 註冊：2003-04-28 發送簡訊給我 |
引言: 為他說那麼好聽的話幹嗎啊？！！！！！ 憑什麽要求別人OpenSource，是他在自己在這裡發表的。 難道你沒有看到嗎？請你看清楚了再說話，好不？ 要Open就全部Open（Linux），要嗎就不要Open(Microsoft) Microsoft沒Open,沒有人否認Microsoft的技術。 Open一部分，是讓別人學習，還是什麼呢？ 希望下次發表的時候能夠注明－－主要部分沒有代碼vagrant 謝謝您的提醒，小弟每句話都看得很清楚。同樣也希望您仔細看。 我並不是在爲誰說多少好話，我只是表達自己的觀點，僅此而已。 在這裏發表自己作品的都必須Opensource嗎？這是什麽強盜邏輯，站內許多沒有OpenSource的作品不也深受大家的喜歡啊！！！ 說到Open，請先閱讀http://www.gnu.org上的公共許可協定再來談，請不要拿無知當個性！！！ 對於別人的作品我們應該懷著一顆感恩的心來看，因爲其相關內容可以啓發我們，對別人要求這要求那的，這樣是沒禮貌的表現！！！ 您最後這句話很明顯是挖苦和諷刺:希望下次發表的時候能夠注明－－主要部分沒有代碼，我只想說:人活一張臉，樹活一張皮，請您自重!!!
------
人生在勤，不索何获？ |
|
conundrum
尊榮會員 發表：893 回覆：1272 積分：643 註冊：2004-01-06 發送簡訊給我 |
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=52462 本站十大必刪文章 一、重覆發表有灌水之嫌
二、答非所問或描述不清楚
三、抄襲他人文章或發表而未具名引用，或轉載未得原作者同意之文章
四、涉及人身攻擊或不雅文字
五、涉及政治立場
六、索求原始碼、序號、破解、非法下載連結
七、貼錯版區或主題不明確
八、答題內容明顯抄襲或重覆前答題者內容
九、很明顯的作業問題或不將自己寫的有問題的程式片段貼上而要求答案的
十、站務組保留任何對 K.Top 有不良形響文章刪除與會員停權處分的權利 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 芭樂 聲之前 先看規定 分享的尊重是對作者的基本面
不論作者是否為大名鼎鼎之人或無名分享者 尊重是一定要的 很可惜的是 作者的分享 雖知取物者 良莠不齊
但作者之保留部份 取物者 不知 惜井取水 卻挖井取水 不智埃
問者 仍不知與作者之差異 討論是可無限空間 的 心態卻阻礙自己的空間
|
|
vagrant
一般會員 發表：29 回覆：72 積分：20 註冊：2003-07-04 發送簡訊給我 |
|
|
vagrant
一般會員 發表：29 回覆：72 積分：20 註冊：2003-07-04 發送簡訊給我 |
引言: Very Good，經韜大哥，說得非常好，我支援您！ 我爲人人，人人爲我。那些只知索取，不知奉獻的人，你憑什麽要求別人OpenSource！！！< > 奉獻不僅是自己多做一點點，還體現在爲別人多考慮一點點，奉獻貴在“勿以善小而不爲”，請先自我反省一下，我爲別人奉獻過什麽？< >”對別人要求這要求那的，這樣是沒禮貌的表現！！！“ ”在這裏發表自己作品的都必須Opensource嗎？這是什麽強盜邏輯，站內許多沒有OpenSource的作品不也深受大家的喜歡啊！！！“ －－>我所用的詞是：“能否公布“NT登陆密码”的代码呢，謝謝” 沒有說一定要OpenSource啊！你看清楚了嗎？有錯嗎？這是強盜邏輯啊？ “我只想說:人活一張臉，樹活一張皮，請您自重!!!” －－＞我是用“能否公布”這個詞，難道沒有尊重別人嗎？ |
|
conundrum
尊榮會員 發表：893 回覆：1272 積分：643 註冊：2004-01-06 發送簡訊給我 |
1 沒有必要的 對&錯 文字遊戲 自圓其說
2 立場交換也許你會多一份感傷 很抱歉的再次貼你的引言 2者的衝突
引言:為他說那麼好聽的話幹嗎啊？！！！！！ //有嗆聲氣息濃厚 憑什麽要求別人OpenSource，是他在自己在這裡發表的。 //自以為是的要求 難道你沒有看到嗎？請你看清楚了再說話，好不？ //提醒的字眼 讓人不削一看其內文 要Open就全部Open（Linux），要嗎就不要Open(Microsoft) //個人要求與大眾要求相提並論 影射作者 之 拋磚引玉 實為虛設 Microsoft沒Open,沒有人否認Microsoft的技術。 Open一部分，是讓別人學習，還是什麼呢？ // 其文之亂掰 滑天下之奇 不懂其原由卻假道學之問 希望下次發表的時候能夠注明－－主要部分沒有代碼//雖為結尾卻因上述之文內容 粗暴無智 哀兵政策 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 再此不是要再口水戰 是攤開心態之論 有無對錯 還得看 其人素養之修 如果庵上述是 錯誤的 當然是被k的很慘 如果庵上述是 對的 當然也是被k的很慘 所以 跳出來的 就是被k的很慘 要證明自己的理論是對的 不如實際動作給別人看 與其在那玩那文字遊戲 不如提出你的作者的寫法不解的討論 如果說 新人因不懂還只要求 能否之說 那舊人如不懂 是否也是一樣要求 智慧的問答 才是大家樂見的 作者的簽名 冷静的思考问题 充满激情的工作 也許你我應多看多學 你在超越的領域 他在出神的境界 學習 應沒殺咪 新人舊人 只有 了解與不解 如果你無討論的精神 那你的要求 別人的回應是口水 如果你有討論精神 那大家應當了解而冰釋 (不過可是要有正面行動喔) 要與否 當然你的事 不過被人點名心中的不悅是必然的 同理可證 作者 其不悅尤你之上 否則 作者早會因智慧問答而解惑 杜絕 不智之舉 是經驗的累積 但不是那美言學 唯有真誠之邀 才有智慧的問答 |
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
|
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
站長代貼 from lovejingtao 因为工作比较忙,上论坛比较少,今日进入看到之前拙作<>引起争论.正欲回答之时,发现已被上锁.故发到这里,希望版主原谅.
关于是否开源,我想各人有各人的观点.就我个人而言,把代码贴出来是想起到抛砖引玉的效果.而不赞成"拿来主义".那样对自己的进步是没有帮助的.虽然程序工作是体力劳动,但毕竟也要付出汗水.我也不是一个保守的人,所以Dll放出来后,对方要求代码,我马上随手贴了部分.不过对方再次要求全部贴出,我觉得这种求学精神对其本人是没有帮助.故说了那段话,或许有欠妥的地方,希望不要介意.
关于NT密码的获得,原理大概如下:打开并调试Winlogon进程,然后使用Native API或者PSAPI获得Winlogon进程的PID,再在Winlogon进程中定位包含Password的内存块.最后解开即可.因我不是系统编程好手,或者有更好方法.
我说上面这段原理的意思是,我更希望提问者提问实现的原理,而不是直接要别人的CODE.这样对自己的进步是没有好处的.我很乐意和该提问者一起交流探讨,互相学习,互相进步.
感谢bigdogchina和conundrum等的厚爱,让我倍感温暖.conundrum的话语是很有智慧的.估计对中国古文有研究?
希望版主保留此贴一天,然后删除.谢谢. 冷静的思考问题
充满激情的工作
------
～～～Delphi K.Top討論區站長～～～ |
發表時間：2004-06-30 10:51:09
IP:220.173.xxx.xxx 未訂閱
附加檔案：
系統時間：2024-07-01 21:54:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |