From c9160d9591c42a028a4d6d803497c5103de5aed7 Mon Sep 17 00:00:00 2001 From: mbirth Date: Wed, 8 Dec 2004 09:47:52 +0000 Subject: [PATCH] Initial Revision --- Analyzer.cfg | 38 ++++ Analyzer.dof | 139 +++++++++++++ Analyzer.dpr | 14 ++ AnalyzerU.dfm | 558 ++++++++++++++++++++++++++++++++++++++++++++++++++ AnalyzerU.pas | 266 ++++++++++++++++++++++++ DLPORTIO.dll | Bin 0 -> 34816 bytes DLPORTIO.sys | Bin 0 -> 3584 bytes SMBus.pas | 209 +++++++++++++++++++ memmap.txt | 29 +++ 9 files changed, 1253 insertions(+) create mode 100644 Analyzer.cfg create mode 100644 Analyzer.dof create mode 100644 Analyzer.dpr create mode 100644 AnalyzerU.dfm create mode 100644 AnalyzerU.pas create mode 100644 DLPORTIO.dll create mode 100644 DLPORTIO.sys create mode 100644 SMBus.pas create mode 100644 memmap.txt diff --git a/Analyzer.cfg b/Analyzer.cfg new file mode 100644 index 0000000..5e8598d --- /dev/null +++ b/Analyzer.cfg @@ -0,0 +1,38 @@ +-$A8 +-$B- +-$C+ +-$D+ +-$E- +-$F- +-$G+ +-$H+ +-$I+ +-$J- +-$K- +-$L+ +-$M- +-$N+ +-$O+ +-$P+ +-$Q- +-$R- +-$S- +-$T- +-$U- +-$V+ +-$W- +-$X+ +-$Y+ +-$Z1 +-cg +-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +-H+ +-W+ +-M +-$M16384,1048576 +-K$00400000 +-LE"c:\program files\borland\delphi7\Projects\Bpl" +-LN"c:\program files\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/Analyzer.dof b/Analyzer.dof new file mode 100644 index 0000000..57f19d0 --- /dev/null +++ b/Analyzer.dof @@ -0,0 +1,139 @@ +[FileVersion] +Version=7.0 +[Compiler] +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=0 +R=0 +S=0 +T=0 +U=0 +V=1 +W=0 +X=1 +Y=2 +Z=1 +ShowHints=1 +ShowWarnings=1 +UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +NamespacePrefix= +SymbolDeprecated=1 +SymbolLibrary=1 +SymbolPlatform=1 +UnitLibrary=1 +UnitPlatform=1 +UnitDeprecated=1 +HResultCompat=1 +HidingMember=1 +HiddenVirtual=1 +Garbage=1 +BoundsError=1 +ZeroNilCompat=1 +StringConstTruncated=1 +ForLoopVarVarPar=1 +TypedConstVarPar=1 +AsgToTypedConst=1 +CaseLabelRange=1 +ForVariable=1 +ConstructingAbstract=1 +ComparisonFalse=1 +ComparisonTrue=1 +ComparingSignedUnsigned=1 +CombiningSignedUnsigned=1 +UnsupportedConstruct=1 +FileOpen=1 +FileOpenUnitSrc=1 +BadGlobalSymbol=1 +DuplicateConstructorDestructor=1 +InvalidDirective=1 +PackageNoLink=1 +PackageThreadVar=1 +ImplicitImport=1 +HPPEMITIgnored=1 +NoRetVal=1 +UseBeforeDef=1 +ForLoopVarUndef=1 +UnitNameMismatch=1 +NoCFGFileFound=1 +MessageDirective=1 +ImplicitVariants=1 +UnicodeToLocale=1 +LocaleToUnicode=1 +ImagebaseMultiple=1 +SuspiciousTypecast=1 +PrivatePropAccessor=1 +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 +[Linker] +MapFile=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription=SONY VAIO 0x57 Analyzer +[Directories] +OutputDir= +UnitOutputDir= +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath= +Packages=vcl;dclOfficeXP;vcldb;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;vclactnband;dclusr;adortl +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir=C:\Program Files\Borland\Delphi7\Bin\ +[Version Info] +IncludeVerInfo=1 +AutoIncBuild=1 +MajorVer=1 +MinorVer=0 +Release=0 +Build=2 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=1033 +CodePage=1252 +[Version Info Keys] +CompanyName= +FileDescription=Parses SONY VAIO security eeprom dump and extracts some interesting information. +FileVersion=1.0.0.2 +InternalName=Analyzer +LegalCopyright= +LegalTrademarks= +OriginalFilename=Analyzer.exe +ProductName=SONY VAIO 0x57 Analyzer +ProductVersion=1.0.0.0 +Comments= +[HistoryLists\hlUnitAliases] +Count=1 +Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/Analyzer.dpr b/Analyzer.dpr new file mode 100644 index 0000000..24dd4cc --- /dev/null +++ b/Analyzer.dpr @@ -0,0 +1,14 @@ +program Analyzer; + +uses + Forms, + AnalyzerU in 'AnalyzerU.pas' {AForm}; + +{$R *.res} + +begin + Application.Initialize; + Application.Title := 'SONY VAIO 0x57 Analyzer'; + Application.CreateForm(TAForm, AForm); + Application.Run; +end. diff --git a/AnalyzerU.dfm b/AnalyzerU.dfm new file mode 100644 index 0000000..e26f411 --- /dev/null +++ b/AnalyzerU.dfm @@ -0,0 +1,558 @@ +object AForm: TAForm + Left = 192 + Top = 107 + Width = 517 + Height = 407 + Caption = 'SONY VAIO 0x57 Analyzer' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object LabelHeading: TLabel + Left = 8 + Top = 8 + Width = 321 + Height = 29 + Caption = 'SONY VAIO 0x57 Analyzer' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold, fsItalic] + ParentFont = False + Transparent = True + end + object ButtonOpen: TButton + Left = 368 + Top = 8 + Width = 129 + Height = 25 + Caption = 'Open dump...' + TabOrder = 0 + OnClick = ButtonOpenClick + end + object PageControl1: TPageControl + Left = 8 + Top = 48 + Width = 497 + Height = 329 + ActivePage = SheetSMBus + TabOrder = 1 + object SheetParsed: TTabSheet + Caption = 'Parsed info' + object GroupBox1: TGroupBox + Left = 8 + Top = 0 + Width = 417 + Height = 89 + Caption = 'Password' + TabOrder = 0 + object Label3: TLabel + Left = 9 + Top = 28 + Width = 79 + Height = 13 + Caption = 'Encrypted bytes:' + end + object Label4: TLabel + Left = 37 + Top = 51 + Width = 49 + Height = 13 + Caption = 'Password:' + end + object LabelPwdAsk: TLabel + Left = 8 + Top = 72 + Width = 401 + Height = 13 + Alignment = taCenter + AutoSize = False + Caption = 'Ask for password at startup' + Enabled = False + end + object LabelPwdSetM: TLabel + Left = 88 + Top = 11 + Width = 153 + Height = 13 + Alignment = taCenter + AutoSize = False + Caption = 'Machine password' + Enabled = False + end + object LabelPwdSetU: TLabel + Left = 256 + Top = 11 + Width = 153 + Height = 13 + Alignment = taCenter + AutoSize = False + Caption = 'User password' + Enabled = False + end + object EditPwdEncM: TEdit + Left = 88 + Top = 24 + Width = 153 + Height = 22 + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Text = '00 00 00 00 00 00 00' + end + object EditPwdM: TEdit + Left = 88 + Top = 48 + Width = 57 + Height = 22 + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Text = '.......' + end + object EditPwdEncU: TEdit + Left = 256 + Top = 24 + Width = 153 + Height = 22 + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 2 + Text = '00 00 00 00 00 00 00' + end + object EditPwdU: TEdit + Left = 256 + Top = 48 + Width = 57 + Height = 22 + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + Text = '.......' + end + end + object GroupBox2: TGroupBox + Left = 8 + Top = 96 + Width = 281 + Height = 65 + Caption = 'UUID' + TabOrder = 1 + object Label5: TLabel + Left = 9 + Top = 44 + Width = 69 + Height = 13 + Caption = 'Ethernet MAC:' + end + object EditUUID: TEdit + Left = 8 + Top = 16 + Width = 265 + Height = 22 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Text = '........-....-....-....-............' + end + object EditMAC: TEdit + Left = 80 + Top = 40 + Width = 129 + Height = 22 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Text = '00:00:00:00:00:00' + end + end + object GroupBox3: TGroupBox + Left = 304 + Top = 96 + Width = 137 + Height = 65 + Caption = 'OEM Info' + TabOrder = 2 + object LabelContinent: TLabel + Left = 8 + Top = 40 + Width = 121 + Height = 13 + Alignment = taCenter + AutoSize = False + Caption = '---' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + object MemoOEM: TMemo + Left = 8 + Top = 16 + Width = 121 + Height = 22 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + Lines.Strings = ( + '................') + ParentFont = False + ReadOnly = True + TabOrder = 0 + end + end + object GroupBox4: TGroupBox + Left = 8 + Top = 168 + Width = 337 + Height = 121 + Caption = 'Machine' + TabOrder = 3 + object Label6: TLabel + Left = 8 + Top = 24 + Width = 73 + Height = 13 + Caption = 'Machine name:' + end + object Label7: TLabel + Left = 248 + Top = 24 + Width = 44 + Height = 13 + Caption = 'Revision:' + end + object Label8: TLabel + Left = 229 + Top = 93 + Width = 56 + Height = 13 + Caption = 'Code: PCG-' + end + object Label9: TLabel + Left = 10 + Top = 68 + Width = 67 + Height = 13 + Caption = 'Serial number:' + end + object Label10: TLabel + Left = 9 + Top = 91 + Width = 73 + Height = 13 + Caption = 'Date of manuf.:' + end + object LabelCountry: TLabel + Left = 84 + Top = 24 + Width = 157 + Height = 13 + Alignment = taRightJustify + AutoSize = False + Caption = '---' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + object EditName: TEdit + Left = 8 + Top = 40 + Width = 233 + Height = 22 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Text = '................................' + end + object EditRev: TEdit + Left = 248 + Top = 40 + Width = 81 + Height = 22 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 1 + Text = '..........' + end + object Edit4char: TEdit + Left = 288 + Top = 88 + Width = 41 + Height = 22 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 2 + Text = '....' + end + object EditSerial: TEdit + Left = 88 + Top = 64 + Width = 241 + Height = 22 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 3 + Text = '00000000-0000000................' + end + object EditDateMan: TEdit + Left = 88 + Top = 88 + Width = 137 + Height = 22 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Text = '..................' + end + end + end + object SheetRaw: TTabSheet + Caption = 'RAW view' + ImageIndex = 1 + object ListRAW: TListBox + Left = 0 + Top = 4 + Width = 489 + Height = 241 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ItemHeight = 14 + ParentFont = False + TabOrder = 0 + end + end + object SheetSMBus: TTabSheet + Caption = 'SMBus' + ImageIndex = 3 + object Label1: TLabel + Left = 96 + Top = 272 + Width = 306 + Height = 29 + Caption = 'UNDER CONSTRUCTION' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + object GroupBox5: TGroupBox + Left = 0 + Top = 0 + Width = 489 + Height = 41 + Caption = 'PCI Information / SMBus Controller' + TabOrder = 0 + object LabelStatus: TLabel + Left = 48 + Top = 18 + Width = 433 + Height = 13 + AutoSize = False + Caption = 'Push button to scan PCI bus for SMBus controller.' + end + object ButtonPCIScan: TButton + Left = 8 + Top = 16 + Width = 33 + Height = 17 + Caption = 'Scan' + TabOrder = 0 + OnClick = ButtonPCIScanClick + end + end + object GroupSMBus: TGroupBox + Left = 0 + Top = 56 + Width = 489 + Height = 105 + Caption = 'SMBus' + Enabled = False + TabOrder = 1 + object ButtonSMBScan: TButton + Left = 8 + Top = 16 + Width = 75 + Height = 17 + Caption = 'Enum SMBus' + Enabled = False + TabOrder = 0 + OnClick = ButtonSMBScanClick + end + end + end + object SheetAbout: TTabSheet + Caption = 'About' + ImageIndex = 2 + object Label2: TLabel + Left = 56 + Top = 248 + Width = 377 + Height = 41 + Alignment = taCenter + AutoSize = False + Caption = + 'A BIG *THANKS* goes to Jean Delvare for his collected infos abou' + + 't the SONY VAIO EEPROM.' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + WordWrap = True + end + object Label11: TLabel + Left = 80 + Top = 280 + Width = 327 + Height = 13 + Caption = + 'check out http://www.ensicaen.ismra.fr/~delvare/ for his homepag' + + 'e.' + end + object Label12: TLabel + Left = 88 + Top = 224 + Width = 312 + Height = 13 + Caption = 'This program was written by Markus Birth ' + Enabled = False + end + object MemoAbout: TMemo + Left = 88 + Top = 8 + Width = 313 + Height = 209 + Color = clMenu + Ctl3D = False + Lines.Strings = ( + 'This program was written after playing around with a SONY ' + 'VAIO notebook trying to find out the Power On Password.' + '' + 'After spending lots of hours searching the internet and trying ' + 'different tricks, I found Jean Delvare'#39's homepage[1] with infos ' + 'about the format of the data stored in the security eeprom. ' + 'Jean also wrote the eeprom-module[2] for lm-sensors[3] for ' + 'Linux. He mentioned that the eeprom is easily accessible via ' + 'the SMBus interface.' + '' + 'Since I didn'#39't want to hassle around with reading out the ' + 'SMBus, I - again - searched the internet and read that there ' + 'should be a utilty called GETSMBUS.EXE to read out SMBus ' + 'components included in the DOS-version of HWiNFO[4].' + '' + 'I downloaded the package, put the GETSMBUS.EXE onto a ' + 'FAT32-partition, booted from an old Win98-CD (press F5 at ' + 'CD-ROM-Support-Selection!) and ran GETSMBUS.EXE. It ' + 'created the 4 files SMBUS34.DAT, SMBUS54.DAT, SMBUS' + '57.DAT and SMBUS69.DAT. From Jean'#39's homepage I knew ' + 'the address of the security eeprom was 0x57 - so the file ' + 'SMBUS57.DAT was the one.' + '' + 'You can use this program to parse the file and extract the ' + + 'interesting information. Also the password is decrypted, just in' + + ' ' + 'case you forgot your machine password.' + '' + 'Have fun!' + '' + '' + '[1] http://www.ensicaen.ismra.fr/~delvare/' + '[2] http://www.ensicaen.ismra.fr/~delvare/vaio/' + '[3] http://www.lm-sensors.nu' + '[4] http://www.hwinfo.com') + ParentCtl3D = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 0 + end + end + end + object OpenDialog1: TOpenDialog + Filter = + 'Sony 0x57 dump|SMBUS57.DAT|Other dumps (SMBUS*.DAT)|SMBUS*.DAT|A' + + 'll files (*.*)|*.*' + Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing, ofDontAddToRecent] + Left = 336 + Top = 8 + end +end diff --git a/AnalyzerU.pas b/AnalyzerU.pas new file mode 100644 index 0000000..9588820 --- /dev/null +++ b/AnalyzerU.pas @@ -0,0 +1,266 @@ +unit AnalyzerU; + +interface + +uses + SysUtils, StdCtrls, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; + +type + TAForm = class(TForm) + LabelHeading: TLabel; + OpenDialog1: TOpenDialog; + ButtonOpen: TButton; + PageControl1: TPageControl; + SheetParsed: TTabSheet; + SheetRaw: TTabSheet; + ListRAW: TListBox; + SheetAbout: TTabSheet; + Label2: TLabel; + GroupBox1: TGroupBox; + EditPwdEncM: TEdit; + Label3: TLabel; + EditPwdM: TEdit; + Label4: TLabel; + LabelPwdAsk: TLabel; + GroupBox2: TGroupBox; + EditUUID: TEdit; + EditMAC: TEdit; + Label5: TLabel; + GroupBox3: TGroupBox; + MemoOEM: TMemo; + LabelContinent: TLabel; + GroupBox4: TGroupBox; + EditName: TEdit; + Label6: TLabel; + EditRev: TEdit; + Edit4char: TEdit; + Label7: TLabel; + Label8: TLabel; + EditSerial: TEdit; + Label9: TLabel; + EditDateMan: TEdit; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + MemoAbout: TMemo; + LabelCountry: TLabel; + EditPwdEncU: TEdit; + EditPwdU: TEdit; + LabelPwdSetM: TLabel; + LabelPwdSetU: TLabel; + SheetSMBus: TTabSheet; + GroupBox5: TGroupBox; + ButtonPCIScan: TButton; + LabelStatus: TLabel; + GroupSMBus: TGroupBox; + ButtonSMBScan: TButton; + Label1: TLabel; + procedure ButtonOpenClick(Sender: TObject); + procedure ButtonPCIScanClick(Sender: TObject); + procedure ButtonSMBScanClick(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + AForm: TAForm; + +implementation + +uses SMBus; + +var + MyPCI: PCI_Info; + +{$R *.dfm} + +procedure ShowRAW(x: array of byte); +var i: integer; + tmph, tmpb: string; +begin + tmph := ''; + tmpb := ''; + for i:=0 to 255 do begin + tmph := tmph + ' ' + IntToHex(x[i], 2); + if (x[i] IN [$20..$FF]) then tmpb := tmpb + Chr(x[i]) else tmpb := tmpb + '.'; + if ((i+1) MOD 16 = 0) then begin + AForm.ListRAW.Items.Add(Trim(tmph)+' '+Trim(tmpb)); + tmph := ''; + tmpb := ''; + end; + end; +end; + +procedure EDL(o: TLabel; state: boolean); +// Enable/Disable Label +begin + if state then begin + o.Enabled := true; + o.Font.Style := [fsBold]; + o.Font.Color := clGreen; + end else begin + o.Enabled := false; + o.Font.Style := []; + o.Font.Color := clBlack; + end; +end; + +function GetText(x: array of byte; pf, pt: integer): string; +var i: integer; +begin + Result := ''; + for i:=pf to pt do if (x[i]>0) then Result := Result + Chr(x[i]) else Break; +end; + +function GetHex(x: array of byte; pf, pt: integer; sep: boolean = true): string; +var i: integer; +begin + Result := ''; + for i:=pf to pt do if sep then Result := Result + ' ' + IntToHex(x[i],2) else Result := Result + IntToHex(x[i],2); + Result := Trim(Result); +end; + +procedure CheckPwd(x: array of byte); +var i: integer; + tmph: string; + isset: boolean; +begin + // Machine password + isset := false; + tmph := ''; + for i:=$00 to $06 do begin + if (x[i]>0) then isset := true; + tmph := tmph + ' ' + IntToHex(x[i], 2); + end; + AForm.EditPwdEncM.Text := Trim(tmph); + AForm.EditPwdEncM.Enabled := isset; + EDL(AForm.LabelPwdSetM, isset); + + if isset then begin + tmph := ''; + for i:=$00 to $06 do begin + tmph := tmph + Chr((x[i] DIV 2)); + end; + AForm.EditPwdM.Text := tmph; + end else AForm.EditPwdM.Text := '.......'; + AForm.EditPwdM.Enabled := isset; + + // User password + isset := false; + tmph := ''; + for i:=$07 to $0d do begin + if (x[i]>0) then isset := true; + tmph := tmph + ' ' + IntToHex(x[i], 2); + end; + AForm.EditPwdEncU.Text := Trim(tmph); + AForm.EditPwdEncU.Enabled := isset; + EDL(AForm.LabelPwdSetU, isset); + + if isset then begin + tmph := ''; + for i:=$07 to $0d do begin + tmph := tmph + Chr((x[i] DIV 2)); + end; + AForm.EditPwdU.Text := tmph; + end else AForm.EditPwdU.Text := '.......'; + AForm.EditPwdU.Enabled := isset; + + if (x[$0f]=$4E) OR (x[$0f]=$FF) then EDL(AForm.LabelPwdAsk, true) else EDL(AForm.LabelPwdAsk, false); +end; + +procedure CheckUUID(x: array of byte); +var i: integer; + tu, tm: string; +begin + tu := GetHex(x, $10, $1f, false); + tm := GetHex(x, $1a, $1f); + tu := Copy(tu,1,8)+'-'+Copy(tu,9,4)+'-'+Copy(tu,13,4)+'-'+Copy(tu,17,4)+'-'+Copy(tu,21,12); + for i:=1 to Length(tm) do if tm[i]=' ' then tm[i]:=':'; + AForm.EditUUID.Text := tu; + AForm.EditMAC.Text := tm; +end; + +procedure CheckOEM(x: array of byte); +var toem: string; +begin + toem := GetText(x, $20, $2f); + AForm.MemoOEM.Text := toem; + toem := Copy(toem,1,2); + if (toem = 'EU') then AForm.LabelContinent.Caption := 'Europe' + else if (toem = 'UC') then AForm.LabelContinent.Caption := 'North America' + else if (toem = 'JP') then AForm.LabelContinent.Caption := 'Japan' + else AForm.LabelContinent.Caption := '---'; +end; + +procedure CheckMachine(x: array of byte); +var i: integer; + mn, cc: string; + isin: boolean; +begin + mn := GetText(x, $80, $9f); + AForm.EditName.Text := mn; + AForm.EditRev.Text := GetText(x, $a0, $a9); + AForm.Edit4char.Text := GetText(x, $aa, $ad); + AForm.EditSerial.Text := GetText(x, $c0, $df); + AForm.EditDateMan.Text := GetText(x, $e0, $f2); + + cc := ''; + isin := false; + for i:=1 to Length(mn) do begin + if (mn[i]=')') then break; + if isin then cc := cc + mn[i]; + if (mn[i]='(') then isin := true; + end; + if (cc = 'FR') then AForm.LabelCountry.Caption := 'France' + else if (cc = 'GB') then AForm.LabelCountry.Caption := 'Great Britain' + else if (cc = 'DE') then AForm.LabelCountry.Caption := 'Germany' + else if (cc = 'UC') then AForm.LabelCountry.Caption := 'United States of America' + else if (cc = 'J') then AForm.LabelCountry.Caption := 'Japan' + else AForm.LabelCountry.Caption := '---'; +end; + +procedure TAForm.ButtonOpenClick(Sender: TObject); +var f: file of byte; + d: array[0..255] of byte; + i: integer; +begin + if OpenDialog1.Execute then begin + AssignFile(f, OpenDialog1.FileName); + Reset(f); + for i:=0 to 255 do Read(f,d[i]); + CloseFile(f); + ShowRAW(d); + CheckPwd(d); + CheckUUID(d); + CheckOEM(d); + CheckMachine(d); + PageControl1.ActivePageIndex := 0; + end; +end; + +procedure EnableGroup(grp: TGroupBox; new: boolean); +var i: integer; +begin + for i:=0 to grp.ControlCount-1 do grp.Controls[i].Enabled := new; + grp.Enabled := new; +end; + +procedure TAForm.ButtonPCIScanClick(Sender: TObject); +begin + Screen.Cursor := crHourGlass; + MyPCI := Scan_PCI(Application, AForm.LabelStatus); + Screen.Cursor := crDefault; + if (MyPCI.SMB_Address <> 0) AND (MyPCI.Vendor_Name <> '') then begin + AForm.LabelStatus.Caption := 'SMBus-Controller: '+MyPCI.Vendor_Name+' '+MyPCI.Device_Name+' Rev '+IntToStr(MyPCI.Rev)+' at addr 0x'+IntToHex(MyPCI.SMB_Address,4); + EnableGroup(AForm.GroupSMBus, true); + end; +end; + +procedure TAForm.ButtonSMBScanClick(Sender: TObject); +begin + //asd +end; + +end. diff --git a/DLPORTIO.dll b/DLPORTIO.dll new file mode 100644 index 0000000000000000000000000000000000000000..9849434db68a63483b9ede802875b0394ddd7a67 GIT binary patch literal 34816 zcmeHw4SZD9weOx}2t!E7APEMHGSW~{z9yMWKA4$I0wI6~I3dXd1%Z%Em<%CFlQVqS zsG$>Vl4EYUUTf*qXNh1hz2&vMKJI;Jy*eS3fMP{!D^+V_YwfW?MX@0$Fz>(iJ|{DY z)Z6>+eed1(d!Ddo?Y;KeYp=cb+G~HDJ;RE-_OMvSm=PfyX6z^+Jq7&pi$B_sJ!!_% zlh~07FW!9AQ1ar<<-WQWOH*^>=H{xcmg=g8hDO=4$!lp2G+62yEJdrzEL$6Eyz>(i z3~}ry@7$58*EYZ=-8|6{8_$Y?S*>A{0nG>-dD_h5F+y&_ko^2PgHJ7i zY&s$JB2@Yv(uDRLND0-I0L&jR=zvZbyiE3ea8i1sR(=2N_KWsR(NjqMicALi6hc z;rVgM*oQ!EBl@VPfascAnyZ21I)QFD-L@zqL<^|iW^a8X2oJ;q5keq2TM?q30>&0a zCBKaRC(=OBWo?4}1yX%kfIdp7f55od9pauq9(R-m$*~0H>7l&fut}a095&07g2NUW z$pU$zEi|};Qw@GC=*lH-@_3Q1vJH8BZ7A=L^>}=MZN3A@52q~aAy(nQf;_tuh`?9; zW?u&)z57GDK4_rkjR`sa?n?5*ZV(JeCa$>Cl443djLO&cuOF4w} zsP{$Kn-w`d0raNJ7aF*5YL&<&*`hLQ8%6HoYZm3170S6?=Q^NUPdKFrdi?=)k#b&6 z>Mp+GG~95i?d{=UuX%8D|B~T0WOXmOEcvFf80Kfblhj*qux;U#T$JoyGThz011gkC z{gnL-^<&_2I0b%CM4X8DjsPv_O4Us>84Dga1&4V>1Hs+`Wr?ZNq^wBb-P@V5Uirh_ zX#D9>52*x2l6IeiKtk%EE8%M}y8X%c4CFgw1Cx0>^^h35L-);D7Ic-MPPU&AfpO|1D5CCyD_1Y0PtXaZlg(>UOQ#)>422{Wubfu96$?1wK6_MbF#ypPMK1CTXgdRa{ zd*7Ev(k7F%wY++hFP$(J!juaPG&(`eMI4>h*FTQSgcJm-fh2^~6{A6aqFN`0ipW9w zRCL-?$(<)$l;i5QBqdIh>V(m8b^Avf*7teTF6cj;vV%rOIVm60fYBCO-{+Sx4DZEK z2#QwD?;et^o*p8AR%8%^(F~8ef{Seor!)c88OIH|zt~9Le0?8rQP+Y!F9*glO&G19 z>>o#*h-z$msQ>y4q+uCE1=Oi*G=--!oYDaf%6VOwc1jJy_?L2tU*N4b5k{UP2%zWOS!Ov@qV)^UEx_!b{p~Rhk8y2U0hO6Qv2UR7MO==_fX(Eoh`4M zbW^7kr$ZwXB=v_v`%3X_k$zN9TSZ#Y)43x3bv<1m(p&U&kw~uFV*X)OlPB9_$tD#{^Rgy<Zr@V@oWCWE06 z(>Xw5u47!9GusD(uzt?< z{vTs4!eh3f-S6L5q{NbuW(|!u$O|CuUWkiI(v=g+&w~Sh48A?1cR059?HFYbHBO1` zPB<0&e5ax7`i@d#@zP+Q(ec6k&)9}+VdX|5hJ;h8Y%cno!*Qbm<#SB%tnBcJ6u=LCmi0ˡz+kdXvQ!jY8s5^2qQk*p!B7| ztM#ql>LDG0+r!{S?l*Y6Nb7WT?z1FJh2lDZOywqc7;ATstDcarO(&LAK)YmDsahq3>x`vY9;N?QD;-Tg=aSOf`(BK4QE{MuEMlKPLLD(D1sb-)o~EHrY@3V5zy-mj@MhxYeKwK5F9o(Kdo1564gGv7bW)Z!3WfC?j0~Hj};t6 z%0I39!Ga@%HYm$YoiUwv89Q$`shhC8AEkaU&}pBHE4l28x5ZGCt{q(3Fb6!tk&7dXJipENVJd>E^-P!YL96Xnv6sL>`T|!Rz!f zW9%b3S|JOju=yuIfW_o>f@L5+LRuSiGv%Uu9gL_p2vfeOM?RQy(a(CXVrNlIn+s1R zeTGwxQ`IWGOksukPof{WB$VDh9TG>Zl<3Gnfp!6g;yY}C_4Fy}jl3(AX_ zI5A_sSjMMJK|~`%pB^IxqL!d!Kl^F_ubJtn{oj0j|2NBb8ERH%-~&SRSh3p2LW}lz zJ8h?q9z@5MDG#R~MiLG(&n!<2hD?PnD%<=~Uh<1X(4F=oin65L z{{X6>i}s#|r1lLX2^L7yL`Z614(zT^NsgrU9f)_gryoIr&-Icrk0yEa;xD10sn4F= z1m4f^{HLHicHzm|Cl7QV;s_lN$F8k)f|s1zzB(H1kEKOWcYQ*u?>Kl>sK+sAumOGc zAaRCIeF}r0vmLeE!Sdy0VmetDjE%X0_7AZmg1ua{7MdI*{tUF4$j zG8aN`L!=U)*Yp^{=hjVz48#Cjx4!@ufTM`%E&fcnOV zdjVS6+QQvw|B{PL1?xe1W-vTizA+e1lv9J@2{{S7Ie~f|yH}2E*3Y7e@F} zJ;a|^AE{@|a`$uv4BVug^Hg>_cT;Wf34vmNs`@I~7$#`3b(*XiKjf=A|77)fn(?uQ zb~8^PKAb}B>dYB5soxMKK#_{Br?TU*fPX0 z{<}HNW!}Ne+f(LIs&{x?Foe#!9rfent}hs}X#As!>*a&P$@eC5@*6aAWl6%dN@(r> ztLqyh?q5;g=n~@mBI(Di=?U=4D=NvOeDZCc>+cw#V}^EO+bT_u_!f5e3TMf8V4lssLdbbtS@*B{W~~CV3Y5S7szCA^c#C9 zUs7-5r%a~(pL9}B1a6Hc@h7VjM`y?Tr>jT*#68GUG^%YOC51``L&naMn9IRlOK@0f z9kdNS9irYFds5Lxdw-l$C`O#pW3Ph>ZLm^Sx+uJdJ(!rBAsyJ+pZO~U5`q|^>UrTYsUe2N!K+g1Je`Vr zs@If6UMM+ZwK_|z83m@_m;t^Fmas(Bbbk+CMLZ$u7K^NrHhSoY&!gIjo;OImnp)pC zRGe5KPg9D~gC;SC=^%&ruE$9ZKkFoyP(}oS>X+dpox6QcS@41KMK9cBR;) z+%yNP(fe*IlQ^rboK=FOFOY-+2ixSy!GSBC#R-EGf-4g&&rwIAP-mRd-(QRsgE$wa zdh`cpv=e}atfC26ACt>?qrw*M#L^b+y!{gIjl3I4$4P&)8`QSg1 zXHifqz0H8^M_5g^_TLOi7pb;w2sH_=o195ExM4izU9U>RRb zM#A{%tVg{f4o^HP4KawO413f&HIDrJc69lmya@S1SR!rUt1u()icR`taqoCu<>2*7 zF}-9#hrb4n{l#fiFY1VvK<{sdosP#^?pIFWpb)2o-Fx{FAyPAxi8%V{c7}$E@{9)g zZjX8jD@YPGcBm*9n7N+kh_Sj!pfN|k19y&rYSK=+=_LDl_3t2RXD*ja-Hv!aqki|O zgBmxqc5R<}H*z+JEWT&_oWBpzIL5Ug^1ilVV`Lg%AxcuARL2%M6sXPb({$L zu+pCks2mge97pQJo+XtKGstvEsRfE<3uAp3fXc~*Z8H*_`tXmafyqIJK~C!6FA&U zpVRANDBb!?tZLK!Y|eQgXCt1988c1tlqxash;x->(`vE6g$=nNO|qdV-QqZZU*}*R zEr*OCn{oPL!S04+MHC+Tb^_x9UsY@1 zNHpcwAqojFjyg@65$H+@UU<3)C#!{>TiC_jSOcdrh_>bZ;(Jr+Fr9cS5FO z*S?*!6%JmS(mXSGDSi8m>MD?~?`Mesed;1Am+)sNO04fR_3gU!3=qvJyDmKsxIK}- zF9k8x+NY-A6N#ym(5D&>)vvz;Swq_C^Xb#-7M>n?%}R>_Po*P~yF;(itGUCY+#Mn{ zgT`%ENEsh{VyFNvW>GLVEW7k`fv;jEnGn2$x5dFrG4iCrsW>7T!n--<|MMWd*2TtB zMb{|fH}o5=G%xU1j6Os(+uw@lSQ8i}KgpNJrQ0?W(&3fP+ghJ>C!bRIaw+y0mn>F+ z9ugz0uj5fDM7T6fEg0CCaFvsl!MFd|dns0H;8VQ!(aafm3G{Un3*3TjUhhX@_M~(o zf8)Y8gW<&{WF~*iGf6MO5MIV;8^N*5ZCY;||DxQYByFHZI!)NWN2Rx%FfmNsfhlSZ zW0w)kBJP^FoWJ$e8yd}N1;g8sTTaCeZMZ7{C zrGH#;sl-+xkf7Xa>K@mIHEVDO^x-%hRzmS1c|NuRUAHXFJuZJdx6nC#Iv=JY+H}-)4 zEyRDu(%iH1$5I&|AIe#%MO^|4z}!Ch^&3LLv$zGZW+KhNiNp~GI7Mv%KTs%r*qfXh zQSa%<$QI4S`=X$$1I=P(bhH>q4t`eHY6^aK*Zr} za!GNde+r3lUEqSdHESpKj@bYQT@O=ZJ#vHZ5JZ7Xy`3wHUl|C9duMdZpj{{!CN#~X zUKC3$T%!_7q+=Jy;DnjfVN4$5HuVosTG0{+b}y3t;gL6B5Q*BG>ZMB=x6El z{o{xpl{4W&`O2eKxlsZZYh+AD$+e1WB~n<;#*fU2eci=I$)8b)_S|zF^$SjNyWy(+ znS|ObP!oYlko-16l}Au!$)822!U!r^^4keDKY~h?{Mm%MK}UJ~Ih3BLr@M+Xe<7jjA}Cq%I|${8pms=pC!rQcP_2^RMJVeC>VY;Gq~y;h z?DPnh28rZ%6V@2P(#lox7ZCOXenErU|G?5%`ti(vP0?2IyC{SoW|jOJR#W2J>qgC56w@=bai&cLI`lX0G@$5SOWUyI|af=x$TB=r_Oo-V03 z=<(T-nxx0)N@}bgw@T{8K~01#NgdSVI6D2U9?yk8(&J7^?bqW4lKN9UUL>hM*5k`0 zb-x}jk<{<#aY<4YJzg%U_v`UBlG>uj*Wr9!k8hOJwR*fpQdjA5pQJ9<!7hoP0|3&B zl~qbOa!m7o1uxaqlgJ^DeIAtX&$9@3MBpY84sQG=vhRI5PBtkgHsDT0LLX<6sK#lc zoay`~2_yDe<`Xf?79pB|vt>jFC!L7#X=x)xu@p4XU66@grh<<6MTiFed?IFRgk~FHnJcM%DyDOv8BzZvYFIzN zVuCYbUozp62>0IwZsJ*AD&fq8`<{;LA)KVr={nXpcw4%phqy`VZ&WTy5Al)Im$a0i z?iDFMXX0`gC_3##x1rNc1Q_@|8!<;K%rzT8#+dt-R-U7m8B5js1VTyVm{QYfwO%73 zb^_gL(6UpAd1on(%ZZwcj2G)7wPC$tSlh+=$JNt<3SIVu4-qWRw05LuY(+c9Ybg@b zHiYs2N8ZZlMu;|GxA>XJ8zYOsaUw85TLQ1`t5p)$;UL~0Q`>1$pC47AP!m@vq_fvZ z5r51H>{uTkO{+CVDKw3u1tr%c8fjXK#o6RYGdohKolzc^??=cA9bKljOV-xw+AihY zpV;=EwZl|E7Wv-VzP3w_!1ckUrFXNU?;A6^racv)``B{|94!R!X>${}( z2ccEJ6;@OCE@^A*0~x;V|0dCN`fK8rzN6xev73c23HaAW0!?+C@C~{s^NCX$(-%Rk+46RP?A7R1PTkj zsf2PxP+0I?U)kM|2J9_5w!)uERM+ciWeFVLDWOTe{*x$s81KVT74gOTuar=Kh@i0k zn@%3?l?duq$v=%y&qYwTN&a#|9g3jlNd5{!eK&%dEBWbKg8D!NHBa(a5~?MFnlJfR zR|Zck0QPPj>+zQn)e1eWAFJa`%vjd8kjXh+F-~i%*_n5L!dz=d%p%|d=hpT)$rg`w zFC$w_ReFUjBJ1U~eVpV}lr54Y)YcF3TAZP{=Av8WQp|sJ27$d99nR0u<5()p(BoJt zOwr?**T?H|i==+`d#xH(2ep+2gWS09Qlxm#fQ##g-WNbNhi39>1PRC_6xc0UQL z-X%ztM5@13y+b5%*^CJH6H;eD<74c31kPJLwvePfN=3qaCDavzlaTR?l747RAH1Lh zOuRFHv^NcXf*F>4mi<)8 z?(lsn=-RYON&ROUFqqB^#Fa9VP|N2x30@`%Dv75jQa>bnifW)f z!IH*;coxN#dB-7LrN?JMpGo0g^2^X)9qdN&EE35o2yg|OQ(WMa`&mg1tbE-IiHT4Orl03&g{y%3k}?b zZckBC$W!p+x7)vhk=IOHC23 zwc$fK!sGOoZa;qwmW;Y^v!esr4i4Xww3~K#N_#qO$I8meB#+uE$Q0EvDElka#NP;; z8+LpqujRL^(OK=BX+ZJV}U;A~&$+JMGzRTGpU?VZ1QvEK7 zkgLDmYXfng$hlwSjGVgdIxaFXbN(Z!G(jQ35iYUc=(FND7GgZY6-kXVk1edJ;5nk? z4LA|Uy2j_-NK;)0^mX49KSaTqCe{aGao1vS3Vp+ndcEtU==b0N-DODoZ}DAmL+|12 z(;V!Ni8+Z?^saC&_;yTcJ~XO1V}*!xAiu9#gLMkM^Q;JXsLSwO3G@fXFLzRY19xAz zKSE@1JZvzVs3@O&9DQRgoHC3O5J{uro(?uDJU?!+a*jAoCJup{U^MA4Y)iyV;ZUDD zDD*?0Ad5-boq)=41X`ayn-({Y4+Hoz3@sf{+`@ecKIu;?<)aWc!)esg&7(CI#wm$(VokzSQbWqR z=Pvcs_AkNDBCH0u8VhZ-HQa=t683bIP$TiL@Dq|j}1wcrRrYu0yXaSK#b#4lEHd?EF z2YXbn5ug3Uo@SSMXyx49ub|=lsGh{<&A@ANKFvtvp+|aAD`p7nu)Sd$!X!2u-xiHi z_^LFz1MyXq3AjG2Pcw2pF5jr%KReQ2@;suZImLn=@*6Z-2%Jn3l#)9}PM9}CIqOlM z=VkFCCw(%*|AAKQW_s5;t&7 zV6KIZFlpf{n5C=B^f^}$!JymFwa`R5ZVE;;LDM4WVaB-VOqGqAZ7bC2T6^f`X4EvB zTH(5KFdF{g;WsNjBLMz-{Y`VvG~qx{XksxPW+l)gq*C%^v{Z!o{``gyf!Le3(! zQCCBCxAHCziy0kO#(fC}d|-}8-6og`&%w2aUG3*dzCn%CZVawgUJm{)mS39=r+?d5%FKKA;o~uc2N8B4)GBeco#VTTV>*_` z;Ct`%j&F~^X(?Ja$90U?^MaQWwtYo;?c(cTJm-0(S9$)z0erb^K(A#t)q*m>3T}vB ziTx<{k|xpyE>iFVWAHx zuHx8^rLlTS39Vd363+U(e8CT5gCCAaNmcH-a6m67*85oISE?7FzPk#rKYleFzH4F# z6S<_)Mf$t$ihlihx_eQ0Z6Deu{wX0owVKM5vv^yGv1+<_48E7iQ@Y|8<^EcJ8DA4B z6{x`b6VFyEeZ9XodnTS$;-BN!HhZzXcp>(D?4{sGVYdU0u=|;tAmfM z-@qmAUUU`Z`nnfg5#TZb^84_4#*4jN=HxCzAqp3WWZ)w#ec)aU{DP@=y)@XXT`pCX z!poq|L?!7z;MYs10I;weGx%b6VVJni>Fw(-ygCxQG7`J2#rU*C-{3P1`Xd@e$x2P2 zBq5MP7wC&+`3hv2E@YV$k!5FiFtK~*)j?DD&MSkl-8-rB1dabRd|?k;{~CO0PpjgC z!EyW!thiKb&@a_a9%=X6pwGgk+FP_swbzMDwP<#KCr!e*m|H6%Czi&rk;I0+4lS2- z`sEYR!19*zmE}lo@isSj>us6yYwGJM7eCn~*KPG$yv@yx%@)QI;~6V2SyfghFqC9v z%U3RqO0uF=D+-sdj9^x0TQhSKl*R1P<3)$ zRejw(RdQWp182*qT=riq*CN+^K{-2>YYH@bE!*mv-vr8dw|O}z1YRQ2_|0^*jdxpJbrfx` zp!M!(@>a{<8jH_c)fCYVE<|KoGq`>Ns8OTY8mO1+WM8wlssl$Qk2Ef#KYlJ>m)Kxb(wlvnt7EfIZb=BfIb1bVh!z-!V z)LhlPlWZ{_#-^i}kUicUA1{d?8CwX`Wb^0GXHLD94OOt(K*N@X#_bLHj4k!bB~>kQ zAxvPKS88kuG;y3rSJpMuG;U`rye%zNo4tz~cNDTfi?>-H1tp6&lrLYggaNLsSg~aF z^2PYAvc(%#tXjFGym0lM6kl9^C;fsM$1h%0Qc_rs6!3*5C6EjF0PNdaGp|L4Infn9 zExiR=scFQ)i%46>YuBzK!)xcQG_B#0RJH+UBYTqN}ZI;AOoHn>nm$*utRHtyRri zSoJ+#R_$v*5Q?exAzjr_RRb*nGMzgN_MSRu2#{^^)^Dy0Y$eF50y092+zcgi2!BTk zMx4P~o9n8pV0RQ?4_kOYZ>ekXF&TBEpIgXosE-NPvJHIJ`dv?xULlW` zW-axN+p55?Wy?;jj~fWGCV4Z$CiEZmX~5g!ohL-E<6RJihYd8=Q?;zAehcqo?`9Cq zYuJhYZUO5k+@{7Y@HRk2a3YR$18bYG?|-U6Z#UTk zi3P~&TF54-<oFnt+UEjxz@Z+D zfohlmt8UqeaUdhK@bN&#BR5yoU>0v|K=;!aAzZY7iQu+2)z{V5d27H&qoeVw4PPBc z5Wy$LnCMP1o*>7__(AKmvC|M`4kI{=rVP@7PDkj=H2F!bvk-dm@|zW*+ zn0%99emeEuKSz~NiPwG?VX+ij8f7d5G;+-d^vp+ncKC$*M^S`f$mna>_Sn2EQ zU$?Lgulrxm{5<_H&b~EpiLs3Pbjbt>y{stTgkKl}oDDbu@NyM1lWCm=#8k)*0b=T7 zt$?`I&(;7=0h|k%3i!!JW}XIk8gM$`!+}9+PjztITMcfid~fdH=iP=!VcltrGlbLddAaABl>0BhHNud4CfX z|5j9dPgMMGqv8)m#s4lU4s*fk0>7(`@W131x-=aE(p9dJXOw0ImTV@PWQ10WP(Fn( zpD#7=Z`A4^?P<{V^Ky?2D zf#mx+0_DGkK>4Xq3h9U1K~H(L825+m%)AV7`tEH(F*7^0_@2eMd#uL`m^odGTk@GX zO^YAS9_@dLug;(1|2LoiEOPuu>EJwW($HXd2XF%584W(8!NUa6!3P1S!0;cVG>m*N zpb_|o2_pRPaRDerAHm zHvvuo9NsMC`UKE~^m#y%_Z&gUr4mHB0fNXst-%mM&>bNNx`PDa5FR6#jD0vklxru5 zayvALBS}uzq^0W#g5C!h5BeH{;Jc9^%B=&O2w1K`2`~Za5`v&#MiBG`8s4hmEgIfT z5b`Bx&q&x0Cl z1EilcY}McnK>At3CJojDl0Enc0$&4|jPyo=NSAA{K!bC&{Mmph$hT-P8E`7fUG@S3 zKdiw|2m*f|a2oKc2Hyd^0qHk2_$naj`8Yw)A0Y^R9tOM-_=6hU2S|E)3~&bU4{LA_ zAocTu1cC3+;Ca{=jj=YQ4S=nHEwcF415S;9R5& z0Lg#mYA_3s{O?>q58!MKrUTwaX~;n^4e5D+Wd9j}sd^fa_>#TN1SET_g}^4@36j0t z3_L@c;N==Y{|O-RIS+Uf;DCldtEFEBERTg90nR{vNJ}5lAlX?u@Q08lcmR;@&_4!P z1-Ms(WN(Bgd%Fd6dw?g{0ayx1_C=8Fi{`#I;0d+@W&z3?^Z}9_>i`P?B@L4O5uWUB z0pK#=2^MMj1sZe$T7l2f;A}v;wvh%%dN*q@LBo^XVQOPWqzMjVZYl))M1y31)GsR1 zB=4IVd=-%T;S3<Cbpm z0=(BaBY6gzEzovw!D@)pkRQMd!avFPfQElk467kdNxlQ6Xi3P(UjiRRLusscK8K+h zWb{LG0j!4mj?p>)kty=bSX+Kh9#IF)!`FIdTmw(vt)M`w$+3U4nf^C6=UVAyVDd$O z?O1b;{Tofc3#(QA&%pk=zi1BMV3EHVtWy7)KfS!=S_=FB3`hQhd=)`_9m9;fp=Nv+ z$&7oK<^%*20)8{Ye7TO9KS4N$Fo5tX!fAvM!ZQd*5sn}nMmU6U5a9sAK7_{*_98rt zum_<7p%pi<40;JM=C2HP4I6_Nk#v@@*R-#WR$G@+%`&vv1vVv@HEdm z5NN*Hf$$xKe?oW_;R3>Bbi5T|CBjxR0z7)Tg^1H0bUVT$2uBcpf$%W`O*{(_Rv^@C z<$(SVeKzikuv_#5=Jy`-F@pXy0hfRv?b9)g{Rru-D4IwPeo-HJk0Z1q(31uDRfO9P zV2(xTKzIh}pCb$)e1Z_OAF~3&Z3qPjD-rHOs6mhszJc%%!ajr_A%qZqj_?-3c?1)9 z-h_|}URi(z2zMbof$$8%D+q5Pe2Q@0lc)zF8(|T`YJ^&ZZ3rC*dl3#IJdJP~;VlGu zB=BC3K+pdVZJf#$*EhC!m*IX4sQ>s#=iiObApP^z$= z|Br|kiWlP=61!pm0o_95m)CG+ML7^llzE%@M&(u*mf@bD&^O+7@l=r)w}%>cvQLSV z=##~bxG0D9F_orn;cvmFQv1u~8m-${vPf6qo=?;AhT6tLR)m`j^k`)wJaC5-xT@tw~ScYp(4VzmE z+20vf&|StwJ7sTqV`W{9cQL&vKSO0dPtG3v3w$csE7vYjiSZkwvn_8Nsf(?O;V-7C z6|BavT)$uXxfZWtOB!$`a;zfQc0-95?W<=bg)T7)o%bQM;}PodsEO zeW1lh^@|$8g0E^^d#w)dKwhd zM`J+qd(u=%BYM>mB?^Oeztg%>cBf4n30cqma|oCCDP0BS&TS6|6=?Q@5iVXTA$J*pqt0(T-k_q=jey_ zc?R&4aY|dqaE}Yz>Tr_l1!vsUVvQhQ&1tMG3)1HyWMTB99c&}BpzLDMY{gk`73gIa*hk2Aq(hA@P~N|r^6Ax9$pT&=0Gp_ zWpFvHQJ-`g!B{3vsSR8{nU}#$Do7n^G4YpB(`vMc`iGtllrjMCg=UGGwABPXk+wJE z|NVmdxdzU{egJthpzShdToELx6oNPydEkZUXN2i%h6@?Kk)b;z}V&Vo|Z z5=sjlz&`*>)-#%$1?{Z;50HBiPWTPbrO+2yC}~l*QA!DG6S@~YPP(5z(%Uq0ZU7Gn zJQ^Ww05&8?_1eG1en<*oXQZr!+>S=`9cxX0$(D*x-T=vH4Ct+ij5x;9F;;O>$@Plc zsAzK)q>k9=1modrcnXs0%jf^N2FzG98?Xkq##@uDbF7lJ$-2$D%i3lAmi61#$E;6S z|C{xv)(M%pnTs^^>fZvj(!5eX>2xezSeP-DbbX-eLci{oD3~_QUq4?8ofC zw7+S8+x~(5f_+l|bU7E?dnWpOc<5CnqyU%Bjrp=RA<}P|iQ( z{3s_qcTVmdxl(Rbt}pko+$VBR<^CpjO5XImyu7-+mb?e^zMt2hcRufGUe3b&h2;y^ zF8uq2PcM9bVVvV@jz=8_96xaU*zvR@%{kNgb?0-=CtQ85nfaUYx8=9zKa~G`zM4Or zAMc*)zTGXk8{Mt$UG8tW_qv~T_qm^UpL4@CFbi~+X9zL(m$_o}PVkc5b#iyEuDe_CwhRvwxiZ&)H|PV{&FeYempmYfdodZ*zunSnl8QHgh=hW?QZ8ep|oo1KWhGoUFxJ4`l7l>O~u= zWqa&DvwvtGmz|!yHv1>pSF&SsCg;q|xh-dYjxDD!XLXJ*XIsv#`PO_#{;K@y{O$Rj z`QOQZGXJUk=kibF|2+Sf`G3g2m~V1Va!+-qxo5d=bKBen?&a=M_XhV?_kHemcbEI` z-A}lWx?ga=>b^*_7T~NIfLT+mw^%dKi*H%~X#LoF)oRR`l98Sxwq%upZk2SnmZw{J@4^6&%zmw<&HZY z_c(eSzjVCo_`q@5G0B+<8_jj*JH5^}=i|;lI1^n9To1dx@A{GJ1=lZJAGj{K;_`3H zFU(&9+x`3eWBD)Ve+=7Aa%Z{kK&$t-522+WyD^1e?E}AUooQWYb;D-AjuGB({gX8% zqdLQvQJ>M2A)}uzXRu6TrYSQavoVuif_K2q6QCPo#v$7g+cUP~w$rv(ZExD%v7NJh zV!LcJW+h}LXQgGOXU)xWX06Mr&uYy&Y(Hv0n0GkuNZwJ{R4DH_?CNyhnY>r?&ceC| z^4`f)^Ume1acp$>98HcLjy6Y!V~=C6W1r)odJK$xR$vj*BaMGm(SJY+Tm(*b-4Dp_PX}D4!RDzj=Dmwlddza zv#tS`>N@WlcCma@zBxZN-;zHYmY17fkiRTng1$Gx>YMU+!16ot_vG)*-0;l7Z$k;er1h&qub|ha_?}rxjWELd)@oo z2i=EZn<4i}_ZjzD_kdeY48hvADt@Iz;;XRQMmhv%)s7>lM1b4F^0C1Z_kovq0(+jrPo?QO8x z4*P=`c@Nw7+8?v;vmbz8J_OHv1pWAoJ!C&_KWRU0KVyH@einXu!2XV1wV$(}w|`SooEJ}N%Q)ZyGe)xuYDPy&!4~9IU^-*cJ}6tvQo0G zVLLmjF>u zUQp{7(ROfdD$k|Hcuga2MmTMO>XZxTcf$b!ZX&P8pt^bOT7MP~)$*FYaYu;)>Dzv)`__n65`YJUM$iJaV zL=Z5<+ zBq=xMEs-mK0K4UmW0rQ+2IkBU^nWmQRmK+oe}w$X>4M~xLiLV3(w1}uZU!Lk5pX_+ zu3Fda>FDO^=$3lNhtOD745$Za_#V}0R?EUdI)mc!J3X?ah1QXRyQCm}!)bQc!@gHS z)0j0&h|dxwbO8_!ur7jAC;fE%)#`3O)(I}1Iu7tV_X{XwT+3T2!#bn_(t-Xfa-&YY zVnvtks%4z}&cjQ589un^Je;Y6F7Z)6xL7^47?E3HhjRn{vz(87Y-mK`ttU~hlQ28m zw1)jc4rhH$)XU!-@-`p!Zb#>SHO^&z8Vb(bBjGGezAcRfoG5=V&o%ATw+%wOzHP|s zkE4Hj)JHM0sEl5xaWW_eUM5Bpxb`iwNl={jdjT=p(t5nk(~Er7)4!2{kk+ztK1#&z zmd8;EvI~%Xg?1P19-0hn6IuvOLpy|a7WfHprhl?#lN7g(bX%jPqAv7<`q44HjOWi* zX^-Bub4N-SaVwh3>E-g?Y>8fJpm7U$15Mf%3+We%Tf249J!adwDVpf_K)Y={EA-T{ z(Zg2J$R!MOgy_~19@EE-oKAEHNKEGtn#kQH@G-5a~rrXDs#}=kt6VW1`Q1F(t ztYXFx`QGd>?Ev0m>mEjwUvp3t $FFFFFFFF) and (Data <> 0) then begin + Info := Get_Info(Data, Bus, Dev, Fun); + if Info.Vendor_Name <> '' then Break; + end; + loopdone := true; + end; + if Info.Vendor_Name <> '' then Break; + end; + if Info.Vendor_Name <> '' then Break; + end; + if (Info.SMB_Address <> 0) AND (Info.Vendor_Name<>'') AND (NOT loopdone) then begin + Status.Caption := 'SMBus-Controller found at Bus 0x'+IntToHex(Bus,2)+', Dev 0x'+IntToHex(Dev,2); + end else begin + Status.Caption := 'No compatible SMBus-Controller found!'; + end; + Result := Info; +end; + + + +(****************************************************************************** +******* SMBus routines follow ******* +******************************************************************************) + + +procedure smbWaitForFree(BaseAddr: word); +var + Status: byte; +begin + Status := DlPortReadPortUchar(BaseAddr); + while (Status and 1) <> 0 do begin + Application.ProcessMessages; + Status := DlPortReadPortUchar(BaseAddr); + end; + if (Status and $1e) <> 0 then + DlPortWritePortUchar(BaseAddr, Status); +end; + +procedure smbWaitForEnd(BaseAddr: word); +var + Status: byte; +begin + Status := DlPortReadPortUchar(BaseAddr); + while (Status and 1) = 1 do begin + Application.ProcessMessages; + Status := DlPortReadPortUchar(BaseAddr); + end; +end; + +function smbCallBus(BaseAddr: word; CMD: byte; Slave: byte; RW: byte): cardinal; +var + Dump1: word; +begin + smbWaitForFree(BaseAddr); + DlPortWritePortUchar(BaseAddr + 3, CMD); + DlPortWritePortUchar(BaseAddr + 4, (Slave shl 1) or RW); + DlPortWritePortUchar(BaseAddr + 2, $48); + sleep(1); + Application.ProcessMessages; + smbWaitForEnd(BaseAddr); + Dump1 := ( DlPortReadPortUchar(BaseAddr + 6) shl 8); + Dump1 := Dump1 or DlPortReadPortUchar(BaseAddr + 5); + Result := Dump1; +end; + +function smbGetReg(BaseAddr: word; Reg: byte; Slave: byte): word; +var + Data: cardinal; +begin + smbWaitForFree(BaseAddr); + DlPortWritePortUchar(BaseAddr + 5, 0); + DlPortWritePortUchar(BaseAddr + 6, 0); + Data := smbCallBus(BaseAddr, Reg, Slave, RW_READ); + Result := (Data and $ff); +end; + +function smbGetAddress(BaseAddr: word): string; +var + Data: word; + Cheque: string; + idx: integer; +begin + Cheque := ''; + for idx := $20 to $4F do begin + smbWaitForFree(BaseAddr); + DlPortWritePortUchar(BaseAddr + 5, 0); + DlPortWritePortUchar(BaseAddr + 6, 0); + Data := smbCallBus(BaseAddr, 0, idx, RW_READ); + if (Data and $FF) <> 0 then begin + Cheque := Cheque + IntToHex(idx,2); + end; + end; + Result := Cheque; +end; + +begin + +end. \ No newline at end of file diff --git a/memmap.txt b/memmap.txt new file mode 100644 index 0000000..0fac06b --- /dev/null +++ b/memmap.txt @@ -0,0 +1,29 @@ + 0 1 2 3 4 5 6 7 8 9 a b c d e f +00: PP PP PP PP PP PP PP pp pp pp pp pp pp pp ?? SS +10: UU UU UU UU UU UU UU UU UU UU UU UU UU UU UU UU +20: OO OO OO OO OO OO OO OO OO OO OO OO OO OO OO OO +30: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff +40: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff +50: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff +60: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff +70: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff +80: MM MM MM MM MM MM MM MM MM MM MM MM MM MM MM MM +90: MM MM MM MM MM MM MM MM MM MM MM MM MM MM MM MM +a0: RR RR RR RR RR RR RR RR RR RR NN NN NN NN ?? ?? +b0: ?? ?? ?? ?? ?? ?? 0? ?? ?? ?? ?? ?? 0? 0? ?5 ?? +c0: ss ss ss ss ss ss ss ss ss ss ss ss ss ss ss ss +d0: ss ss ss ss ss ss ss ss ss ss ss ss ss ss ss ss +e0: tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt +f0: tt tt ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? + + +PP - Machine password +pp - User password +SS - Security setting (FF/4E: ask at startup; FE/00: don't ask) +UU - UUID +OO - OEM Info +MM - Machine name +RR - Revision +NN - Model Name (4-character!) +ss - Serial number +tt - Timestamp \ No newline at end of file