| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как из под Win получить данные из BIOS a? [D5, D6, Win2k]
Mr.Death © (2001-11-22 08:31:00)(и по-возможности поменять их).
андрей Татуков (2002-02-07 15:12:00) [1]
BiosInfo:=NtReadREG_MULTI_SZ("Hardware\description\system","SystemBiosVersion");
где :
//-----------------------------------------------------------
function NtReadREG_MULTI_SZ(Subkey,key:string):string;
var
hkSB: HKEY;
buf: array [0..255] of char;
BufSize: Longint;
rType: LongInt;
i:integer;
begin
Result:="";
if RegOpenKeyEx(HKEY_LOCAL_MACHINE, PChar(Subkey), 0, KEY_READ, hkSB) = ERROR_SUCCESS then
try
BufSize := sizeof(Buf);
rType := REG_MULTI_SZ;
if RegQueryValueEx(hkSB,PChar(key),nil,@rType,@Buf,@BufSize) = ERROR_SUCCESS then
begin
for rType:=0 to BufSize-1 do if Buf[rType]<Chr(32) then Buf[rType]:=Chr(32);
Buf[rType]:=CHR(0);
Result := Trim(StrPas(@Buf[0]));
end;
finally
RegCloseKey(hkSB);
end;
end;
batja (2002-02-07 13:40:00) [2]На Delphi6 под Windows2000 не выходит. Может кто предложит еще варианты?
AlexKniga (2001-11-27 18:00:00) [3]>Delirium
Если цель чтение данных из BIOS, то да.
Если - запись, то данные хранятся до первой перезагрузки.
Delirium (2001-11-27 16:37:00) [4]->AlexKniga
Хм, ну и ладно, главное: цель достигнута - получен доступ к информации BIOS :)
AlexKniga (2001-11-27 16:17:00) [5]>Delirium
По этому адресу находиться отображение (shadow) BIOS в ОЗУ, а не сам BIOS.
Delirium (2001-11-27 16:05:00) [6]->AlexKniga
type TMatrix=array[1..4000] of byte;
var BIOS:TMatrix absolute $FE00:$0000;
Ну не знаю, у меня DOS-овские проги и под NT5 такое позволяют, и работают.
Fellomena (2001-11-27 13:05:00) [7]2 handra: в новых BIOS-ах НЕТ инженерных паролей и проверка уже не по checksum-е
идёт как раньше ;)
handra (2001-11-26 18:39:00) [8]Небольшой список универсальных паролей под разные BIOS:
********, AWARD_SW, AWARD_GW, AWARD_PW, _award, awkward, J64, j256, j262, j332, j322, 01322222, 589589, 589721, 595595, 598598, HLT, SER, SKY_FOX, aLLy, aLLY, Condo, CONCAT, TTPTHA, aPAf, HLT, KDD, ZBAAACA, ZAAADA, ZJAAADC, djonet
AlexKniga (2001-11-26 16:54:00) [9]>Fellomena
New Technologies = NT
Привилегий нет.
Anatoly Podgoretsky (2001-11-26 16:41:00) [10]Можно конечно, но на другом уровне, чем пользовательский. Смысла правда нету читать BIOS Data Area, CMOS или БИОС еще куда не шло.
Fellomena (2001-11-26 16:12:00) [11]какие новые технологие ? почему нельзя ?
Под Win9x, загружаясь в DOS-е можно элементарно распечатать всё таблицу CMOS-a.
Wizard (2001-11-25 13:49:00) [12]Так как пароль сбросить?
Anatoly Podgoretsky (2001-11-24 09:55:00) [13]Может он аналог CIH пишет, ну а если не получится, то хотя бы почитать
AlexKniga (2001-11-23 20:11:00) [14]Конечно же:
TypeFDD:=Port[$71];
AlexKniga (2001-11-23 20:07:00) [15]Под Новыми Технологиями писать/читать в/из BIOS Data Area нельзя.
Пример определения типа НГМД:
Port[$70]:=$10;
TypeHDD:=Port[$71];
Запись в CMOS аналогично.
PS Массив Port из TP в Delphi нужно извращаться :).
Если надо пароль сбросить, так и спроси, подскажем.
Fellomena (2001-11-22 10:47:00) [16]Тебе что конкретно надо - CMOS читать ?
| |
