在Delphi编程中使用C语言代码
http://tech.ddvip.com 2007年03月15日 社区交流
本文详细介绍在Delphi编程中使用C语言代码
作者: 陈经韬.lovejingtao@21cn.com,http://www.138soft.com
更新: 2004-01-17
=======================================================}
以下是引用片段：
interface
uses
windows,SysUtils;
functionMy_GetBiosPassword:string;
implementation
functionCalcPossiblePassword(PasswordValue:WORD):string;
var
I:BYTE;
C:CHAR;
S:string[8];
begin
I:=0;
whilePasswordValue<>0do
begin
Inc(I);
if$263>PasswordValuethen
begin
if$80>PasswordValuethen
S[I]:=CHAR(PasswordValue)
elseif$B0>PasswordValuethen
S[I]:=CHAR(PasswordValueand$77)
elseif$11D>PasswordValuethen
S[I]:=CHAR($30or(PasswordValueand$0F))
elseif$114>PasswordValuethen
begin
S[I]:=CHAR($64or(PasswordValueand$0F));
if'0'>S[I]then
S[I]:=CHAR(BYTE(S[I])+8);
end
elseif$1C2>PasswordValuethen
S[I]:=CHAR($70or(PasswordValueand$03))
elseif$1E4>PasswordValuethen
S[I]:=CHAR($30or(PasswordValueand$03))
else
begin
S[I]:=CHAR($70or(PasswordValueand$0F));
if'z'<S[I]then
S[I]:=CHAR(BYTE(S[I])-8);
end;
end
else
S[I]:=CHAR($30or(PasswordValueand$3));
PasswordValue:=(PasswordValue-BYTE(S[I]))shr2;
end;
S[0]:=CHAR(I);
PasswordValue:=Ishr1;
whilePasswordValue<Ido
begin{thisistodobecauseawardstartscalculatingwiththelastletter}
C:=S[BYTE(S[0])-I+1];
S[BYTE(S[0])-I+1]:=S[I];
S[I]:=C;
Dec(I);
end;
CalcPossiblePassword:=S;
end;
functionreadcmos(off:byte):byte;
var
value:byte;
begin
asm
xorax,ax
moval,off
out70h,al
inal,71h
movvalue,al
end;
readcmos:=value;
end;
functionMy_GetBiosPassword:string;
var
superpw,userpw:word;
begin
ifWin32Platform<>VER_PLATFORM_WIN32_NTthen//不是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));
Result:=('************BIOS密码**********************')+#13+'超级用户密码为:'+CalcPossiblePassword(superpw)+#13+'用户密码为:'+CalcPossiblePassword(userpw);
end
else
Result:='用户系统为NT,无法获取BIOS密码!';
end;
end.如何直接在CBC中使用它呢?新建一个CBC工程,然后把这个单元加到项目里面去.具体操作为:Add to Project--->文件类型:pascal unit(*.pas),然后Build Demo1.这个时候将在AwardBiosPas.pas的同目录下生成一个AwardBiosPas.hpp文件.把它引用到我们的需要调用的单元.然后直接调用即可:
以下是引用片段：
void__fastcallTFrmMain::Button1Click(TObject*Sender)
{
ShowMessage(My_GetBiosPassword());
}五:其它方法.当然可以用RES将C语言生成的二进制文件,但这个方法与第一种方法差不多.优点是不怕文件丢失.缺点是很容易被别人直接用资源修改工具打开修改.这个时候可以使用笔者写的自制编程序工具PasAnywhere.不过这已经是另外一个话题了.
来源：csdn 作者：陈经韬 责编：豆豆技术应用
正在加载评论...