知识大全在Delphi编程中使用C语言代码[4]

Posted 2022-07-22 语言

篇首语：好高骛远的一无所得，埋头苦干的获得知识。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在Delphi编程中使用C语言代码[4]相关的知识，希望对你有一定的参考价值。

在Delphi编程中使用C语言代码[4] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

以下是引用片段　　interface 　　uses 　　windows SysUtils; 　　function My_GetBiosPassword: string; 　　implementation 　　function CalcPossiblePassword(PasswordValue: WORD): string; 　　var 　　I: BYTE; 　　C: CHAR; 　　S: string[ ]; 　　begin 　　I := ; 　　while PasswordValue <> do 　　begin 　　Inc(I); 　　if $ > PasswordValue then 　　begin 　　if $ > PasswordValue then 　　S[I] := CHAR(PasswordValue) 　　else if $B > PasswordValue then 　　S[I] := CHAR(PasswordValue and $ ) 　　else if $ D > PasswordValue then 　　S[I] := CHAR($ or (PasswordValue and $ F)) 　　else if $ > PasswordValue then 　　begin 　　S[I] := CHAR($ or (PasswordValue and $ F)); 　　if > S[I] then 　　S[I] := CHAR(BYTE(S[I]) + ); 　　end 　　else if $ C > PasswordValue then 　　S[I] := CHAR($ or (PasswordValue and $ )) 　　else if $ E > PasswordValue then 　　S[I] := CHAR($ or (PasswordValue and $ )) 　　else 　　begin 　　S[I] := CHAR($ or (PasswordValue and $ F)); 　　if z < S[I] then 　　S[I] := CHAR(BYTE(S[I]) ); 　　end; 　　end 　　else 　　S[I] := CHAR($ or (PasswordValue and $ )); 　　PasswordValue := (PasswordValue BYTE(S[I])) shr ; 　　end; 　　S[ ] := CHAR(I); 　　PasswordValue := I shr ; 　　while PasswordValue < I do 　　begin this is to do because award starts calculating with the last letter 　　C := S[BYTE(S[ ]) I + ]; 　　S[BYTE(S[ ]) I + ] := 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 h al 　　in al h 　　mov value al 　　end; 　　readcmos := value; 　　end; 　　function My_GetBiosPassword: string; 　　var 　　superpw userpw: word; 　　begin 　　if Win Platform <> VER_PLATFORM_WIN _NT then //不是NT 　　begin 　　pchar(@superpw)[ ] := char(readcmos($ C)); 　　pchar(@superpw)[ ] := char(readcmos($ D)); 　　pchar(@userpw)[ ] := char(readcmos($ )); 　　pchar(@userpw)[ ] := char(readcmos($ )); 　　Result:= ( ************BIOS密码********************** )+# + 超级用户密码为: + CalcPossiblePassword(superpw) + # + 用户密码为: + CalcPossiblePassword(userpw); 　　end 　　else 　　Result := 用户系统为NT 无法获取BIOS密码! ; 　　end; 　　end

　　如何直接在CBC中使用它呢?新建一个CBC工程然后把这个单元加到项目里面去具体操作为:Add to Project >文件类型:pascal unit(* pas) 然后Build Demo 这个时候将在AwardBiosPas pas的同目录下生成一个AwardBiosPas hpp文件把它引用到我们的需要调用的单元然后直接调用即可:

以下是引用片段　　void __fastcall TFrmMain::Button Click(TObject *Sender) 　　　　ShowMessage(My_GetBiosPassword()); 　　

　　五:其它方法当然可以用RES将C语言生成的二进制文件但这个方法与第一种方法差不多优点是不怕文件丢失缺点是很容易被别人直接用资源修改工具打开修改这个时候可以使用笔者写的自制编程序工具PasAnywhere 不过这已经是另外一个话题了

cha138/Article/program/Delphi/201311/24761

知识大全 在Delphi编程中使用C语言代码[4]

知识大全在Delphi编程中使用C语言代码[4]