دریافت کد سخت افزاری

[بابک زواری]

سلام
کسی از دوستان کد گرفتن سریال بایوس یا یک اطلاعات از بایوس
که منحصر بفرد باشه و در کامپیوتر دیگه فرق بکنه ؛ رو داره ؟
عجب جمله نامتقارنی !!!

[Best Programmer]

یه کم بیشتر توضیح بده ببینم چی میخوای :(

[Best Programmer]

'øº`ºøº`º&oslash ;º`ºøº`ºøº` ºøº`ºøº`º&o slash;º`ºøº`ºø&o rdm;`ºøº`ºøº`&or dm;øº`º
'(oigres P) Email: oigres@postmaster.co.uk
'Get the Bios number and serial details?
'Code adapted from ww.freeVBcode.com by Arkadiy Olovyannikov
'Functions in visual basic virtual machine (runtime dlls)
Private Declare Sub GetMem1 Lib "msvbvm50.dll" (ByVal _
MemAddress As Long, var As Byte)

'You can read Integer (2 bytes), Long and LongInteger variables
'using GetMem2, GetMem4 and GetMem8 functions
'Private Declare Sub GetMem2 Lib "msvbvm50.dll" (ByVal _
' MemAddress As Long, var As Integer)
'Private Declare Sub GetMem4 Lib "msvbvm50.dll" (ByVal _
' MemAddress As Long, var As Long)
'API has LongInteger var type 8 bytes long (FileTime is a _
' sample)
'----------------------
Private Function GetBIOSDate() As String
Dim p As Byte, MemAddr As Long, sBios As String
Dim i As Integer
'start of bios serial number ?&HFE0C0
MemAddr = &HFE000
For i = 0 To 331
Call GetMem1(MemAddr + i, p)
'get printable characters
If p > 31 And p <= 128 Then
sBios = sBios & Chr$(p)
End If
Next i
GetBIOSDate = sBios
End Function
'Using
'Text1.Text = GetBiosDate

'Private Declare Sub GetMem8 Lib "msvbvm50.dll" (ByVal _
' MemAddress As Long, var As LongInteger)

'You can also write data derectly into memory using the same
'PutMem1 - PutMem8 functions


Private Sub Form_Load()
Text1.Text = GetBIOSDate
End Sub


فکر کنم این کار شما رو راه بندازه

[MM_Mofidi]

سورس کد بالا در سیستمهای خانواده Ntبا مشکل مواجه خواهد شد. ضمنا کد بایوس را هم نمیخواند مجموعه ای از اطلاعات را میخواند که لزوما منحصر به فرد هم نیستند.
برای خواندن اطلاعات بایوس چند روش هست.
1-وقفه های رده پایین.(شماره و شکل آنها را به من که ندادند اگر به شما دادند برای ما هم بفرستید.)
2-memory dumpingیعنی همین روشی که در این مثال هم استفاده شده.
منتها دو اشکال دارد یکیش را قبلا گفتم یکی دیگش مربوط میشه به عدم قرار گرفتن اطلاعات منحصر به فرد در آدرس خاصی(برای مدلهای مختلف) ضمنا همه مدلها هم آدرس کاملا منحصر به فرد ندارند.(شاید بعدا بیشتر توضیح بدم)
دلی اگر خواسته باشی برنامه ای نوشتم که نوع بایاس را detectمیکند و سریال مربوطه را در بایاسهای Award , AMI برمی گرداند. یک سری نرم افزار تحت داس و ویندوز هم هست که بازهم اگر خواستی آدرس downloadهرکدام را پیدا میکنم و اینجا میگذارم.

[coral]

اگر پیدا کنید و این جا بذارین تشکر...

[بابک زواری]

این بحث تو قسمت قفل نرم افزاری داره دنبال میشه

[coral]

آفای غیبی سلام
لطفا این تاپیک را حذف کنید.چون در بخش مباحث مربوط به قفل نرم افزاری داره بحث می شه