بدست آوردن شماره سریال هارد (کارخانه) ـ سی پی یو و مادربرد در vb یا اکسس

[h.moshfeghi]

با سلام لطفا اگر امکان داره مثالی از بدست آوردن شماره سریال هارد دیسک (کارخانه) ، مادر برد، سی پی یو جهت استفاده از آن در قفل گذاری برای برنامه در VBA یا اکسس بیاورید.

[amirzazadeh]

با سلام لطفا اگر امکان داره مثالی از بدست آوردن شماره سریال هارد دیسک (کارخانه) ، مادر برد، سی پی یو جهت استفاده از آن در قفل گذاری برای برنامه در VBA یا اکسس بیاورید.
از اين لينك كه توسط جناب پيروز مهر آماده شده كمك بگيرين.
http://www.barnamenevis.org/forum/showthread.php?t=135662
............................
موفق باشيد

[RESMAILY]

به نام خدا
با سلام به اقاي اميرزازاده و آقاي پيروزمهر
درمورد سوال آق يا خانم مشفق بايد عرض شود كه منظور دانستن آن تابعي است (APi)كه بتواند اين سريال رابرگرداند. ظاهرا يا موجود نيست و يا دسترسي به آن مستلزم هزينه اي است. يك API وجود دارد كه سريال توليد شده براي پارتيشن ها را برمي گرداند. منظورم
GetVolumeInformation(strDrive, volname, Len(volname), sn, maxcomplen
sysflags, sysname, Len(sysname))
ولي همانطور كه پيداست منظور را برآورده نمي كند. بنده مطلب اقاي پيروزمهر را خواندم. درآنجا نيز به اين موضوع اشاره نشده است. در#C تابعي براي بدست آوردن اين مشخصات وجود دارد. ولي ظاهرا قابل استفاده در VBA نيست. اما به احتمال فراوان تابعي براي اين كار وجود دارد كه يا ما(و احتمالا شما) خبر نداريد. يا او نشان ندارد!

[amirzazadeh]

به نام خدا
با سلام به اقاي اميرزازاده و آقاي پيروزمهر
درمورد سوال آق يا خانم مشفق بايد عرض شود كه منظور دانستن آن تابعي است (APi)كه بتواند اين سريال رابرگرداند. ظاهرا يا موجود نيست و يا دسترسي به آن مستلزم هزينه اي است. يك API وجود دارد كه سريال توليد شده براي پارتيشن ها را برمي گرداند. منظورم
GetVolumeInformation(strDrive, volname, Len(volname), sn, maxcomplen
sysflags, sysname, Len(sysname))
ولي همانطور كه پيداست منظور را برآورده نمي كند. بنده مطلب اقاي پيروزمهر را خواندم. درآنجا نيز به اين موضوع اشاره نشده است. درC#‎‎‎ تابعي براي بدست آوردن اين مشخصات وجود دارد. ولي ظاهرا قابل استفاده در VBA نيست. اما به احتمال فراوان تابعي براي اين كار وجود دارد كه يا ما(و احتمالا شما) خبر نداريد. يا او نشان ندارد!
لطفا فايل ضميمه رو ببينيد:
.............................
موفق باشيد

[RESMAILY]

به نام خدا
با سلام به آقاي اميرزازاده
گرچه در همين قاصله تابع مزبور را از access-programmers.co.u بدست آوردم. ولي بازهم متشكرم.
حالا به قول اقاي پيروزمهر و طبق محاسبه ايشتن، يك نمره يك(!؟) در برنامه نويسي "آكسس وي بي آ" به بنده هم تعلق مي گيرد!
باز هم ممنون.

[nabeel]

سلام آقای amirzazadeh

یه مشکل توی فایل وجود داره , در اون بخشی که نوشته شده HDD و احتمالاً منظور همون Hard Disk هستش , اطلاعات مربوط به ویندوز به نمایش در اومده و نه هارد دیسک


حالا به قول اقاي پيروزمهر و طبق محاسبه ايشتن، يك نمره ...

منظور آقای RESMAILY احتمال زیاد انیشتن بوده و نه ایشان !!

طبق کدوم محاسبه میفرمایید آقای RESMAILY !؟

