кому какие способы известны?

| Сообщение посчитали полезным:

на ВБ под Вин 9х :
Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Public Type BIOS_DATE
s As String * 8
End Type
Public Function BIOS() As Long
Dim sDB As BIOS_DATE
CopyMemory sDB, ByVal &HFFFF5, 8&
BIOS = DateSerial(Mid(sDB.s, 7, 2), Mid(sDB.s, 1, 2), Mid(sDB.s, 4, 2))
End Function

| Сообщение посчитали полезным:

d1v0x пишет:
на ВБ под Вин 9х :
Спасиб
А что, на nt жить не будет?

| Сообщение посчитали полезным:

не будет, открывай \device\physicalmemory и читай оттуда
ну или MmMapIoSpace

| Сообщение посчитали полезным:

В реестре прописана дата биоса и еще какая-то инфа. Только я не помню полный ключь.

| Сообщение посчитали полезным:

Delphi World:
В NT/2000/XP не получится прочитать значения прямо из BIOS, однако, ничего не мешает нам считать нужные значения из реестра.

procedure TBIOSInfo.GetRegInfoWinNT;
var
Registryv: TRegistry;
RegPath: string;
sl: TStrings;
begin
Params.Clear;
RegPath := '\HARDWARE\DESCRIPTION\System';
registryv := tregistry.Create;
registryv.rootkey := HKEY_LOCAL_MACHINE;
sl := nil;
try
registryv.Openkey(RegPath, false);
ShowMessage('BIOS Date: ' + RegistryV.ReadString('SystemBiosDate'));
sl := ReadMultirowKey(RegistryV, 'SystemBiosVersion');
ShowMessage('BIOS Version: ' + sl.Text);
except
end;
Registryv.Free;
if Assigned(sl) then
sl.Free;
end;

-----
Сколько ни наталкивали на мысль – все равно сумел увернуться

| Сообщение посчитали полезным:

imho чтение из реестра - не лучший способ. Я как то давно пробовал менять дату прямо в реестре - и ничего винда молча проглотила. Поэтому то что написано в реестре не всегда соответствует действительности.

Под NT можно также читать память напрямую, потребуется несколько несложных подготовительных шагов. Выше ssx об этом написал.

| Сообщение посчитали полезным:

2nd
... давно пробовал менять дату прямо в реестре ... Поэтому то что написано в реестре не всегда соответствует действительности.
После перезагрузки соответствует =)

-----
Don_t hate the cracker - hate the code.

| Сообщение посчитали полезным:

А этот ключ LM\HARDWARE\DESCRIPTION\System\\SystemBiosDate: всегда ли он присутствует в реестре, и во всех ли версиях NT?

А может ли кто-нить привести пример реализации способа ssx, желательно на VB или ASM

| Сообщение посчитали полезным:

0xy
Чтение из реестра действительно дело не защищающая программу.
так например делает один известный протектор.
И если мы знаем ключи. то при изменении реестра в области известных данных, то мы получим соответственно зареганную прогу.

-----
Есть вопросы ко мне? В личку!

| Сообщение посчитали полезным:

На васме раньше сырец был с \device\physicalmemory
Кажется Four-F делал.

| Сообщение посчитали полезным:

0xy пишет:
А этот ключ LM\HARDWARE\DESCRIPTION\System\\SystemBiosDate: всегда ли он присутствует в реестре, и во всех ли версиях NT?
всегда...
0xy пишет:
А может ли кто-нить привести пример реализации способа ssx, желательно на VB
могу... собссно в аттаче...

ca9c_05.06.2006_CRACKLAB.rU.tgz - get date bios NT.rar

| Сообщение посчитали полезным:

d1v0x
Спасиб, но вообщет я о другом спрашивал:

ssx пишет:
открывай \device\physicalmemory и читай оттуда
ну или MmMapIoSpace

Точнее, чет не получается задикларить CreateFileA

| Сообщение посчитали полезным:

winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_BIOS")
а это?? не то, что имел ввиду ssx, но зато БЕЗ реестра...
материал найден здесь... http://vbnet.mvps.org/index.html?code/wmi/win32_bios.htm
во вяском случае смена даты в реестре не повлияла на резултат этого кода (т.е. он отобразился правильно)

| Сообщение посчитали полезным:

Вот на Delphi нашел:

procedure TfmMain.BIOSInfo(OS : string);
var p : pointer;
s : string[255];
begin
if OS='NT' then begin with TRegistry.Create do
try RootKey := HKEY_LOCAL_MACHINE;
if OpenKeyReadOnly('HARDWARE\DESCRIPTION\System')
then lblBIOSDate2.Caption := ReadString('SystemBiosDate')
finally Free;
end;
end
else try
s[0] := #8;
p := Pointer($0FFFF5);
Move(p^,s[1],8);
lblBIOSDate2.Caption := copy(s,1,2) + '/' + copy(s,4,2) + '/' +copy (s,7,2);
except lblBIOSDate2.Caption := 'XX.XX.XXXX';
end;
end;

| Сообщение посчитали полезным:

wmic

-----
My love is very cool girl.

| Сообщение посчитали полезным:

Мои 50 копеек Написал на FASM-e. В архиве бинарник и исходник.

c2f2_08.08.2006_CRACKLAB.rU.tgz - bdr.zip

| Сообщение посчитали полезным:

arnix
DOS умер, и довольно давно

| Сообщение посчитали полезным:

ssx пишет:
DOS умер, и довольно давно

Знаем, знаем Зато можно читать дату из памяти без прав админа.

| Сообщение посчитали полезным: