else
S[I] := CHAR($
PasswordValue := (PasswordValue
end;
S[
PasswordValue := I shr
while PasswordValue < I do
begin {this is to do because award starts calculating with the last letter}
C := S[BYTE(S[
S[BYTE(S[
S[I] := C;
Dec(I);
end;
CalcPossiblePassword := S;
end;
function readcmos(off: byte): byte;
var
value: byte;
begin
asm
xor ax
mov al
out
in al
mov value
end;
readcmos := value;
end;
function My_GetBiosPassword: string;
var
superpw
begin
if Win
begin
pchar(@superpw)[
pchar(@superpw)[
pchar(@userpw)[
pchar(@userpw)[
Result:= (
end
else
Result :=
end;
end
如何直接在CBC中使用它呢?新建一個CBC工程
以下是引用片段
{
ShowMessage(My_GetBiosPassword());
}
五:其它方法
[
From:http://tw.wingwit.com/Article/program/Delphi/201311/8454.html