ولی خوب جواب بخش باقیمانده سئوال و مرتبط با پست شماره 3

همین اول یه چیزی رو برای همیشه تموم کنیم : VBA توی بخشهای مشترک هیچ چیزی از خود VB کم نداره و بسیاری دستورات بدون کمترین تغییری در هر دو محیط قابل استفاده هستند .
در بخشهای غیر مشترک هم ( که فصل تمایزات این دو برنامه هستش , چرا که اگه تمایزی نداشتن اسم یکی VB و اسم اون یکی Access نبود ) , با توجه به دامنه کاربردی اونها نقاط ضعف معنا پیدا نمیکنه .

در رابطه با تابع API که درخواست کردید به روش زیر عمل کنید , ولی متاسفانه یه خبر ناخوشایند هم براتون دارم که در انتها اون رو خواهید خوند ( یعنی در واقع باید بخونید !!! )
شماره سریالهای دریافتی از هارد دیسک به دو دسته تقسیم میشن
شماره سریال سخت افزار که توسط شرکت سازنده تعیین میشه و شماره سریال درایو
شماره سریال سخت افزاری و یا Physical Serial No , امکان به دست آوردنش وجود داره ولی در نسخه های بعد از ویندوز XP انجام این امر با کدهای عمومی موجود قبلی , کار رو با مشکل مواجه کرده , این روش مبتنی بر قابلیت S.M.A.R.T بود , ولی خوب روشهای دیگه ای برای غلبه بر این مشکل وجود داره .
ولی در خصوص روش دوم به نوعی این شماره سریال , شماره سریال نرم افزاری هم نامیده میشه و متاسفانه با روشی که در ادامه ارائه شده قابل تغییره ! ( روشی که خیلی از کاربرهایی که از مشکلات این الگوریتم بی خبر هستن از اون استفاده میکنن )

Private Declare Function GetVolumeInformation _
Lib "kernel32" _
Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long

Public Function CN() As Double ' Drive C:\ Serial No - Number Format
On Error GoTo Err_CN

Dim myfilesys As String * 256

Dim VName As String

Dim FSName As String

Dim Serial As Long

Dim mydrvlabel As String

Dim drvserialno

102 VName = String$(255, ChrW$(0))
104 FSName = String$(255, ChrW$(0))
106 GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255 ' C:\
108 CN = CDbl(Left$(Abs(Trim$(Str$(Serial))), 8))



Exit_CN:
On Error Resume Next
Exit Function

Err_CN:
Select Case Err.Number
Case 0
Resume Exit_CN:
Case Else
MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error in module Module1 - function CN"
Resume Exit_CN:
End Select
End Function


توضیح : برای استفاده همه کدها رو در داخل یک ماژول کپی کنید و تابع CN رو در نقاط مورد نیاز فراخوانی کنید .
در روش مذکور حتی کاربری که اطلاعاتی در خصوص برنامه نویسی و کرک کردن هم نداشته باشه , میتونه برنامه شما رو کرک کنه !!

نوشتن سیستمهای کنترلی به اطلاعات متنوعی نیاز داره و صرف داشتن سورس کد نمیشه به یک قفل گذاری کارآمد و شناسایی سیستمهای سخت افزاری رسید .

موفق باشید

[RESMAILY]

به نام خدا
با سلام به همه دوستان و آقاي پيروز مهر
در مورد سريال HDD حق با شما ست. چون سريال مزبور هم در مشخصات OS برمي گردد وهم در تابع ارايه شده. اين مشكل به نوعي در مورد سريال مادربورد هم وجود دارد.ولي سريالي كه با عنوان CPUبدست مي آيد به درد بعضي عمليات مي خورد. يعني تا وقتي نشود برنامه را دكامپايل كرد به درد مي خورد. درصورتيكه كسي توان دكامپايل برنامه را داشته باشد كه ديگر قضيه فرق مي كند و جزو موارد معدود است.(انگار رفتيم دوباره در تاپيك امنيت برنامه و غيره. يادش بخير)
يك توضيح هم با اجازه مدير اين بخش ذكر مي شود،
گرچه اشتباه تايپ در كامنت من بود، ولي به هرحال منظور چه «ايشان» و چه « انيشتين» هم باز خود اقاي پيروز مهر بود! يك نبيل پيروزمهر كه بيشتر نداريم. خدا حفظ ‌اش كند. محاسبه را يك بار در شرح احوال خودشان گذاشته بودند و با فروتني نمره 12 در برنامه نويسي به خودشان داده ا ند. خوب اگر نمره ايشان 12 باشد نمره امثال بنده صفر است و حالا به ضرب استفاده از استعارات ادبي، يك نمره اي هم به خودم دادم. يعني 1(!)

[nabeel]

ضمن سلام

RESMAILY عزیز , شبه من در خصوص نمره نبود ( اونو یادم بود , نمره دوازدهی که باعث شد مشروط نشم ) در خصوص این بودش که شما فرمودید : با محاسبه , راستش رو بخواید اون نمره رو من دیمی دیمی داده بودم و براش محاسبه ای نکرده بودم !!
ولی به هر حال دوست من اون نمره تنها به جهت تعیین سطح بود و اینکه فکر میکردم دوستان هم در اون مبحث بحث و مطلب رو جدی میگیرن و ... ( ولی ظاهراً هیچ وقت و هیچ جا اینجوری نبود )
در خصوص نمره شما دوست گرامی هم بنده جسارت نمیکنم , از دید من نمره شما خیلی بیشتر از این حرفهاست .

در رابطه با کرک این روش متاسفانه موضوع یه کم ساده تر از اون چیزی هست که شما فکرش رو میکنید , این جمله رو دوباره بخونید :


در روش مذکور حتی کاربری که اطلاعاتی در خصوص برنامه نویسی و کرک کردن هم نداشته باشه , میتونه برنامه شما رو کرک کنه !!

قصد آموزش روش رو ندارم ولی بهتره حرفم رو باور کنید , در غیر اینصورت وقتی باور میکنید که یه کاربر معمولی قفل شما رو دور میزنه ( دقت کنید : کاربر معمولی و نه حتی یک کرکر معمولی ) و اون وقت شما میمونید و علی و حوضش و یه لیوان خالی که تا چندی قبل توش آب یخ بود !!!! البته لازم نیست که بگم نقش اون لیوان آب یخ خالی چی بوده و چی هست !
در ادامه مطلب گریزی بزنیم به روش ارائه شده در نمونه آقای amirzade
این دوست عزیز لطف کردن و الگوریتمی رو ارائه دادن که در جای خودش شایسته تشکره ( گو اینکه بسیاری کاربرها هنوز تشکر کردن رو بلد نیستن و یاد هم نخواهند گرفت , با توجه به تعداد بازدیدها تعداد تشکرها کمه , البته ممکنه بازدید کننده ها خودشون از قبل این روشها رو فول بودن )
در خصوص CPU کمی صحبت میکنیم که RESMAILY بر روی اون تاکید داشتن .
در خصوص مشخصه های استخراج شده یه مقدار بحث میکنیم
فاکتور Manufacturer در جایی که تولید کننده Intel , AMD و یا VIA هستش فاکتور مناسبی نیست
فاکتور CPU Name مشخصه ای با تنوع مناسب نیست , ( فکر میکنید از ابتدا تا حالا چند مدل CPU تولید شده )
و در خصوص Serial Number , متاسفانه بسیاری CPU ها یا فاقد شماره سریال سخت افزاری به معنای عام اون هستند و یا دارای اون نیستند ( در بسیاری مدلها این شماره سریال , شماره سریال ساخت هستش و برای یک پارتی تولیدی یکی هستش ! )
شماره نسبتاً یکتا در داخل CPU ها ( خصوصاً در نسلهای جدید , مشخصه ای دیگه هستش که نشانی از اون الگوریتم در اینجا دیده نمیشه )
این موارد در خصوص مقادیر برگشتی
ولی در رابطه با خود الگوریتم هم باید عرض کنم که برخی از این مشخصه های ارائه شده فعلی با توجه به محل استخراج اونها , توسط کاربر و با کمک نرم افزارهای آماده قابل تغییر هستند ( دو تای اولی )
توضیح : اینکه در خصوص نحوه اعمال این تغییرات توضیحی نمیدم , به این علته که خیلی از کاربرها ممکنه از همین الگوریتمهای عمومی موجود استفاده کرده باشن و دچار مشکل بشن .

موفق باشید

[nabeel]

سلام به هر چی دوست و صد البته هر چی نارفیقه

هر از چند گاهي يكي از دوستان هستش كه بنده رو مورد لطف قرار ميده ، ايميلي از سر ارادت و عشق ميفرسته ، كه خدا هيچ وقت اين لطف و كرمش رو از من دریغ نكنه ( ايميل من اينه ، اگه هر كس ديگه اي هم خواست ميتونه بفرسته : npm_mail[at].yahoo.com ولي خداييش عاشقانه نفرستيد همون معموليش بهتره )

اينم يه برنامه براي اينكه اين دوستمون نگه كه من دارم بلوف ميزنم !! و یه چیزی میگم و الکی شلوغش میکنم !! ( عين جمله خودش )

لینک دانلود (http://www.4shared.com/file/141533450/9e05a909/HDSNC.html)

توضیح : بعد از تغییر شماره سریال درایو سیستم رو Restart کنید

يه نمونه برنامه ارائه شد ، مابقي كار پاي همون رفيق نا رفيق ! اگه دلش خواست و ... بیاد و موضوع رو همین جا فیصله بده . ( گو اینکه امیدی به بخار نیست ... )


تا سيه روي شود هر كه در او غش باشد


واقعاً آدم ... هميشه ... ميمونه ، آخه آدم با ايميلي كه توي پروفايل کاربریش هست كه ايميل ناشناس نمي فرسته کد خدا !


و در ادامه باز هم روي صحبت با بقيه دوستان .

به هر حال تحريك اين آقا/خانم !! ( خداییش از روی اسم کاربری 50 درصد کاربرها که جنسیت رو نمیشه تشخیص داد ) باعث شد كه بخشي از شبه احتمالي برخي كاربراي ديگه هم مرتفع بشه .
شماره سريال نرم افزاري عملاً با فرمت نمودن درايو ، تغيير پيدا ميكنه و شماره سريال جديد بدون دخالت كاربر و از سوي ويندوز به صورت رندوم به درايو انتساب داده ميشه . نقطه قوت فرضی اين روش , در سيستمهاي قفل گذاري وابسته به شماره سريال درايو اينه كه : كاربر نميتونه در تعيين شماره سريال درايو دخالت كنه !!
در بسیاری جاها احتمال تکراری بودن این شماره سریال رو در حد صفر میدونن !
البته اين خيالي باطل هستش كه بسياري برنامه نويسان و طراحان قفلهاي نرم افزاري به اون معتقد هستن و در ادامه خودشون رو به دردسري ميندازن كه برگشت از اون هزينه هاي زيادي رو ميتونه براي اونها ايجاد كنه .

سناریوی حمله زير رو متصور بشيد ( به عنوان یک کاربر عادی ) :
كاربري اقدام به خريد یک نسخه از برنامه شما میکنه
این کاربر به هر دلیلی قصد داره شما رو متضرر کنه !
برنامه شما رو به همراه این فایل و شماره سریال درایو خودش در هنگام ثبت اولیه به بقیه میفروشه
کاربران دیگه با تغییر شماره سریال درایوشون به شماره سریال درایو خریدار اولیه ( که اولین و آخرین خریدار شما خواهد بود ) , اقدام به ثبت برنامه خودشون میکنن
به همین سادگی با کلی زحمت یک برنامه مینویسید و تنها یک بار میفروشید !

دوستانی که از این روشها و الگوریتمهای Open Source استفاده میکنن , بهتره بی خیال این روشها بشن , سیستمهای کنترل خرید خیلی پیچیده تر از اونی هستند که با اطلاعات و مطالعاتی حتی در حد متوسط , سرانجام خوبی داشته باشند .
و نکته آخر : اگه این دوستمون به حرفای بنده حقیر شک داره , یه نسخه از برنامه خودش رو که جنبه فروش داره همین جا قرار بده تا جهت مصارف عام المنفعه در اختیار همه بذارمش ! و صد البته آموزشش رو هم به صورت کامل توی همین فروم قرار میدم .
( البته این رفیق من به من که گفته :
من تا حالا با همین روش روی خیلی از برنامه هام قفل گذاشتم و کسی نتونسته قفلاش رو بشکنه )
انشا ا... که روی ماه یکی از اون خیلیها رو اینجا می بینیم ( یعنی همه میبینن )
اینطوری هم ثوابی میبریم و هم بقیه یه آموزش میبینن
پس آقا/خانم ما رو زیاد چشم انتظار نذار

خدانگهدار

[amirali111]

با سلام
نبیل عزیز ممنون از حوصله وافر و توضیحات جامع شما.
و در مجموع آیا در vba راهی برای قفل برنامه (برای منع کپی ) حتی در سطح متوسط هم نیست؟
با تشکر

[nabeel]

سلام

كم كم داشتم پست شماره 9 رو فراموش ميكردم كه شما لطف كردي و اون را آورديد بالا !
چرا روش وجود داره ، از نسخه مجاز و نهايي SerialShield استفاده بفرماييد

موفق باشيد

[mehdilaei]

سلام
شايد كمي دير باشه براي ادامه دادن مطلب، بهر حال...
اگر وقت داشته باشين يك چند دقيقه اي مزاحم بشم
اول اينكه ممنون از اطلاعات خوب شما
دوم من يك برنامه نويس (اگر بشه گفت) كوچيك توي يكي از شهرهاي كوچيك شمال كشورم و برنامه نويسي رو تجربي ياد گرفتم يادش بخير از دوره خدابيامرز GW basic از اون زماني كه كل سيستم عامل و محيط برنامه نويسي توي يه ديسكت 5.25 اينچي ذخيره مي شد و براي اينكه اين دسكت تا نشه اونو وسط يه كتاب ضخيم ميگذاشتيم، (كامپيوتر هارد نداشت و مجبور بوديم همه برنامه ها رو همراه داشته باشيم) يادش بخير كه اون زمان يه كتاب گرافيك با بيسيك گير آورده بودم كه با تركيب سينوس و كسينوس و ... كلي شكلهاي قشنگ مي كشيدم و همه رو شگفت زده مي كردم، البته شكلها فقط تو يكي از سيستم ها كه دبيرما خودش باهاش كار مي كرد رنگي بود ( بقيه سيستم ها مانيتوراشون سياه و سفيد بود) بله القصه سال 71 بود و من چند تا دفتر 100 برگ رو با جداول پر شده تست برنامه ها به روش دستي پر كردم، آخه فقط هر دو سه هفته يكبار يك ساعت كامپيوتر عملي داشتيم .
سوم اينكه از اون موقع تا حالا برنامه زياد نوشتم البته بازم مي گم برنامه كه چه عرض كنم واسه يه عده بنده خدا در منطقه محروم كه فكر كردن من برنامه نويسن مي نويسم ولي خدائيش سعي كردم برنامه هام كاربردي باشه از برنامه دخل و خرج كوچولو تو اكسس گرفته تا برنامه ارتباط با آناليزگر و باسكول در كارخانه لبنيات تو محيط دلفي، همه اينا هم به درخواست مشتري بوده و پولشو گرفتم
چهارم از همون روزاي اول تا بحال رمز گذاري يه قسمت عمده فكر من بوده ولي هيچ وقت درست و حسابي بهش فكر نكردم، حقيقتش وقت نشده ولي از روشهاي مختلف استفاده كردم و تقريبا جواب داده، شايد چون منطقه كوچيكه مثلا از يك فايل در يك مكان شلوغ با استفاده از يك كد رندم گرفته تا ثبت كد رجيستري، ولي هر كدوم مشكلات خودشون رو دارن
پنجم از اينكه منو آگاه كرديد كه همه برنامه هام در معرض خطره ممنون البته هرچند خيلي برام مهم نيست
ششم يه راه حل ساده معمولا من سعي مي كنم كدهاي هر سيستم رو ثبت كنم اينجوري حتي اگه از ساده ترين روش يعني سريال درايو هم استفاده بكنيد مي فهميد برنامه از كجا لو رفته و قابل پيگيري هست
ممنون اگر خونديد. ببخشيد وقتتون رو گرفتم عيدتون هم مبارك

[ma1246]

اگه هدفتون ایجاد یک کد یونیک تو برنامه از روی اطلاعات سخت افزاری باشه یه dll با دلفی نوشتم
که این کد رو حتی روی سرور (چون بدست آوردن سریال هارد رو سرور فرق داره) ایجاد می کنه . البته این کد کاملا منحصر به فرده از MD5 استفاده کردم . که سریال هارد، MAC Address
Main Board , cpu رو تلفیق می کنه با یه تابع Hash اطلاعات را hash کرده و در آخر MD5 در اختیار شما قرار می دهد. Call Me : majidco18@gmail.com

راستی یادتون نره بیشتر برنامه هایی که الان هست و میگن سریال cpu می ده در واقع سریال cpu نیست سریال امضا کارخانه (signature factory) سی پی یو . پس برای خیلی از سی پی یو ها ممکن کد تکراری ایجاد کنه .

[sedehi]

اگه هدفتون ایجاد یک کد یونیک تو برنامه از روی اطلاعات سخت افزاری باشه یه dll با دلفی نوشتم
که این کد رو حتی روی سرور (چون بدست آوردن سریال هارد رو سرور فرق داره) ایجاد می کنه . البته این کد کاملا منحصر به فرده از MD5 استفاده کردم . که سریال هارد، MAC Address
Main Board , cpu رو تلفیق می کنه با یه تابع Hash اطلاعات را hash کرده و در آخر MD5 در اختیار شما قرار می دهد. Call Me : majidco18@yahoo.com

راستی یادتون نره بیشتر برنامه هایی که الان هست و میگن سریال cpu می ده در واقع سریال cpu نیست سریال امضا کارخانه (signature factory) سی پی یو . پس برای خیلی از سی پی یو ها ممکن کد تکراری ایجاد کنه .


سلام دوست عزیز
خوب حالا کو کد ؟

[RESMAILY]

به نام خدا
باسلام و خوشحالي از اينكه اين تاپيك مجددا جاني گرفت. اجمالا يك نكته اي احساس مي شود . آنكه قطعا بدست آوردن سريال برخي از قطعات سخت افزاري مقدور و عملي است. بخصوص در مدل هاي جديد تر. دليل اش وجود برنامه هايي است كه مستقلا اين كاررا انجام مي دهند. (اورست و پي سي اينفو و غيره) ولي به نظر مي رسد دوستاني كه در اين زمينه اطلاعاتي دارند مايل نيستند كه آن را مطرح نمايند. بنده اخيرا كامنتي را در همين تالار ديدم كه شماره سريال هارد را در اكس پي باز مي گرداند. ولي چند كامنت «حرفه اي» به اين عمل اولا اعتراض كرده بودند و درثاني آن را كم اثر و محدود ارزيابي نموده بودند.
باري. شايد اشتباه كرده باشم.

[c4soft]

سلام
در ضمیمه پست شماره 4 مربوط به آقای امیرزاده
تو بخشی که نوشته شده HDD شماره سریال هارد دیسک رو نشون نمیده و فقط اطلاعات ویندوز رو نشون میده
http://www.barnamenevis.org/forum/attachment.php?attachmentid=60851&stc=1&d=1290708495
آیا روشی برای نشان دادن شماره سریال هارد دیسک است ؟
آیا بدون OCX هم میشه به این اطلاعات دست پیدا کرد ؟
متشکرم

[ali190]

سلام علی جان
یه نمونه ساده برات درست کردم
امیدوارم به کارت بیاد
یاعلی

[c4soft]

سلام علی جانم
بازم متشکرم ، خسته نباشید
داشتم چند نمونه رو بررسی میکردم که همشون فقط به شماره سریال درایو پرداخته بودن
تو برنامه نویس هم بحث ها ناتمام مونده متاسفانه
واقعا دست شما درد نکنه

[ma1246]

سلام جناب sedehi خدمتتون عرض کرده بودم که ایمیل بزنید . البته ایمیل رو بی زحمت به gmail بزنید در کمتر از 24 ساعت براتون حتما میفرستم .